changed: #addComponent:indent:withExtent:
authorClaus Gittinger <cg@exept.de>
Wed, 07 Jul 2010 16:44:38 +0200
changeset 4155 1edd671b6485
parent 4154 05d107aebe74
child 4156 df8875264273
changed: #addComponent:indent:withExtent: fixed size computation for relative sizes
DialogBox.st
--- a/DialogBox.st	Wed Jul 07 15:54:01 2010 +0200
+++ b/DialogBox.st	Wed Jul 07 16:44:38 2010 +0200
@@ -6119,17 +6119,21 @@
     ].
 
     self basicAddComponent:aComponent.
-    fullSize := ext + (lI + rI @ 0).
+    (ext x isInteger) ifTrue:[ 
+        fullSize := ext + (lI + rI @ 0).
+        width := fullSize x max:width.
+    ] ifFalse:[
+        fullSize := ext.
+    ].
     aComponent extent:fullSize.
     aComponent origin:(0.0 @ yPosition); 
                leftInset:lI; 
                rightInset:rI.
     yPosition := yPosition + aComponent height + ViewSpacing.
-    width := fullSize x max:width.
     needResize := true.
     ^ aComponent
 
-    "Modified: 9.2.1996 / 22:22:54 / cg"
+    "Modified: / 07-07-2010 / 16:43:58 / cg"
 !
 
 addComponent:aComponent indent:indent withHeight:height 
@@ -9116,11 +9120,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.298 2010-03-24 12:36:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.299 2010-07-07 14:44:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.298 2010-03-24 12:36:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.299 2010-07-07 14:44:38 cg Exp $'
 ! !
 
 DialogBox initialize!