--- a/EditTextView.st	Thu Mar 26 16:28:01 2015 +0100
+++ b/EditTextView.st	Fri Mar 27 14:12:57 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -6214,6 +6216,7 @@
                         ('-'                                                      )
                         ('Open FileBrowser on It'      openFileBrowserOnIt        )
                         ('Open Workspace with It'      openWorkspaceWithIt        )
+                        ('Inspect String'              inspectSelectedString      )
                   ).
     ].
 
@@ -6558,6 +6561,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."
@@ -8728,10 +8737,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.636 2015-03-24 15:25:09 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.636 2015-03-24 15:25:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.637 2015-03-27 13:12:57 cg Exp $'
 ! !