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^ ....