[pal-cvs] CVS pal-gui/examples

[tneste]

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

Modified Files:
	test.lisp 
Log Message:
Fixed packing. I think.

--- /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/17 17:02:52	1.6
+++ /project/pal/cvsroot/pal-gui/examples/test.lisp	2007/10/22 12:03:24	1.7
@@ -1,10 +1,9 @@
 ;; TODO:
 ;;
-;; Exports, gob picking, packing, destroy gob, window sizing, box labels, dialogs, menus, tooltips, keyboard control, scrollwheel
+;; 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.
 ;; File open/save, directory, yes/no dialogs
 
-
 (in-package :pal-gui)
 
 (define-tags plane (load-image "lego-plane.png")
@@ -30,18 +29,16 @@
            (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) t)))
-           )
-
-      ;; (make-instance 'button :value "Button" :parent bottom-box)
+           (button (make-instance 'button :value "FooBar!" :parent window-2 :on-select (lambda (g pos) (message 'foo) (setf (parent-of g) nil)))))
 
+      (make-instance 'button :value "Button" :parent bottom-box)
+      (pack list)
       (gui-loop ()
         (setf (value-of meter) (get-fps))
         (draw-image* (tag 'tile) (v 0 0) (v 0 0) 800 600)
         (with-blend (:color '(0 0 0 64))
           (draw-image (tag 'plane) (v 320 220)))
         (with-blend (:color (list (value-of rg) (value-of gg) (value-of bg) (value-of ag)))
-          (draw-image (tag 'plane) (v 300 200)))
-        ))))
+          (draw-image (tag 'plane) (v 300 200)))))))
 
 ;; (test)
\ No newline at end of file