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)