[pal-cvs] CVS pal-gui/examples

[tneste]

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

Modified Files:
	test.lisp 
Log Message:
Primitive widget packing.

--- /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/15 21:55:54	1.2
+++ /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/15 22:53:15	1.3
@@ -6,15 +6,13 @@
 (defun test ()
   (with-gui (:paths (merge-pathnames "examples/" pal::*pal-directory*))
     (let* ((window (make-instance 'window :pos (v 200 200) :width 300 :height 200))
-           (meter (make-instance 'h-meter :pos (v 30 50) :width 150 :parent window :max-value 80 :display-fn (lambda (v) (format nil "FPS: ~a" v))))
-           (gauge (make-instance 'h-gauge :pos (v 30 20)
-                                          :width 150
+           (window-2 (make-instance 'window :width 200 :height 300))
+           (meter (make-instance 'h-meter :width 150 :parent window-2 :max-value 80 :display-fn (lambda (v) (format nil "FPS: ~a" v))))
+           (gauge (make-instance 'h-gauge :width 150
                                           :parent window
                                           :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "R: ~a" v))))
-           (button (make-instance 'button :pos (v 100 100) :value "FooBar!"  :parent window :width 100 :on-select (lambda (g pos) (message 'foo) t)))
-
-           (window-2 (make-instance 'window :pos (v 20 20) :width 200 :height 300))
-           (list (make-instance 'list-box :pos (v 10 10) :parent window-2 :items (loop for i from 0 to 10 collect (format nil "FooBar ~a" i)))))
+           (button (make-instance 'button :value "FooBar!"  :parent window :width 100 :on-select (lambda (g pos) (message 'foo) t)))
+           (list (make-instance 'list-box :parent window-2 :items (loop for i from 0 to 10 collect (format nil "FooBar ~a" i)))))
 
       (gui-loop ()
         (setf (value-of meter) (get-fps))