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

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

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