--- a/EditTextView.st	Thu Apr 02 09:06:09 2015 +0100
+++ b/EditTextView.st	Thu Apr 02 09:09:37 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3981,9 +3983,13 @@
         ]
     ] ifFalse:[
         self replaceString:aString atLine:cursorLine col:cursorCol.
-        self cursorCol:(cursorCol + aString size).
-    ].
-    self makeCursorVisibleAndShowCursor:wasOn.
+        self setValidatedCursorCol:(cursorCol + aString size).
+        "/ self cursorCol:(cursorCol + aString size).
+    ].
+    wasOn ifTrue:[
+        self sensor pushUserEvent:#makeCursorVisibleAndShowCursor: for:self withArguments:{ wasOn } 
+        "/ self makeCursorVisibleAndShowCursor:wasOn.
+    ].
 
     "Created: / 9.6.1998 / 20:33:20 / cg"
     "Modified: / 20.6.1998 / 19:41:02 / cg"
@@ -6397,6 +6403,7 @@
                         ('-'                                                      )
                         ('Open FileBrowser on It'      openFileBrowserOnIt        )
                         ('Open Workspace with It'      openWorkspaceWithIt        )
+                        ('Inspect String'              inspectSelectedString      )
                   ).
     ].
 
@@ -6741,6 +6748,12 @@
     self keyRelease:unicodeChar x:0 y:0.
 !
 
+inspectSelectedString
+    "inspect the selected text"
+
+    self selectionAsString inspect.
+!
+
 internalSpellingSuggestion
     "insert the internal-spelling suggestion for the selected text.
      Requires that the RefactoryBrowser/line/spelCheck stuff is loaded."
@@ -8978,11 +8991,11 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.635 2015-02-24 15:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.637 2015-03-27 13:12:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.635 2015-02-24 15:46:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.637 2015-03-27 13:12:57 cg Exp $'
 !
 
 version_HG