Changeset 36 for trunk/samples

Timestamp:

08/02/2007 12:04:04 (13 months ago)

Author:

why

Message:

* shoes/canvas.c: added Canvas#after, Canvas#before, Canvas#append, Canvas#prepend and added a block to Canvas#clear so you can just wipe a stack/flow and fill it with new elements.

Files:

• trunk/samples/rect.rb (modified) (1 diff)

trunk/samples/rect.rb

@@ -1 @@
-Shoes.app do
+rectangles = proc do
   20.times do
     nostroke
-    fill rand(0.4) + 0.6, rand(0.1) + 0.9, rand(0.2) + 0.8, rand(0.4) + 0.1
+    fill rand(0.6) + 0.4, rand(0.1) + 0.9, rand(0.2) + 0.8, rand(0.4) + 0.1
     r = rand(300) + 60
     rect rand(100), rand(200), r, r
   end
   button "OK", :x => 300, :y => 400 do
-    quit
+    clear
+    append &rectangles
   end
 end
+
+Shoes.app &rectangles