… | … | ||
---|---|---|---|
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 |