--- a/LabelledEnterField.st	Wed Dec 21 20:25:09 1994 +0100
+++ b/LabelledEnterField.st	Mon Feb 06 01:57:39 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -11,22 +11,49 @@
 "
 
 View subclass:#LabelledEnterField
-         instanceVariableNames:'labelField textField'
-         classVariableNames:''
-         poolDictionaries:''
-         category:'Views-Interactors'
+	 instanceVariableNames:'labelField textField'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'Views-Interactors'
 !
 
 LabelledEnterField comment:'
 COPYRIGHT (c) 1991 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-An EnterField with a name.
-
-$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.2 1994-10-10 03:13:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.3 1995-02-06 00:57:33 claus Exp $
 written winter 91 by claus
 '!
 
+!LabelledEnterField class methodsFor:'documentation'!
+
+documentation
+"
+    An EnterField with a name.
+
+"
+!
+
+version
+"
+$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.3 1995-02-06 00:57:33 claus Exp $
+"
+!
+
+copyright
+"
+ COPYRIGHT (c) 1991 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+! !
+
 !LabelledEnterField methodsFor:'initialization'!
 
 initialize
@@ -39,9 +66,9 @@
     labelField origin:[margin @ (margin + textField margin)].
     textField := EditField in:self.
     textField origin:[(labelField origin x + labelField width) @ level]
-              extent:[(self width 
-                      - margin - margin
-                      - labelField width) @ (textField heightIncludingBorder)].
+	      extent:[(self width 
+		      - margin - margin
+		      - labelField width) @ (textField heightIncludingBorder)].
     self keyboardHandler:textField
 
     "LabelledEnterField new realize"