updates for video

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

diff --git a/pages/blog-0003.html-inc b/pages/blog-0003.html-inc
index 130ac7b..83a05ba 100644 (file)
--- a/pages/blog-0003.html-inc
+++ b/pages/blog-0003.html-inc
@@ -1,6 +1,6 @@
-<div class="blog">\r
-<h1 id="NAME">\r
-HackFest: Results\r
-</h1>\r
-<div class="CONTENT">\r
-<div style="text-align: right;"><i>The beautiful sunset,</i><br /></div><div style="text-align: right;"><i>is no match for,</i><br /></div><div style="text-align: right;"><i>the ugly sunrise<br /></i><br /></div><h1>Results</h1>On Sunday we had a hackfest on #sdl irc.perl.org. This is what we got done.<br /><br /><div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/_NnqjAQEn1Xo/SsEsVovCs8I/AAAAAAAAABw/5wMJtyamCpo/s1600-h/sdl-tetris-osx.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="http://4.bp.blogspot.com/_NnqjAQEn1Xo/SsEsVovCs8I/AAAAAAAAABw/5wMJtyamCpo/s320/sdl-tetris-osx.png" /></a><br /></div><br /><br /><ol><li>MacOSX build is working again. It's still rough but Tetris works on it now. dngor++</li><li><a href="http://search.cpan.org/%7Ekthakore/SDL-Tutorial-Tetris-0.015/">SDL::Tutorial::Tetris</a> is on CPAN as v0.15. nferraz++</li><li><a href="http://github.com/m4gnet/SDL_perl/commit/9957e76f888ac71a911e3a71c2783141748d2387">SDL Perl docs</a> are a little better now. magnet++</li><li>Finally experimental <a href="http://github.com/kthakore/SDL_perl/tree/experimental">Rect and Game::Rect</a> are behaving. There is still more work needed in Game::Rect. Moreover there are more tests on the experimental release. garu++</li><li>Also POGL is <a href="http://sdlperl.pastebin.com/f78b8c1b9">working</a> experimentally with SDL. <br /></li></ol>Hopefully I can get the first three results into the next release soon. The next release 2.2.3 will go up as a developmental release first. Also the experimental branch is going up as version 2_4.<br /><br /><h1>Developers</h1>All developers please tell me what to put you guys want to be put down as on the  <br />in the Docs for the SDL Perl Team section.<br /><br />--yapgh<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-8724981068699019715?l=yapgh.blogspot.com'/></div></div>
\ No newline at end of file
+<div class="blog">
+<h1 id="NAME">
+Hello Mouse? An Example of the New Event Code
+</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