| … | |
… | |
| 217 | my $tag = $self->new_eventtag (sub { |
217 | my $tag = $self->new_eventtag (sub { |
| 218 | my ($tag, $view, $event, $iter) = @_; |
218 | my ($tag, $view, $event, $iter) = @_; |
| 219 | |
219 | |
| 220 | if ($event->type eq "button-press") { |
220 | if ($event->type eq "button-press") { |
| 221 | $inlay->set_visible (!$inlay->{visible}); |
221 | $inlay->set_visible (!$inlay->{visible}); |
|
|
222 | return 1; |
| 222 | } |
223 | } |
| 223 | |
224 | |
| 224 | 1; |
225 | 0; |
| 225 | }); |
226 | }); |
| 226 | |
227 | |
| 227 | $tag->set (background => "#e0e0ff"); |
228 | $tag->set (background => "#e0e0ff"); |
| 228 | |
229 | |
| 229 | $inlay = $self->new_inlay; |
230 | $inlay = $self->new_inlay; |
