Added new article

[sdlgit/SDL-Site.git] / pages / blog-0023.html-inc

diff --git a/pages/blog-0023.html-inc b/pages/blog-0023.html-inc
index c789e70..e65be37 100644 (file)
--- a/pages/blog-0023.html-inc
+++ b/pages/blog-0023.html-inc
@@ -1,6 +1,36 @@
 <div class="blog">
 <h1 id="NAME">
-Alien::SDL 0.01 released!!!
+Hello Mouse? An Example of the New Event Code
 </h1>
 <div class="CONTENT">
-<div style="text-align: right;"><div class="separator" style="clear: both; text-align: center;"></div><div style="text-align: left;"></div><i>I just code</i><br /><i>don't know where it leads</i><br />or<br /><i>how I will get there</i><br /><i>I just code </i><br /><a href="http://3.bp.blogspot.com/_NnqjAQEn1Xo/SpawTrdopaI/AAAAAAAAAAs/YZZzXDPh1a8/s1600-h/screen.bmp" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/_NnqjAQEn1Xo/SpawTrdopaI/AAAAAAAAAAs/YZZzXDPh1a8/s320/screen.bmp" /></a></div><br /><br />With yesterday's frantic coding to get windows compatibility setup we were left with a very crude way of installing. After some late night hacking I finally came up with Alias's <a href="http://use.perl.org/%7EAlias/journal/39476">suggestion</a> to have Alien::SDL. All thanks to Alias's&nbsp; generous access to his <a href="http://use.perl.org/%7EAlias/journal/39318">windows farm</a>, I was able to make a easier module to install SDL deps on windows. Future plans are in place to get sources and compile them for other platform.Hopefully a SDL perl release will be out soon to use Alien::SDL now.<br /><br /><br />The above script is in test/testsprite.pl. <br /><br />Until then you can do:<br /><blockquote><br />in cpan<br />cpan&gt;<b> install File::Fetch</b><br />cpan&gt; <b>install Archive::Extract</b><br />cpan&gt; <b>install Alien::SDL</b><br /><br />and in cmd <br /><b>pip http://cloud.github.com/downloads/kthakore/SDL_perl/SDL_Perl-v2.2.2.tar.gz</b></blockquote><br /><br />Please post any feedback here.<br /><br />Enjoy,<br /><i>yapgh</i><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-8996898299982319327?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-&gt;new(); 
+
+while(1)
+{   
+ SDL::Events::pump_events();  
+
+ if(SDL::Events::poll_event($event) &amp;&amp; $event-&gt;type == SDL_ACTIVEEVENT)
+ {
+  print "Hello Mouse!!!\n" if ($event-&gt;active_gain  &amp;&amp; ($event-&gt;active_state == SDL_APPMOUSEFOCUS) );
+  print "Bye Mouse!!!\n"   if (!$event-&gt;active_gain &amp;&amp; ($event-&gt;active_state == SDL_APPMOUSEFOCUS) );
+ }   
+ 
+ exit if($event-&gt;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