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

Modified Files: test.lisp Log Message: Added tooltips.

--- /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/29 21:09:20 1.11 +++ /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/30 00:20:40 1.12 @@ -1,6 +1,7 @@ ;; TODO: ;; -;; window sizing, dialogs, menus, tooltips, keyboard control, scrollwheel, fix pal's clipping, constrained mixin, scrolling mixin +;; window sizing, dialogs, menus, keyboard control, scrollwheel, fix pal's clipping +;; debugging utils, scrolling mixin ;; joystick, scroll box, paragraph, text box, simple editor, combo box, tree view, gridbox, property list ;; File open/save, choose directory, yes/no dialogs

@@ -14,7 +15,7 @@ (let* ((plane (load-image "lego-plane.png")) (tile (load-image "ground.png"))

- (window (make-instance 'window :pos (v 200 200) :width 300 :height 240)) + (window (make-instance 'window :pos (v 480 200) :width 300 :height 240)) (window-2 (make-instance 'window :width 200 :height 300))

(box (make-instance 'h-box :parent window)) @@ -39,6 +40,7 @@ :on-select (lambda (g) (message (selected-of g))))) (button (make-instance 'button :value :circle + :tooltip "Push me to change the listview" :parent window-2 :on-select (lambda (g) (setf (items-of list) (remove-if-not 'image-p pal-ffi::*resources*))))) (choice (make-instance 'choice-widget :label "Foo" :parent window-2 :items '("First" "Second" "and Third")))