| … | |
… | |
| 24 | { |
24 | { |
| 25 | my @tags = ( |
25 | my @tags = ( |
| 26 | [default => { foreground => "black" }], |
26 | [default => { foreground => "black" }], |
| 27 | [node => { foreground => "#0000b0", event => 1 }], |
27 | [node => { foreground => "#0000b0", event => 1 }], |
| 28 | [move => { foreground => "#0000b0", event => 1 }], |
28 | [move => { foreground => "#0000b0", event => 1 }], |
| 29 | [user => { foreground => "#0000b0", wrap_mode => "none", event => 1 }], |
29 | #[user => { foreground => "#0000b0", wrap_mode => "none", event => 1 }], |
|
|
30 | [user => { foreground => "#0000b0", event => 1 }], |
| 30 | [coord => { foreground => "#0000b0", event => 1 }], |
31 | [coord => { foreground => "#0000b0", event => 1 }], |
| 31 | [score => { foreground => "#0000b0", event => 1 }], |
32 | [score => { foreground => "#0000b0", event => 1 }], |
| 32 | [error => { foreground => "#ff0000", event => 1 }], |
33 | [error => { foreground => "#ff0000", event => 1 }], |
| 33 | [leader => { weight => 800, pixels_above_lines => 6 }], |
34 | [leader => { weight => 800, pixels_above_lines => 6 }], |
| 34 | [header => { weight => 800, pixels_above_lines => 6 }], |
35 | [header => { weight => 800, pixels_above_lines => 6 }], |
| … | |
… | |
| 57 | }); |
58 | }); |
| 58 | |
59 | |
| 59 | $self->{buffer} = new Gtk2::TextBuffer $self->{tagtable}; |
60 | $self->{buffer} = new Gtk2::TextBuffer $self->{tagtable}; |
| 60 | |
61 | |
| 61 | $self->{widget} = new Gtk2::ScrolledWindow; |
62 | $self->{widget} = new Gtk2::ScrolledWindow; |
| 62 | $self->{widget}->set_policy("never", "always"); |
63 | $self->{widget}->set_policy ("automatic", "always"); |
| 63 | $self->pack_start ($self->{widget}, 1, 1, 0); |
64 | $self->pack_start ($self->{widget}, 1, 1, 0); |
| 64 | |
65 | |
| 65 | $self->{widget}->add ($self->{view} = new_with_buffer Gtk2::TextView $self->{buffer}); |
66 | $self->{widget}->add ($self->{view} = new_with_buffer Gtk2::TextView $self->{buffer}); |
| 66 | $self->{view}->set_wrap_mode ("word-char"); |
67 | $self->{view}->set_wrap_mode ("word-char"); |
| 67 | $self->{view}->set_cursor_visible (0); |
68 | $self->{view}->set_cursor_visible (0); |
