… | |
… | |
96 | |
96 | |
97 | sub feed_sdl_button_down_event { |
97 | sub feed_sdl_button_down_event { |
98 | my ($ev) = @_; |
98 | my ($ev) = @_; |
99 | my ($x, $y) = ($ev->{x}, $ev->{y}); |
99 | my ($x, $y) = ($ev->{x}, $ev->{y}); |
100 | |
100 | |
101 | unless ($BUTTON_STATE) { |
101 | $BUTTON_STATE |= 1 << ($ev->{button} - 1); |
|
|
102 | |
|
|
103 | unless ($GRAB) { |
102 | my $widget = $ROOT->find_widget ($x, $y); |
104 | my $widget = $ROOT->find_widget ($x, $y); |
103 | |
105 | |
104 | $GRAB = $widget; |
106 | $GRAB = $widget; |
105 | $GRAB->update if $GRAB; |
107 | $GRAB->update if $GRAB; |
106 | |
108 | |
107 | $TOOLTIP_WATCHER->cb->(); |
109 | $TOOLTIP_WATCHER->cb->(); |
108 | } |
110 | } |
109 | |
|
|
110 | $BUTTON_STATE |= 1 << ($ev->{button} - 1); |
|
|
111 | |
111 | |
112 | if ($GRAB) { |
112 | if ($GRAB) { |
113 | if ($ev->{button} == 4 || $ev->{button} == 5) { |
113 | if ($ev->{button} == 4 || $ev->{button} == 5) { |
114 | # mousewheel |
114 | # mousewheel |
115 | $ev->{dx} = 0; |
115 | $ev->{dx} = 0; |
… | |
… | |
1294 | my ($self, $ev, $x, $y) = @_; |
1294 | my ($self, $ev, $x, $y) = @_; |
1295 | |
1295 | |
1296 | $self->{motion}->($ev, $x, $y) if $self->{motion}; |
1296 | $self->{motion}->($ev, $x, $y) if $self->{motion}; |
1297 | |
1297 | |
1298 | ! ! $self->{motion} |
1298 | ! ! $self->{motion} |
|
|
1299 | } |
|
|
1300 | |
|
|
1301 | sub invoke_visibility_change { |
|
|
1302 | my ($self, $visible) = @_; |
|
|
1303 | |
|
|
1304 | delete $self->{motion} unless $visible; |
|
|
1305 | |
|
|
1306 | 0 |
1299 | } |
1307 | } |
1300 | |
1308 | |
1301 | sub _draw { |
1309 | sub _draw { |
1302 | my ($self) = @_; |
1310 | my ($self) = @_; |
1303 | |
1311 | |