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