cvsuser 04/11/30 01:53:50
Modified: runtime/parrot/library/SDL Button.imc
Log:
fix to make minesweeper work again
Revision Changes Path
1.3 +2 -0 parrot/runtime/parrot/library/SDL/Button.imc
Index: Button.imc
===================================================================
RCS file: /cvs/public/parrot/runtime/parrot/library/SDL/Button.imc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Button.imc 7 Sep 2004 13:40:55 -0000 1.2
+++ Button.imc 30 Nov 2004 09:53:50 -0000 1.3
@@ -85,6 +85,7 @@
# rect
inc $I0
$I1 = find_type 'SDL::Rect'
+ argcP = 0 # XXX
$P0 = new $I1
setattribute self, $I0, $P0
@@ -204,6 +205,7 @@
clicked = getattribute self, $I0
$I1 = find_type 'SDL::Rect'
+ argcP = 0 # XXX
srect = new $I1
$I1 = drect.'height'()
