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