--- a/EnterBox.st	Thu Aug 31 07:01:01 1995 +0200
+++ b/EnterBox.st	Thu Sep 07 14:46:28 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.29 1995-08-29 16:43:43 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.30 1995-09-07 12:44:49 claus Exp $
 "
 !
 
@@ -329,14 +329,14 @@
     ^ Array with:enterField with:abortButton with:okButton 
 ! !
 
-!EnterBox methodsFor:'dependencies'!
+!EnterBox methodsFor:'change & update'!
 
 update:something with:someArgument from:changedObject
     "sent if my enterbox thinks it needs more real-estate ..."
 
     changedObject == enterField ifTrue:[
 	something == #preferredExtent ifTrue:[
-	    shown ifTrue:[self resize].
+	    shown ifTrue:[self resizeUnderPointer].
 	    ^ self
 	]
     ].
@@ -376,11 +376,14 @@
 
 hideAndEvaluate:aBlock
     "common processing for all ok-actions (see subclasses);
-     shut down box, fetch entered string and evaluate the action with it"
+     if modal, shut down box. 
+     Then fetch entered string and evaluate the passed action with it"
 
     |string|
 
-    self hide.
+    (windowGroup notNil and:[windowGroup isModal]) ifTrue:[
+	self hide.
+    ].
     aBlock notNil ifTrue:[
 	string := self contents.
 	string isNil ifTrue:[