… | |
… | |
239 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
239 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
240 | }, |
240 | }, |
241 | SDL_MOUSEMOTION() => sub { |
241 | SDL_MOUSEMOTION() => sub { |
242 | my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y); |
242 | my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y); |
243 | $HOVER = $TOPLEVEL->find_widget ($x, $y); |
243 | $HOVER = $TOPLEVEL->find_widget ($x, $y); |
|
|
244 | $self->refresh; |
244 | |
245 | |
245 | warn "mouse $x, $y = $HOVER\n"; |
246 | warn "mouse $x, $y = $HOVER\n"; |
246 | }, |
247 | }, |
247 | SDL_MOUSEBUTTONDOWN() => sub { |
248 | SDL_MOUSEBUTTONDOWN() => sub { |
248 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
249 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |