# HG changeset patch # User Claus Gittinger # Date 1278513878 -7200 # Node ID 1edd671b6485e5c3227864e25934780842b484a7 # Parent 05d107aebe7420c7b38c84a97d5686ed570f680d changed: #addComponent:indent:withExtent: fixed size computation for relative sizes diff -r 05d107aebe74 -r 1edd671b6485 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!