X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2Fblog-0014.html-inc;fp=pages%2Fblog-0014.html-inc;h=e65be37dd7211e92b433042690e9c72fb1ba4899;hb=56d4907c407e8564b4a8a9d09e252573131fad3e;hp=f5d4032823b6c03d8dddcead7217e725791e5374;hpb=a8a21960f071bf93e73815cd9fe25b96d5c98cd0;p=sdlgit%2FSDL-Site.git diff --git a/pages/blog-0014.html-inc b/pages/blog-0014.html-inc index f5d4032..e65be37 100644 --- a/pages/blog-0014.html-inc +++ b/pages/blog-0014.html-inc @@ -1,26 +1,36 @@
#!/usr/bin/env perl + +use SDL; +use SDL::Events; +use SDL::Event; +use SDL::Video; + +SDL::init(SDL_INIT_VIDEO); + +my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE ); +my $event = SDL::Event->new(); + +while(1) +{ + SDL::Events::pump_events(); + + if(SDL::Events::poll_event($event) && $event->type == SDL_ACTIVEEVENT) + { + print "Hello Mouse!!!\n" if ($event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) ); + print "Bye Mouse!!!\n" if (!$event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) ); + } + + exit if($event->type == SDL_QUIT); +}+ \ No newline at end of file