[pal-cvs] CVS pal-gui/examples

[tneste]

Update of /project/pal/cvsroot/pal-gui/examples
In directory clnet:/tmp/cvs-serv7862/examples

Modified Files:
	test.lisp 
Log Message:


--- /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/22 12:03:24	1.7
+++ /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/22 19:25:23	1.8
@@ -10,8 +10,8 @@
              tile (load-image "ground.png"))
 
 (defun test ()
-  (with-gui (:paths (merge-pathnames "examples/" pal::*pal-directory*))
-    (let* ((window (make-instance 'window :pos (v 200 200) :width 300 :height 230))
+  (with-gui (:fps 200 :paths (merge-pathnames "examples/" pal::*pal-directory*))
+    (let* ((window (make-instance 'window :pos (v 200 200) :width 300 :height 350))
            (window-2 (make-instance 'window :width 200 :height 300))
 
            (box (make-instance 'h-box :parent window))
@@ -32,7 +32,7 @@
            (button (make-instance 'button :value "FooBar!" :parent window-2 :on-select (lambda (g pos) (message 'foo) (setf (parent-of g) nil)))))
 
       (make-instance 'button :value "Button" :parent bottom-box)
-      (pack list)
+
       (gui-loop ()
         (setf (value-of meter) (get-fps))
         (draw-image* (tag 'tile) (v 0 0) (v 0 0) 800 600)