--- a/EnterBox.st	Sat Jan 08 18:22:54 1994 +0100
+++ b/EnterBox.st	Sat Jan 08 18:24:13 1994 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.5 1993-12-13 17:05:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.6 1994-01-08 17:24:13 claus Exp $
 
 written Feb 90 by claus
 '!
@@ -125,9 +125,9 @@
 
     enterField := EditField in:self.
     enterField origin:(ViewSpacing @ (space2 + labelField height))
-               extent:((width - space2 - (enterField borderWidth * 2)) @ enterField height).
+               extent:((width - space2 - (enterField borderWidth * 2) - margin) @ enterField height).
     enterField origin:[ViewSpacing @ (space2 + labelField height)]
-               extent:[(width - space2 - (enterField borderWidth * 2)) @ enterField height].
+               extent:[(width - space2 - (enterField borderWidth * 2) - margin) @ enterField height].
     enterField leaveAction:[:key | self okPressed].
 
     buttonPanel := HorizontalPanelView in:self.