[cells-cvs] CVS Celtk

[fgoenninger]

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