| … | |
… | |
| 144 | |
144 | |
| 145 | my $tagtable = new Gtk2::TextTagTable; |
145 | my $tagtable = new Gtk2::TextTagTable; |
| 146 | |
146 | |
| 147 | { |
147 | { |
| 148 | my %tags = ( |
148 | my %tags = ( |
| 149 | default => { foreground => "black", background => "white" }, |
149 | default => { foreground => "black" }, |
| 150 | node => { foreground => "blue", event => 1 }, |
150 | node => { foreground => "#000080", event => 1 }, |
| 151 | move => { foreground => "blue", event => 1 }, |
151 | move => { foreground => "#000080", event => 1 }, |
| 152 | user => { foreground => "blue", event => 1 }, |
152 | user => { foreground => "#000080", event => 1 }, |
| 153 | coord => { foreground => "blue", event => 1 }, |
153 | coord => { foreground => "#000080", event => 1 }, |
| 154 | header => { weight => 800, pixels_above_lines => 4 }, |
154 | header => { weight => 800, pixels_above_lines => 6 }, |
| 155 | description => { weight => 800, foreground => "blue" }, |
155 | description => { weight => 800, foreground => "blue" }, |
| 156 | infoblock => { weight => 700, foreground => "#000080" }, |
156 | infoblock => { weight => 700, foreground => "blue" }, |
| 157 | ); |
157 | ); |
| 158 | |
158 | |
| 159 | while (my ($k, $v) = each %tags) { |
159 | while (my ($k, $v) = each %tags) { |
| 160 | my $tag = new Gtk2::TextTag $k; |
160 | my $tag = new Gtk2::TextTag $k; |
| 161 | if (delete $v->{event}) { |
161 | if (delete $v->{event}) { |
