| … | |
… | |
| 93 | $self->signal_connect (button_press_event => sub { |
93 | $self->signal_connect (button_press_event => sub { |
| 94 | my ($self, $event) = @_; |
94 | my ($self, $event) = @_; |
| 95 | |
95 | |
| 96 | my ($x, $y) = ($event->x, $event->y); |
96 | my ($x, $y) = ($event->x, $event->y); |
| 97 | |
97 | |
| 98 | warn "" . $_[1]->state;#d# |
|
|
| 99 | if (($_[1]->button == 2 || ($_[1]->button == 1 && $_[1]->state * ["mod1-mask", "meta-mask"])) |
98 | if (($_[1]->button == 2 || ($_[1]->button == 1 && $_[1]->state * ["mod1-mask", "meta-mask"])) |
| 100 | && !$self->{in_drag}) { |
99 | && !$self->{in_drag}) { |
| 101 | $self->disable_tooltip; |
100 | $self->disable_tooltip; |
| 102 | |
101 | |
| 103 | $_[0]->grab_focus; |
102 | $_[0]->grab_focus; |
