--- a/EnterBox.st	Tue Feb 28 22:52:21 1995 +0100
+++ b/EnterBox.st	Mon Mar 06 20:29:54 1995 +0100
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.15 1995-02-18 20:14:04 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.16 1995-03-06 19:28:30 claus Exp $
 "
 !
 
@@ -208,7 +208,7 @@
 	labelField resize.
 
 	labelField extent ~= oldSize ifTrue:[
-	    self resize
+	    shown ifTrue:[self resize]
 	]
     ]
 !
@@ -228,7 +228,7 @@
 	okButton resize.
 	labelField label:titleString.
 	labelField resize.
-	self resize.
+	shown ifTrue:[self resize].
     ]
 !
 
@@ -244,7 +244,7 @@
 	abortButton resize.
 	labelField label:titleString.
 	labelField resize.
-	self resize.
+	shown ifTrue:[self resize].
     ]
 ! !
 
@@ -311,7 +311,7 @@
 
     changedObject == enterField ifTrue:[
 	something == #preferedExtent ifTrue:[
-	    self resize
+	    shown ifTrue:[self resize]
 	]
     ]
 ! !
@@ -379,4 +379,3 @@
     self title:title.
     ^ self request
 ! !
-