X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2FSDL-Event.html-inc;h=0ad70735b63dbe47155b0a8c85484b0cc478d5e9;hb=a3de848879a5553418ed11fb193c4bf286ca7120;hp=b1f25a9e24c1fa3c4669e9414727433c69695409;hpb=46beffd8f76fe150d946bf61c780e61de2affbdf;p=sdlgit%2FSDL-Site.git diff --git a/pages/SDL-Event.html-inc b/pages/SDL-Event.html-inc index b1f25a9..0ad7073 100644 --- a/pages/SDL-Event.html-inc +++ b/pages/SDL-Event.html-inc @@ -78,7 +78,7 @@
use SDL::Event; # for the event object itself - use SDL::Events qw(pump_events poll_event); # functions for event queue handling +use SDL::Event; # for the event object itself + use SDL::Events; # functions for event queue handling SDL::init(SDL_INIT_VIDEO); my $event = SDL::Event->new(); while(1) { - pump_events(); + SDL::Events::pump_events(); - if(poll_event($event)) + if(SDL::Events::poll_event($event)) { if($event->type == SDL_MOUSEBUTTONDOWN) { @@ -165,7 +165,7 @@ which union member relates to which eventtype
.Available type constants:
SDL::Events::push_event
. The contents of the
programmer, the only requirement is that type is a value from SDL_USEREVENT
to SDL_NUMEVENTS-1
(inclusive)
my $event = SDL::Event->new(); $event->type ( SDL_USEREVENT + 3 ); - $event->event_code(10); - $event->data1('hello event'); + $event->user_code(10); + $event->user_data1('hello event'); SDL::Events::push_event($event); @@ -552,8 +552,9 @@ screen updates will still report success even though the application will no lonNote: The macro SDL_QuitRequested will return non-zero if a quit event is pending