Author: kjs
Date: Tue Jan 6 11:30:52 2009
New Revision: 35074
Modified:
trunk/examples/sdl/lcd/clock.pir
Log:
[examples] fix usage of 'global' kw.
Modified: trunk/examples/sdl/lcd/clock.pir
==============================================================================
--- trunk/examples/sdl/lcd/clock.pir (original)
+++ trunk/examples/sdl/lcd/clock.pir Tue Jan 6 11:30:52 2009
@@ -38,12 +38,12 @@
.local pmc screen
screen = app.'surface'()
- global 'screen' = screen
+ set_global 'screen' = screen
# create the LCD
.local pmc lcd
lcd = new 'SDL::LCD'
- global 'LCD' = lcd
+ set_global 'LCD' = lcd
# draw the watch
drawWatch()
@@ -57,7 +57,7 @@
$P0[.PARROT_TIMER_RUNNING] = 1
# store the timer somewhere, it will be
# collected and destroyed otherwise
- global "timer" = $P0
+ set_global "timer" = $P0
#
# event loop
@@ -126,11 +126,11 @@
concat $S0, $S1
# set the time
- $P0 = global "LCD"
+ $P0 = get_global "LCD"
$P0 = $S0
# redraw the LCD
- $P1 = global "screen"
+ $P1 = get_global "screen"
$P0.'draw'( $P1 )
.end
