<div class="blog">
<h1 id="NAME">
-SDL perl is coming to Strawberry!!
+Hello Mouse? An Example of the New Event Code
</h1>
<div class="CONTENT">
-<div style="text-align: right;"><i>I am a part of all that I have met. --</i>Alfred Tennyson <br /></div><div style="text-align: right;"> </div>I hope I am not jumping the gun but it looks good. This is all thanks to kmx!!<br /><br />Here is an obligatory pic since my last post on this matter. (That is one of the test script you can run for test/ in the distrobution).<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://2.bp.blogspot.com/_NnqjAQEn1Xo/SpWUmSBlt-I/AAAAAAAAAAc/hPZjdppeyu0/s1600-h/ok.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://2.bp.blogspot.com/_NnqjAQEn1Xo/SpWUmSBlt-I/AAAAAAAAAAc/hPZjdppeyu0/s320/ok.bmp" /></a></div><br /><br />You can follow the history <a href="https://rt.cpan.org/Ticket/Display.html?id=49003">here</a>.<br /><br />It has been tested on winXP 32/64 bit strawberry so far. Here is how you can get it.<br /><br /><ol><li>Go here to get the <a href="http://github.com/kthakore/SDL_perl/">code</a> </li><li>Click download, choose .tar.gz</li><li>Save the resultant kthakore....tar.gz somewhere</li><li>Get <a href="http://cloud.github.com/downloads/kthakore/SDL_perl/libsdl-1.2.13-bin_20090825.ZIP">this</a> and extract it on C:/strawberry/ </li><li><b>Last do pip kthakore......tar.gz </b>(I find this so amazing!!)<b></b></li><li><b>Play with C:/strawberry/cpan/build/SDL/test/*.pl </b></li><ul><li><b>or post a <a href="https://rt.cpan.org/Ticket/Display.html?id=49003">bug report</a> <br /></b></li></ul></ol><blockquote>Enjoy</blockquote>--yapgh<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-8353082216465109784?l=yapgh.blogspot.com'/></div></div></div>
\ No newline at end of file
+<div style="text-align: right;"><i>Any code that is not marketed is dead code <br />
+--mst</i><br />
+</div><br />
+You need the new code from the <b> <a href="http://http://github.com/kthakore/SDL_Perl/tree/redesign">redesign branch</a></b> to use this . <br />
+<br />
+<pre class="fake-gist" id="fake-gist-231987">#!/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);
+}</pre><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4268622242266513664?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/0/da"><img src="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/1/da"><img src="http://feedads.g.doubleclick.net/~a/VcCMh0XKi92JWmYoQnOB3cQLHtY/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/xhzWiodiKJI" height="1" width="1"/></div></div>
\ No newline at end of file