Author: kjs
Date: Tue Jan 6 11:27:15 2009
New Revision: 35073
Modified:
trunk/examples/sdl/minesweeper/field.pir
Log:
[examples] fix old syntax. new $I0-> new "SDL::Image".
and other fixes.
Modified: trunk/examples/sdl/minesweeper/field.pir
==============================================================================
--- trunk/examples/sdl/minesweeper/field.pir (original)
+++ trunk/examples/sdl/minesweeper/field.pir Tue Jan 6 11:27:15 2009
@@ -294,7 +294,7 @@
field = .ITERATE_FROM_START
cache = getattribute self, 'cache'
- cacheit = new Iterator, cache
+ cacheit = new "Iterator", cache
cacheit = .ITERATE_FROM_START
screen = getattribute self, 'screen'
@@ -697,7 +697,7 @@
$P1 = getattribute self, 'screen'
- $P0.draw( $P1 )
+ $P0."draw"( $P1 )
END:
.end
@@ -980,7 +980,7 @@
$P0 = new 'String'
$P0 = "examples/sdl/minesweeper/mines_debug.png"
- image = new $I0, $P0
+ image = new "SDL::Image", $P0
store_global "Mines::Field", "field_debug", image
newclass $P0, "Mines::Field"
