| … | |
… | |
| 235 | }, |
235 | }, |
| 236 | SDL_KEYUP() => sub { |
236 | SDL_KEYUP() => sub { |
| 237 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
237 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
| 238 | }, |
238 | }, |
| 239 | SDL_MOUSEMOTION() => sub { |
239 | SDL_MOUSEMOTION() => sub { |
| 240 | warn "sdl motion\n";#d# |
240 | my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y); |
|
|
241 | my $widget = $TOPLEVEL->find_widget ($x, $y); |
|
|
242 | |
|
|
243 | warn "mouse $x, $y = $widget\n"; |
| 241 | }, |
244 | }, |
| 242 | SDL_MOUSEBUTTONDOWN() => sub { |
245 | SDL_MOUSEBUTTONDOWN() => sub { |
| 243 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
246 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
| 244 | }, |
247 | }, |
| 245 | SDL_MOUSEBUTTONUP() => sub { |
248 | SDL_MOUSEBUTTONUP() => sub { |
