--- a/TextBox.st	Sat Feb 04 22:18:22 2017 +0100
+++ b/TextBox.st	Sat Feb 04 22:18:40 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -194,22 +192,28 @@
 !TextBox methodsFor:'accessing'!
 
 contents
-    "return my contents"
+    "return my contents (i.e. possibly modified text after accept)"
 
     ^ textView contents
+
+    "Modified (comment): / 04-02-2017 / 18:01:03 / cg"
 !
 
 initialText:aString
-    "define the initial text in the enterfield"
+    "define the initial text in the texteditor"
 
     textView contents:aString
+
+    "Modified (comment): / 04-02-2017 / 18:01:16 / cg"
 !
 
 readOnly:aBoolean
     "make my text readOnly or readWrite"
 
     textView readOnly:aBoolean
-!
+! !
+
+!TextBox methodsFor:'accessing-contents'!
 
 textView
     ^ textView
@@ -291,10 +295,10 @@
 !TextBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.25 2015-05-04 13:47:26 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.25 2015-05-04 13:47:26 cg Exp $'
+    ^ '$Header$'
 ! !