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

Modified Files: files.lisp packing.lisp test.lisp Log Message: Version 0.1

--- /project/pal/cvsroot/pal-gui/examples/files.lisp 2007/10/29 21:09:20 1.2 +++ /project/pal/cvsroot/pal-gui/examples/files.lisp 2007/10/31 12:50:42 1.3 @@ -1,6 +1,7 @@ (in-package :pal-gui)

+;; a Toy file selector

(defclass file-widget (v-box) ((list-widget :accessor list-widget-of) @@ -14,7 +15,7 @@ (selected-of lg))))) (let ((hbox (make-instance 'h-box :parent g :gap 2 :y-expand-p nil))) (setf (text-widget-of g) (make-instance 'text-widget :parent hbox)) - (setf (select-of g) (make-instance 'button :x-expand-p nil :width (get-m) :value :box :parent hbox))) + (setf (select-of g) (make-instance 'button :x-expand-p nil :width *m* :value :box :parent hbox))) (update-view g))

(defmethod update-view ((g file-widget)) --- /project/pal/cvsroot/pal-gui/examples/packing.lisp 2007/10/30 20:44:45 1.3 +++ /project/pal/cvsroot/pal-gui/examples/packing.lisp 2007/10/31 12:50:42 1.4 @@ -45,7 +45,7 @@ (let* ((window (make-instance 'window :pos (v 200 200) :width 300 :height 200))) (let* ((hbox (make-instance 'h-box :parent window)) (box (make-instance 'box :label "Box" :parent window)) - (pin (make-instance 'pin :value "Foo" :g 30 :b 30 :parent box :pos (v 100 30))) + (pin (make-instance 'pin :value "Foo" :color (color 255 30 30 128) :parent box :pos (v 100 30))) (a (make-instance 'button :value "Button" :parent hbox)) (f (make-instance 'filler :parent hbox)) (b (make-instance 'button :value "Button" :parent hbox)) --- /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/30 20:44:45 1.13 +++ /project/pal/cvsroot/pal-gui/examples/test.lisp 2007/10/31 12:50:42 1.14 @@ -2,8 +2,8 @@ ;; ;; window sizing, dialogs, menus, keyboard control, scrollwheel ;; debugging utils, scrolling mixin -;; scroll box, paragraph, text box, simple editor, combo box, tree view, gridbox, property list -;; File open/save, choose directory, yes/no dialogs +;; scroll box, paragraph, text box, simple editor, combo box, tree view, gridbox, property list, tabs +;; File open/save, choose directory, yes/no dialogs, color selector

(defpackage :test (:use :cl :pal :pal-gui))