Update

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

diff --git a/pages/blog-0005.html-inc b/pages/blog-0005.html-inc
index 83a05ba..ef14036 100644 (file)
--- a/pages/blog-0005.html-inc
+++ b/pages/blog-0005.html-inc
@@ -1,6 +1,10 @@
 <div class="blog">
 <h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+Games::FrozenBubble: It is a start!
 </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 /><br /><pre class="fake-gist" id="fake-gist-231987">#!/usr/bin/env perl<br /><br />use SDL;<br />use SDL::Events;<br />use SDL::Event;<br />use SDL::Video; <br /><br />SDL::init(SDL_INIT_VIDEO);<br /><br />my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );<br />my $event   = SDL::Event-&gt;new(); <br /><br />while(1)<br />{   <br /> SDL::Events::pump_events();  <br /><br /> if(SDL::Events::poll_event($event) &amp;&amp; $event-&gt;type == SDL_ACTIVEEVENT)<br /> {<br />  print "Hello Mouse!!!\n" if ($event-&gt;active_gain  &amp;&amp; ($event-&gt;active_state == SDL_APPMOUSEFOCUS) );<br />  print "Bye Mouse!!!\n"   if (!$event-&gt;active_gain &amp;&amp; ($event-&gt;active_state == SDL_APPMOUSEFOCUS) );<br /> }   <br /> <br /> exit if($event-&gt;type == SDL_QUIT);<br />}</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></div></div>
\ No newline at end of file
+We released a playable (client) frozen bubble on <a href="http://search.cpan.org/%7Ekthakore/Games-FrozenBubble-0.001_1/lib/Games/FrozenBubble.pm">CPAN</a>. There is more work to be done but it is a great start! It currently works on Windows and Linux.<br />
+<br />
+<div class="separator" style="clear: both; text-align: center;"><a href="http://3.bp.blogspot.com/_NnqjAQEn1Xo/S8Ov0uLjD4I/AAAAAAAAAK8/_OhraQBd1iE/s1600/a.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://3.bp.blogspot.com/_NnqjAQEn1Xo/S8Ov0uLjD4I/AAAAAAAAAK8/_OhraQBd1iE/s320/a.png" /></a></div><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4730357979252159221?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/28KepidbDodIEOBBaPgsiIFpD3o/0/da"><img src="http://feedads.g.doubleclick.net/~a/28KepidbDodIEOBBaPgsiIFpD3o/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/28KepidbDodIEOBBaPgsiIFpD3o/1/da"><img src="http://feedads.g.doubleclick.net/~a/28KepidbDodIEOBBaPgsiIFpD3o/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/gHnHwFtAvFE" height="1" width="1"/></div></div>
\ No newline at end of file