update

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

diff --git a/pages/blog-0020.html-inc b/pages/blog-0020.html-inc
index 65ae515..e65be37 100644 (file)
--- a/pages/blog-0020.html-inc
+++ b/pages/blog-0020.html-inc
@@ -1,6 +1,36 @@
 <div class="blog">
 <h1 id="NAME">
-Updates on Plan for v2.4
+Hello Mouse? An Example of the New Event Code
 </h1>
 <div class="CONTENT">
-<div style="text-align: right;"><i>A fierce storm came,<br />With a crash,<br />Old oaks went lame.</i></div><p>After some hunting for memory leaks, it became obvious that some   rewrite of XS will be necessary. Since this will be a big undertaking   I asked for some help from <a href="http://modernperlbooks.com/mt/index.html">chromatic</a> and <a href="http://onionstand.blogspot.com/">garu</a>. We came up with the   following plan for v2.4.</p><br /><p>Currently all XS is mapped to the SDL_perl module. This does not reflect the modular nature of the sdl libs. So the plan is to gradually move SDL structs and their respective functions to their correct namespaces. We will start with SDL::Rect as garu has <a href="http://github.com/garu/SDL_perl/commit/68210590cb457b273ba0f1f891d378b876dc6cd7">added many tests</a>   for it. This way the build system will be a lot easier to hack since Module::Build was made for one XS per module. Moreover we will move the Build utilities to Alien::SDL, making it even simpler. The main idea is to adhere to single responsibility principle and encapsulation. </p><br /><p>Obviously this will take some time and effort, but it will pay off in the long run. Any help will be greatly appreciated. <br /></p><i>--yapgh</i><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-5293501082670630307?l=yapgh.blogspot.com' alt='' /></div></div></div>
\ No newline at end of file
+<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
+
+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