X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2Fblog-0002.html-inc;h=9299b799862e7bc55518e3f9ab444dcdbdf31115;hb=b3ef54ec01be4b60fc106acc290e3b95c644de00;hp=317fe8c9d1c92d201eee19fcb87292767ac9e5ff;hpb=ec946b6b14ea9423892698e8edfac4664f979b3c;p=sdlgit%2FSDL-Site.git diff --git a/pages/blog-0002.html-inc b/pages/blog-0002.html-inc index 317fe8c..9299b79 100644 --- a/pages/blog-0002.html-inc +++ b/pages/blog-0002.html-inc @@ -1,6 +1,6 @@

-Development Update +Hello Mouse? An Example of the New Event Code

-
Short and Sweet

Had an exam on the weekend so I am a bit late. Here is the progress so far.

SDL Smoke tests

The major release maybe coming quicker than we thought. FROGGS++ for helping a lot out on this. However we need more testers!! Please contact us on #sdl and we will set you up with an account on Smolder.

[Edit] Please read http://sdlperl.ath.cx/projects/SDLPerl/wiki/Testing on how to get started in test!
\ No newline at end of file +
Any code that is not marketed is dead code
--mst

You need the new code from the redesign branch to use this . 

#!/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