… | |
… | |
31 | our $WIDTH; |
31 | our $WIDTH; |
32 | our $HEIGHT; |
32 | our $HEIGHT; |
33 | our $FULLSCREEN; |
33 | our $FULLSCREEN; |
34 | |
34 | |
35 | our $FONTSIZE; |
35 | our $FONTSIZE; |
|
|
36 | our $FOCUS; |
|
|
37 | our $HOVER; |
36 | |
38 | |
37 | our $SDL_TIMER; |
39 | our $SDL_TIMER; |
38 | our $SDL_APP; |
40 | our $SDL_APP; |
39 | our $SDL_EV = new SDL::Event; |
41 | our $SDL_EV = new SDL::Event; |
40 | our %SDL_CB; |
42 | our %SDL_CB; |
… | |
… | |
236 | SDL_KEYUP() => sub { |
238 | SDL_KEYUP() => sub { |
237 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
239 | Crossfire::Client::Widget::feed_sdl_key_up_event ($SDL_EV); |
238 | }, |
240 | }, |
239 | SDL_MOUSEMOTION() => sub { |
241 | SDL_MOUSEMOTION() => sub { |
240 | my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y); |
242 | my ($x, $y) = ($SDL_EV->motion_x, $SDL_EV->motion_y); |
241 | my $widget = $TOPLEVEL->find_widget ($x, $y); |
243 | $HOVER = $TOPLEVEL->find_widget ($x, $y); |
242 | |
244 | |
243 | warn "mouse $x, $y = $widget\n"; |
245 | warn "mouse $x, $y = $HOVER\n"; |
244 | }, |
246 | }, |
245 | SDL_MOUSEBUTTONDOWN() => sub { |
247 | SDL_MOUSEBUTTONDOWN() => sub { |
246 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
248 | Crossfire::Client::Widget::feed_sdl_button_down_event ($SDL_EV); |
247 | }, |
249 | }, |
248 | SDL_MOUSEBUTTONUP() => sub { |
250 | SDL_MOUSEBUTTONUP() => sub { |