X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2Fblog-0003.html-inc;h=83a05ba23c0e352fd270773c2f64bbc88ba2ff59;hb=2ace59cf26fb88d05566c1697ab2cf236fef3791;hp=29b3a3a3f52b6ab436f7c302b96ec95dc81794d0;hpb=8d3f70f2a099e5c99545142b8dcb2368ab3f9b1f;p=sdlgit%2FSDL-Site.git diff --git a/pages/blog-0003.html-inc b/pages/blog-0003.html-inc index 29b3a3a..83a05ba 100644 --- a/pages/blog-0003.html-inc +++ b/pages/blog-0003.html-inc @@ -1,6 +1,6 @@
#!/usr/bin/env perl\ No newline at end of file
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);
}