Author: bernhard
Date: Wed May 16 14:37:20 2007
New Revision: 18574
Modified:
trunk/examples/sdl/tetris/app.pir
Log:
[Tetris]
CREATE label was missing.
Add one and create a palette there.
Modified: trunk/examples/sdl/tetris/app.pir
==============================================================================
--- trunk/examples/sdl/tetris/app.pir (original)
+++ trunk/examples/sdl/tetris/app.pir Wed May 16 14:37:20 2007
@@ -316,6 +316,10 @@
getattribute palette, self, $I0
if_null palette, CREATE
branch RET
+CREATE:
+ (palette) = self."genPalette"()
+
+ branch RET
NULL:
print "warning: no color palette found!\n"
