Updated Articles

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

diff --git a/pages/blog-0016.html-inc b/pages/blog-0016.html-inc
index e65be37..5cffcd0 100644 (file)
--- a/pages/blog-0016.html-inc
+++ b/pages/blog-0016.html-inc
@@ -1,36 +1,18 @@
 <div class="blog">
 <h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+SDLpp.pl: Packaging SDL Scripts Alpha
 </h1>
 <div class="CONTENT">
-<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 />
+After a lot of patches and head scratching I have an alpha version of <a href="http://github.com/kthakore/SDL_perl/blob/eabffdcf5635fa1f78a9c87d7953a11215609630/scripts/SDLpp.pl">SDLpp.pl</a>. The purpose of SDLpp.pl is to allow SDL perl developers to package their game for end users. <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
+Here is the <a href="http://gist.github.com/301949">shooter.pl</a> packaged up:<br />
+<a href="http://www.megaupload.com/?d=R6XKW0E0"></a><br />
+<ol><li><a href="http://www.megaupload.com/?d=R6XKW0E0"> win32/64</a></li>
+<li><a href="http://froggs.de/shooter">Linux 5.88</a></li>
+<li><a href="http://sdlperl.ath.cx/releases/shooter.run">Linux 5.10 </a></li>
+</ol><br />
+We are looking into testing this on a Mac Build server.<br />
+<br />
+Caio<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-9080175881992996183?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/7PgtzoGFjbc4fTJmAi1gqhRiY2M/0/da"><img src="http://feedads.g.doubleclick.net/~a/7PgtzoGFjbc4fTJmAi1gqhRiY2M/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/7PgtzoGFjbc4fTJmAi1gqhRiY2M/1/da"><img src="http://feedads.g.doubleclick.net/~a/7PgtzoGFjbc4fTJmAi1gqhRiY2M/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/PqOR4e2XhaE" height="1" width="1"/></div></div>
\ No newline at end of file