Updated

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

diff --git a/pages/blog-0003.html-inc b/pages/blog-0003.html-inc
index 9299b79..33ffb48 100644 (file)
--- a/pages/blog-0003.html-inc
+++ b/pages/blog-0003.html-inc
@@ -1,6 +1,20 @@
 <div class="blog">
 <h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+SDL 2.511 + Using SDL for quick visualizations
 </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'/></div></div></div>
\ No newline at end of file
+SDL Perl 2.511 is showing great promises. The initial tests show a great deal of stability.&nbsp;<a href="http://search.cpan.org/~kthakore/SDL-2.511/">http://search.cpan.org/~kthakore/SDL-2.511/</a><br />
+<br />
+&nbsp;Moreover we are seeing more varied users of SDL Perl.<br />
+<br />
+John.O Writes:<br />
+<hr /><br />
+This is for a tool that we'll be providing our dealers... it measures cellular modem signal strengths out in the middle of nowhere, so dealers can evaluate if our products will work in customers' fields. And of course, I'm using Perl/SDL for the graphics... C gets on my nerves.<br />
+<br />
+Our company is <a href="http://smartfield.com/">http://smartfield.com</a>.<br />
+<br />
+John O.<br />
+<br />
+<div class="separator" style="clear: both; text-align: center;"><a href="http://sdlperl.ath.cx/screenshot2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="192" src="http://sdlperl.ath.cx/screenshot2.png" width="320" /></a></div><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4625022127595563867?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/4ef14C7N9N6loLPCw2LnQe-salU/0/da"><img src="http://feedads.g.doubleclick.net/~a/4ef14C7N9N6loLPCw2LnQe-salU/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/4ef14C7N9N6loLPCw2LnQe-salU/1/da"><img src="http://feedads.g.doubleclick.net/~a/4ef14C7N9N6loLPCw2LnQe-salU/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/taMSrti4vNc" height="1" width="1"/></div></div>
\ No newline at end of file