[cells-cvs] CVS Celtk

[ktilton]

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv29683

Modified Files:
	Celtk.lisp ltktest-cells-inside.lisp 
Log Message:
getting a little fancier on the entry widget in ltktest-cells-inside

--- /project/cells/cvsroot/Celtk/Celtk.lisp	2006/03/23 18:25:24	1.5
+++ /project/cells/cvsroot/Celtk/Celtk.lisp	2006/03/23 20:57:53	1.6
@@ -274,8 +274,8 @@
             into slot-defs
             when tk-option
             collecting `(defobserver ,slot-name ((self ,class))
-                          (when (and new-value old-value-boundp)
-                            (tk-configure self ,(string tk-option) new-value)))
+                          (when old-value-boundp
+                            (tk-configure self ,(string tk-option) (or new-value ""))))
             into outputs
             finally (return (values slot-defs outputs)))
       `(progn
--- /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/03/23 18:25:24	1.5
+++ /project/cells/cvsroot/Celtk/ltktest-cells-inside.lisp	2006/03/23 20:57:53	1.6
@@ -163,7 +163,20 @@
                              :relief 'sunken)
                      (mk-label :text "Test:")
                      (mk-button-ex ("OK:" (setf (moire-spin (fm^ :moire-1)) 20))))
-                   (mk-entry :id :entry)
+                   (mk-entry :id :entry
+                     :background (c? (if (entry-warning .tkw)
+                                         ;
+                                         ; ok, this is silly, the validation is entry-specific
+                                         ; and should be a rule applied to this entry widget, but I 
+                                         ; will leave it silly to make clear that cells of an instance
+                                         ; can depend on cells of other instances
+                                         ;
+                                         ; so what is .tkw? A symbol macro for (nearest self window).
+                                         ; what is nearest? It searches up the Family tree from
+                                         ; self inclusive searching for something (typep 'window)
+                                         ;
+                                       "red"
+                                       'SystemButtonFace)))
                    (mk-button-ex ("get!" (format t "~&content of entry: ~A" (fm^v :entry))))
                    ;
                    ; fm^v -> (md-value (fm^ ....