[pal-cvs] CVS pal-gui/examples

[tneste]

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

Modified Files:
	test.lisp 
Log Message:


--- /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/22 19:25:23	1.8
+++ /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/24 19:59:56	1.9
@@ -1,7 +1,7 @@
 ;; TODO:
 ;;
 ;; Exports, window sizing, box labels, dialogs, menus, tooltips, keyboard control, scrollwheel, fix pal's clipping
-;; label, radio box, check box, joystick, scroll box, fix listbox, fix gauge, paragraph, text box, simple editor, drop box.
+;; label, radio box, check box, joystick, scroll box, paragraph, text box, simple editor, drop box, tree view, gridbox
 ;; File open/save, directory, yes/no dialogs
 
 (in-package :pal-gui)
@@ -28,11 +28,14 @@
                                        :min-value 0 :max-value 255 :value 0))
            (ag (make-instance 'h-gauge :parent left-box
                                        :min-value 0 :max-value 255 :value 0))
-           (list (make-instance 'list-box :parent window-2 :items (loop for i from 0 to 100 collect (format nil "FooBar ~a" i))))
-           (button (make-instance 'button :value "FooBar!" :parent window-2 :on-select (lambda (g pos) (message 'foo) (setf (parent-of g) nil)))))
+           (list (make-instance 'list-box :parent window-2 :items (loop for i from 0 to 30 collect (format nil "FooBar ~a" i))
+                                                           :multip nil
+                                                           :on-select (lambda (g)
+                                                                        (message (value-of g)))))
+           (button (make-instance 'button :value "FooBar!" :parent window-2 :on-select (lambda (g) (message 'foo) (setf (parent-of g) nil))))
+           (choice (make-instance 'choice-box :label "Foo" :parent window-2 :items '(Foo Bar Bazzo))))
 
       (make-instance 'button :value "Button" :parent bottom-box)
-
       (gui-loop ()
         (setf (value-of meter) (get-fps))
         (draw-image* (tag 'tile) (v 0 0) (v 0 0) 800 600)