EnterBox.st
changeset 105 3d064ba4a0cc
parent 101 88e7faeda854
child 110 eb59f6e31e84
--- a/EnterBox.st	Sat Mar 18 06:16:33 1995 +0100
+++ b/EnterBox.st	Sat Mar 18 06:16:50 1995 +0100
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.17 1995-03-09 02:11:17 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.18 1995-03-18 05:14:29 claus Exp $
 "
 !
 
@@ -316,9 +316,11 @@
 
     changedObject == enterField ifTrue:[
 	something == #preferedExtent ifTrue:[
-	    shown ifTrue:[self resize]
+	    shown ifTrue:[self resize].
+	    ^ self
 	]
-    ]
+    ].
+    super update:something with:someArgument from:changedObject
 ! !
 
 !EnterBox methodsFor:'queries'!