Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv18540 Modified Files: entry.lisp Log Message: Removed function replace-dangerous-chars. Removed slot eval-text from text widget. --- /project/cells/cvsroot/Celtk/entry.lisp 2006/05/28 15:34:27 1.11 +++ /project/cells/cvsroot/Celtk/entry.lisp 2006/05/28 23:40:32 1.12 @@ -16,6 +16,8 @@ |# +;;; $Header: /project/cells/cvsroot/Celtk/entry.lisp,v 1.12 2006/05/28 23:40:32 fgoenninger Exp $ + (in-package :Celtk) ;---------------------------------------------------------------------------- @@ -68,9 +70,7 @@ (tcl-set-var *tki* (^path) new-value (var-flags :TCL-NAMESPACE-ONLY))))) (deftk text-widget (widget) - ((modified :initarg :modified :accessor modified :initform nil) - (eval-text :initarg :eval-text :accessor eval-text :initform (c-in t) - :documentation "Set to nil if you want to make sure text entries do not get evaluated. If set to nil the /dangerous charachters/ will be replaced by space char.")) + ((modified :initarg :modified :accessor modified :initform nil)) (:tk-spec text -background -borderwidth -cursor -exportselection (tkfont -font) -foreground @@ -106,20 +106,8 @@ (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 - -;; frgo, 2006-05-27: -;; replace-dangeorous-chars is meant to replace characters in a -;; sequence that would start/end evaluation in Tcl land. -(defun replace-dangerous-chars (seq &optional (dangerous-chars "[]{}")) - (assert (stringp seq)) - (let ((result seq)) - (loop for pos from 0 to (1- (length result)) - do - (let ((c (char result pos))) - (if (find c dangerous-chars) - (setf (char result pos) #\Space)))) - (values result))) ->>>>>>> 1.10 + ;; 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 ;-) ;;;(defvar +tk-keysym-table+ ;;; (let ((ht (make-hash-table :test 'string=)))