[pal-cvs] CVS pal-gui/examples

[tneste]

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