Update of /project/pal/cvsroot/pal-gui/examples In directory clnet:/tmp/cvs-serv12729/examples
Modified Files: test.lisp Log Message: Improved packing.
--- /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/15 22:53:15 1.3 +++ /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/16 00:16:41 1.4 @@ -7,12 +7,14 @@ (with-gui (:paths (merge-pathnames "examples/" pal::*pal-directory*)) (let* ((window (make-instance 'window :pos (v 200 200) :width 300 :height 200)) (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 + (cont (make-instance 'h-container :parent window)) + (cont-2 (make-instance 'v-container :parent cont)) + (meter (make-instance 'h-meter :parent cont :max-value 80 :display-fn (lambda (v) (format nil "FPS: ~a" v)))) + (gauge (make-instance 'h-gauge :parent cont-2 :min-value 0 :max-value 255 :value 0 :display-fn (lambda (v) (format nil "R: ~a" v)))) - (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))))) + (button (make-instance 'button :value "FooBar!" :parent cont-2 :on-select (lambda (g pos) (message 'foo) t))) + (button (make-instance 'button :value "List" :parent window-2 :on-select (lambda (g pos) (message 'foo) t))) + (list (make-instance 'list-box :parent window-2 :items (loop for i from 0 to 100 collect (format nil "FooBar ~a" i)))))
(gui-loop () (setf (value-of meter) (get-fps))