| … | |
… | |
| 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 "yuna ", $_[1]->button, " * ", $_[1]->state, "\n";#d# |
98 | # warn "yuna ", $_[1]->button, " * ", $_[1]->state, "\n";#d# |
| 99 | if (($_[1]->button == 2 || ($_[1]->button == 1 && $_[1]->state * ["mod1-mask", "meta-mask"])) |
99 | if (($_[1]->button == 2 || ($_[1]->button == 1 && $_[1]->state * ["mod1-mask", "meta-mask"])) |
| 100 | && !$self->{in_drag}) { |
100 | && !$self->{in_drag}) { |
| 101 | $self->disable_tooltip; |
101 | $self->disable_tooltip; |
| 102 | |
102 | |
| 103 | $_[0]->grab_focus; |
103 | $_[0]->grab_focus; |
