[cells-cvs] CVS Celtk

[fgoenninger]

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

Modified Files:
	entry.lisp 
Log Message:
Changed: Text widget md-value propagation to Tcl.

--- /project/cells/cvsroot/Celtk/entry.lisp	2006/05/28 23:40:32	1.12
+++ /project/cells/cvsroot/Celtk/entry.lisp	2006/05/31 05:08:25	1.13
@@ -16,7 +16,7 @@
 
 |#
 
-;;; $Header: /project/cells/cvsroot/Celtk/entry.lisp,v 1.12 2006/05/28 23:40:32 fgoenninger Exp $
+;;; $Header: /project/cells/cvsroot/Celtk/entry.lisp,v 1.13 2006/05/31 05:08:25 fgoenninger Exp $
 
 (in-package :Celtk)
 
@@ -100,14 +100,23 @@
                              (setf (^modified) t)))))
                        ))))
 
+(defmethod clear ((self text-widget))
+  (setf (md-value self) nil))
+
 (defobserver .md-value ((self text-widget))
   (trc nil "md-value output" self new-value)
   (with-integrity (:client `(:variable ,self))
     (tk-format-now "~a delete 1.0 end" (^path))
     (when (plusp (length new-value))
-      (tk-format-now "~a insert end {~a}" (^path) new-value)))) ;; kt060528: simple {} seems to block evaluation
+      (trc "*** md-value text widget: new-value" new-value)
+      (tk-format-now "~a insert end {~a}" (^path) new-value)) ;; kt060528: simple {} seems to block evaluation
     ;; Yes, it does. But we had to change ~s to ~a also in order to prevent
     ;; side effects - frgo 2006-05-29 1:30 am ;-)
+    (tk-format-now "update idletasks"))) ;; Causes a display update after each text widget operation.
+
+;; The beginnings of a new text widget api:
+;; (defmethod insert ((self text-widget) &rest args)
+;;   (tk-format-now ))
 
 ;;;(defvar +tk-keysym-table+
 ;;;  (let ((ht (make-hash-table :test 'string=)))