--- a/ETxtView.st	Thu Jan 13 01:18:51 1994 +0100
+++ b/ETxtView.st	Sun Jan 16 05:02:06 1994 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
             All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.9 1994-01-13 00:15:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.10 1994-01-16 04:01:12 claus Exp $
 
 written jun-89 by claus
 '!
@@ -69,6 +69,9 @@
 !EditTextView methodsFor:'initialization'!
 
 initialize
+    "initialize a new EditTextView;
+     setup some instance variables"
+
     super initialize.
 
     self level:-1.
@@ -85,6 +88,8 @@
 !
 
 initStyle
+    "initialize style specific stuff"
+
     super initStyle.
     cursorFgColor := bgColor.
     device hasColors ifTrue:[
@@ -95,6 +100,8 @@
 !
 
 initializeMiddleButtonMenu
+    "initialize the views middleButtonMenu"
+
     |labels|
  
     labels := resources array:#(
@@ -165,6 +172,8 @@
 !
 
 realize
+    "make the view visible"
+
     super realize.
     cursorFgColor := cursorFgColor on:device.
     cursorBgColor := cursorBgColor on:device.
@@ -1477,6 +1486,9 @@
 !
 
 gotoLine:aLineNumber
+    "position cursor onto line, aLineNumber.
+     Make certain that this line is visible"
+
     self makeLineVisible:aLineNumber.
     self cursorLine:aLineNumber col:1
 ! !

--- a/EditTextView.st	Thu Jan 13 01:18:51 1994 +0100
+++ b/EditTextView.st	Sun Jan 16 05:02:06 1994 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
             All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.9 1994-01-13 00:15:09 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.10 1994-01-16 04:01:12 claus Exp $
 
 written jun-89 by claus
 '!
@@ -69,6 +69,9 @@
 !EditTextView methodsFor:'initialization'!
 
 initialize
+    "initialize a new EditTextView;
+     setup some instance variables"
+
     super initialize.
 
     self level:-1.
@@ -85,6 +88,8 @@
 !
 
 initStyle
+    "initialize style specific stuff"
+
     super initStyle.
     cursorFgColor := bgColor.
     device hasColors ifTrue:[
@@ -95,6 +100,8 @@
 !
 
 initializeMiddleButtonMenu
+    "initialize the views middleButtonMenu"
+
     |labels|
  
     labels := resources array:#(
@@ -165,6 +172,8 @@
 !
 
 realize
+    "make the view visible"
+
     super realize.
     cursorFgColor := cursorFgColor on:device.
     cursorBgColor := cursorBgColor on:device.
@@ -1477,6 +1486,9 @@
 !
 
 gotoLine:aLineNumber
+    "position cursor onto line, aLineNumber.
+     Make certain that this line is visible"
+
     self makeLineVisible:aLineNumber.
     self cursorLine:aLineNumber col:1
 ! !

--- a/FramedBox.st	Thu Jan 13 01:18:51 1994 +0100
+++ b/FramedBox.st	Sun Jan 16 05:02:06 1994 +0100
@@ -26,7 +26,7 @@
 is controlled by the layout variable, aSymbol which may be one of:
 [#topCenter #topLeft #topRight #bottomLeft #bottomCenter #bottomRight]
 
-$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.5 1994-01-13 00:15:44 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.6 1994-01-16 04:01:45 claus Exp $
 written spring 91 by claus
 '!
 
@@ -88,7 +88,7 @@
     |m2 sep|
 
     sep := font height.
-    m2 := sep + sep + sep.
+    m2 := sep + sep "+ sep".
 
     ^ (sep @ sep) extent:((width - m2) @ (height - m2))
 !

--- a/Label.st	Thu Jan 13 01:18:51 1994 +0100
+++ b/Label.st	Sun Jan 16 05:02:06 1994 +0100
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.5 1994-01-13 00:16:48 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.6 1994-01-16 04:02:06 claus Exp $
 
 written spring/summer 89 by claus
 '!
@@ -300,8 +300,8 @@
 
     textHeight := font height * numberOfLines + font descent.
     textWidth := font widthOf:logo.
-    labelWidth := textWidth + (hSpace "+ margin" * 2) .
-    labelHeight := textHeight + (vSpace "+ margin" * 2)
+    labelWidth := textWidth + (hSpace * 2) .
+    labelHeight := textHeight + (vSpace * 2)
 !
 
 computeLabelOrigin