[pal-cvs] CVS pal-gui/examples

[tneste]

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")))