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

[svn:parrot] r35075 - trunk/examples/sdl/lcd

From:
kjs
Date:
January 6, 2009 11:33
Subject:
[svn:parrot] r35075 - trunk/examples/sdl/lcd
Message ID:
20090106193313.F3AC3CB9F9@x12.develooper.com
Author: kjs
Date: Tue Jan  6 11:33:13 2009
New Revision: 35075

Modified:
   trunk/examples/sdl/lcd/clock.pir

Log:
[examples] more clock fixes. If only I could my own clock.

Modified: trunk/examples/sdl/lcd/clock.pir
==============================================================================
--- trunk/examples/sdl/lcd/clock.pir	(original)
+++ trunk/examples/sdl/lcd/clock.pir	Tue Jan  6 11:33:13 2009
@@ -38,18 +38,18 @@
 
     .local pmc screen
     screen = app.'surface'()
-    set_global 'screen' = screen
+    set_global 'screen', screen
 
     # create the LCD
     .local pmc lcd
     lcd = new 'SDL::LCD'
-    set_global 'LCD' = lcd
+    set_global 'LCD', lcd
 
     # draw the watch
     drawWatch()
 
     # create the timer
-    $P1 = global "drawWatch"
+    $P1 = get_global "drawWatch"
     $P0 = new 'Timer'
     $P0[.PARROT_TIMER_NSEC] = 0.5
     $P0[.PARROT_TIMER_HANDLER] = $P1
@@ -57,7 +57,7 @@
     $P0[.PARROT_TIMER_RUNNING] = 1
     # store the timer somewhere, it will be
     # collected and destroyed otherwise
-    set_global "timer" = $P0
+    set_global "timer", $P0
 
     #
     # event loop



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