Update

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

diff --git a/pages/blog-0006.html-inc b/pages/blog-0006.html-inc
index c38a1a7..83a05ba 100644 (file)
--- a/pages/blog-0006.html-inc
+++ b/pages/blog-0006.html-inc
@@ -1,6 +1,6 @@
-<div class="blog">\r
-<h1 id="NAME">\r
-Design of SDL::Rect\r
-</h1>\r
-<div class="CONTENT">\r
-<div style="text-align: right;"><i><br />you say things,<br />I hear,<br />but don't listen,<br /><br />you show things,<br />I see,<br />but don't understand,<br /><br />you write things,<br />I read,<br />but don't know.<br /></i></div><br />Lately we have been working on cleaning up the XS name spaces of SDL perl. After some bumps and falls we came up with a separated Rect module. Rect is one of the most simple C struct as shown below. <br /><br /><script src="http://gist.github.com/185940.js"></script><br /><br />Using the awesome <a href="http://cpansearch.perl.org/src/DMR/CookBookB-19960430/perlobject.map">perlobject.map</a> as a reference I was able to create a <a href="http://github.com/kthakore/SDL_perl/blob/a1b835c168ec184abc01edbc01862ffa15624c26/lib/SDL/Rect.pm">blessed perl</a> object in <a href="http://github.com/kthakore/SDL_perl/blob/a1b835c168ec184abc01edbc01862ffa15624c26/src/Rect.xs">XS</a>. So now SDL::Rect-&gt;new(...) gave us a blessed reference ready to go. And as an icing it would destroy itself properly no matter where it was used. But once I brought it into our existing code base, garu pointed out the extending it was a little bit of a mess. So far to extend Rect we have to something like below. Any comment or advice would be much appreciated.<br /><br /><br /><script src="http://gist.github.com/185938.js"></script><br /><br /><br />Have at it I am a big boy. You can grab the code like this.<br />Only If you don't already have a local git repo:<br /><br /><blockquote>mkdir SDL<br />cd SDL<br />git init .</blockquote><br />Then do this or skip to this if you already have a local git repo<br /><blockquote>git pull git://github.com/kthakore/SDL_perl.git experimental</blockquote><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-3340771783563950133?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