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)