-Hello Mouse? An Example of the New Event Code +Release SDL 2.4: Frozen-Bubble begins to go to CPAN
-
-You need the new code from the redesign branch to use this .
+
+SDL 2.4 is released!
-
-
Any code that is not marketed is dead code
---mst
-
---mst
-
-You need the new code from the redesign branch to use this .
+
+SDL 2.4 is released!
-
#!/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);
-}
-
