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

[svn:parrot] r35073 - trunk/examples/sdl/minesweeper

From:
kjs
Date:
January 6, 2009 11:27
Subject:
[svn:parrot] r35073 - trunk/examples/sdl/minesweeper
Message ID:
20090106192715.BEF0CCB9F9@x12.develooper.com
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"



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