--- a/EnterBox.st Sat Aug 19 13:58:53 2006 +0200
+++ b/EnterBox.st Sun Aug 20 20:46:56 2006 +0200
@@ -424,15 +424,17 @@
|oldSize|
aString ~= labelField label ifTrue:[
- oldSize := labelField extent.
- labelField label:aString.
- labelField forceResize.
+ oldSize := labelField extent.
+ labelField label:aString.
+ labelField forceResize.
- shown ifTrue:[
- labelField extent ~= oldSize ifTrue:[
- self resize
- ]
- ]
+ shown ifTrue:[
+ labelField extent ~= oldSize ifTrue:[
+ self resize
+ ]
+ ] ifFalse:[
+ self sizeChanged:nil.
+ ]
]
!
@@ -440,11 +442,13 @@
"set title and text in okbutton"
(titleString ~= labelField label or:[okString ~= okButton label]) ifTrue:[
- okButton label:okString.
- okButton resize.
- labelField label:titleString.
- labelField forceResize.
- shown ifTrue:[self resize].
+ okButton label:okString.
+ okButton resize.
+ labelField label:titleString.
+ labelField forceResize.
+ shown
+ ifTrue:[self resize]
+ ifFalse:[ self sizeChanged:nil].
]
!
@@ -454,13 +458,15 @@
(titleString ~= labelField label
or:[okString ~= okButton label
or:[abortString ~= abortButton label]]) ifTrue:[
- okButton label:okString.
- okButton resize.
- abortButton label:abortString.
- abortButton resize.
- labelField label:titleString.
- labelField forceResize.
- shown ifTrue:[self resize].
+ okButton label:okString.
+ okButton resize.
+ abortButton label:abortString.
+ abortButton resize.
+ labelField label:titleString.
+ labelField forceResize.
+ shown
+ ifTrue:[self resize]
+ ifFalse:[ self sizeChanged:nil].
]
! !
@@ -698,5 +704,5 @@
!EnterBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.59 2003-04-11 12:56:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.60 2006-08-20 18:46:56 cg Exp $'
! !