X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2Fblog-0016.html-inc;h=5cffcd0ebb5354305adb3abd5629757838af7273;hb=e785862422f3e827a242fc244bd57b23443887ce;hp=e65be37dd7211e92b433042690e9c72fb1ba4899;hpb=c59d9ab1a32a69fcdb54ab78e21e31ee26d88e7a;p=sdlgit%2FSDL-Site.git diff --git a/pages/blog-0016.html-inc b/pages/blog-0016.html-inc index e65be37..5cffcd0 100644 --- a/pages/blog-0016.html-inc +++ b/pages/blog-0016.html-inc @@ -1,36 +1,18 @@

-Hello Mouse? An Example of the New Event Code +SDLpp.pl: Packaging SDL Scripts Alpha

-
Any code that is not marketed is dead code
---mst
-

-You need the new code from the redesign branch to use this .
+After a lot of patches and head scratching I have an alpha version of SDLpp.pl. The purpose of SDLpp.pl is to allow SDL perl developers to package their game for end users.

-
#!/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 +Here is the shooter.pl packaged up:
+
+
  1. win32/64
    2. +
  2. Linux 5.88
    3. +
  3. Linux 5.10
    4. +

+We are looking into testing this on a Mac Build server.
+
+Caio
+


+

\ No newline at end of file