develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35070 - trunk/examples/sdl/tetris

From:
kjs
Date:
January 6, 2009 11:07
Subject:
[svn:parrot] r35070 - trunk/examples/sdl/tetris
Message ID:
20090106190749.AA168CB9F9@x12.develooper.com
Author: kjs
Date: Tue Jan  6 11:07:49 2009
New Revision: 35070

Modified:
   trunk/examples/sdl/tetris/eventhandler.pir

Log:
[examples] fix old syntax/semantics of PIR.
invokecc $P0\nret = I5 ==> ret = $P0()

Modified: trunk/examples/sdl/tetris/eventhandler.pir
==============================================================================
--- trunk/examples/sdl/tetris/eventhandler.pir	(original)
+++ trunk/examples/sdl/tetris/eventhandler.pir	Tue Jan  6 11:07:49 2009
@@ -40,8 +40,7 @@
     app = self."app"()
     app."setTimer"( 0 )
     $P0 = find_global "SDL::Event", "disptach_event"
-    invokecc $P0
-    ret = I5
+    ret = $P0()
     app."setTimer"( 1 )
     .return (ret)
 .end



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About