| … | … | ||
|---|---|---|---|
| 2653 | can_events => 1, | 2653 | can_events => 1, |
| 2654 | @_ | 2654 | @_ |
| 2655 | ); | 2655 | ); |
| 2656 | } | 2656 | } |
| 2657 | 2657 | ||
| 2658 | sub invoke_button_down { | ||
| 2659 | my ($self, $ev, $x, $y) = @_; | ||
| 2660 | |||
| 2661 | 1 | ||
| 2662 | } | ||
| 2663 | |||
| 2658 | sub invoke_button_up { | 2664 | sub invoke_button_up { |
| 2659 | my ($self, $ev, $x, $y) = @_; | 2665 | my ($self, $ev, $x, $y) = @_; |
| 2660 | 2666 | ||
| 2661 | $self->emit ("activate") | 2667 | $self->emit ("activate") |
| 2662 | if $x >= 0 && $x < $self->{w} | 2668 | if $x >= 0 && $x < $self->{w} |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |