hg/stx-libwidg: comparison DialogBox.st

equal deleted inserted replaced

-:b5c9d68e95e1
+:4bbc8deffc8c
 ModalBox subclass:#DialogBox
 	instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction
 		acceptReturnAsOK yPosition leftIndent rightIndent bindings
 		addedComponents inputFieldGroup acceptOnLeave acceptValue
-		tabableElements hideOnAccept acceptCheck'
+		tabableElements hideOnAccept acceptCheck needResize'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-DialogBoxes'
 !
 list notNil ifTrue:[
 listView := ScrollableView for:SelectionInListView.
 listView list:list.
 listView doubleClickAction:[:line | box hide. ^ listValues at:line].
-"/        list height:(list font height * maxLines).
+box addComponent:listView withHeight:(listView heightForLines:maxLines).
-box addComponent:listView.
 ].
 buttonLabels notNil ifTrue:[
 panel := HorizontalPanelView new.
 panel horizontalLayout:#fit.
 ].
 box addComponent:panel.
 ].
 box addAbortButton.
 list notNil ifTrue:[box addOkButton].
+listView notNil ifTrue:[box stickAtBottomWithVariableHeight:listView].
+panel notNil ifTrue:[box stickAtBottomWithFixHeight:panel].
 box showAtPointer.
 box accepted ifTrue:[
 (answer := listView selection) notNil ifTrue:[
 ^ listValues at:answer
 ]
 choose:'choose any'
 fromList:#('one' 'two' 'three' 'four')
 values:#(1 2 3 4)
 buttons:#('five' 'six' 'seven')
 values:#(5 6 7)
-lines:4
+lines:10
 cancel:nil
 )
 no buttons:
 )
 "
-"Modified: 27.1.1996 / 14:17:27 / cg"
+"Modified: 27.1.1996 / 17:20:16 / cg"
 !
 choose:aString fromList:list values:listValues lines:maxLines cancel:cancelBlock
 "launch a Dialog showing the message and list.
 The user can select an item and click ok; in this case, the corresponding value
 |h|
 buttonPanel addSubView:aButton after:someOtherButtonOrNil.
 buttonPanel subViews size > 1 ifTrue:[
-	buttonPanel horizontalLayout:#fitSpace.
+buttonPanel horizontalLayout:#fitSpace.
 ].
 (h := (aButton heightIncludingBorder + (ViewSpacing * 2))) > buttonPanel topInset ifTrue:[
-	 buttonPanel topInset:h negated
+buttonPanel topInset:h negated
 ].
+needResize := true.
 ^ aButton
+"Modified: 27.1.1996 / 18:20:18 / cg"
 !
 addCheckBox:label on:aModel
 "create a checkBox with label on aModel and add it.
 Returns the box."
 self basicAddComponent:aComponent.
 fullSize := ext + (leftIndent + rightIndent @ 0).
 aComponent extent:fullSize.
 aComponent origin:0.0@yPosition;
-	       leftInset:leftIndent;
+leftInset:leftIndent;
-	       rightInset:rightIndent.
+rightInset:rightIndent.
 yPosition := yPosition + aComponent height + ViewSpacing.
 width := fullSize x max:width.
+needResize := true.
 ^ aComponent
+"Modified: 27.1.1996 / 18:20:36 / cg"
 !
 addComponent:aComponent withHeight:height
 "add a component with some given height and full width.
 Returns the component."
 self basicAddComponent:aComponent.
 aComponent height:height.
 aComponent origin:0.0@yPosition;
-	       width:1.0;
+width:1.0;
-	       leftInset:leftIndent;
+leftInset:leftIndent;
-	       rightInset:rightIndent.
+rightInset:rightIndent.
 yPosition := yPosition + "aComponent" height + ViewSpacing.
+needResize := true.
 ^ aComponent
+"Modified: 27.1.1996 / 18:20:39 / cg"
 !
 addFilenameInputFieldOn:aModel in:aDirectory tabable:tabable
 "create a fileName input field on aModel and add it.
 Returns the field. This is much like a normal input field,
 addVerticalSpace:nPixel
 "add some pixels of space to the next component"
 yPosition := yPosition + nPixel.
+needResize := true.
+"Modified: 27.1.1996 / 18:21:27 / cg"
 !
 leftIndent:aNumber
 "set the left indent (current x position - thats where the next component
 will be located)."
 leftIndent := aNumber.
+needResize := true.
+"Modified: 27.1.1996 / 18:21:31 / cg"
 !
 makeTabable:aComponentOrSubcomponent
 "add a component (usually a subcomponent, of which the dialog
 does not know) to the list of tabable ones (i.e. those, that can be
 rightIndent:aNumber
 "set the right indent"
 rightIndent := aNumber.
+needResize := true.
+"Modified: 27.1.1996 / 18:21:36 / cg"
 !
 yPosition
 "return the current y position (thats where the next component
 will be located)."
 yPosition:aNumber
 "set the current y position (thats where the next component
 will be located)."
 yPosition := aNumber.
+needResize := true.
+"Modified: 27.1.1996 / 18:21:40 / cg"
 ! !
 !DialogBox methodsFor:'initialization'!
 focusSequence
 acceptOnLeave := true.
 hideOnAccept := true.
 buttonPanel := HorizontalPanelView in:self.
 buttonPanel
-	origin:(0.0 @ 1.0) corner:(1.0 @ 1.0);
+origin:(0.0 @ 1.0) corner:(1.0 @ 1.0);
-	bottomInset:mm;
+bottomInset:mm;
-	topInset:(font height + mm * 2) negated;
+topInset:(font height + mm * 2) negated;
-	borderWidth:0;
+borderWidth:0;
-	horizontalLayout:#spread.
+horizontalLayout:#spread.
 yPosition := ViewSpacing.
 leftIndent := rightIndent := ViewSpacing.
+needResize := true.
 "
 |b|
 b := DialogBox new.
 b addAbortButton;
 b addTextLabel:'hello world';
 addVerticalSpace:50;
 addOkButton;
 showAtPointer
 "
+"Modified: 27.1.1996 / 17:21:22 / cg"
 !
 reAdjustGeometry
 "sent late in snapin processing - gives me a chance
 to resize for changed font dimensions."
 inputFieldGroup notNil ifTrue:[
 	inputFieldGroup activateFirst
 ].
 super realize
+!
+resize
+needResize ifTrue:[
+needResize := false.
+super resize
+]
+"Created: 27.1.1996 / 17:22:33 / cg"
+"Modified: 27.1.1996 / 18:25:40 / cg"
 ! !
 !DialogBox methodsFor:'queries'!
 accepted
 whichever is larger, by the sum of the components heights."
 |w h p|
 addedComponents notNil ifTrue:[
-	w := addedComponents
+w := addedComponents
-		inject:0
+inject:0
-		into:[:max :element |
+into:[:max :element |
-			|eExt|
+|eExt|
-			eExt := (element preferredExtent x) + (element borderWidth * 2). "/ max:element extent x.
+eExt := (element preferredExtent x) + (element borderWidth * 2). "/ max:element extent x.
-			max max:(eExt + element leftInset + element rightInset)].
+max max:(eExt + element leftInset + element rightInset)].
 ] ifFalse:[
-	w := super preferredExtent x.
+w := super preferredExtent x.
 ].
 w := w max:width.
-h := yPosition
+h := yPosition + ViewSpacing.
-	 + ViewSpacing.
 buttonPanel subViews size ~~ 0 ifTrue:[
-	p := buttonPanel preferredExtent.
+p := buttonPanel preferredExtent.
-	w := w max:p x.
+w := w max:p x.
-	h := h
+h := h
-	     + p y
++ p y
-	     + ViewSpacing.
++ ViewSpacing.
 ].
 "/    okButton isNil ifTrue:[
 "/        ^ super preferredExtent
 "/    ].
 "/    h := ViewSpacing
 "/         + p y
 "/         + ViewSpacing.
 "/
 ^ w @ h
+"Modified: 27.1.1996 / 18:19:50 / cg"
+! !
+!DialogBox methodsFor:'special geometry settings'!
+stickAtBottomWithFixHeight:aComponent
+"arrange for a component to be positioned at a constant offset
+from the bottom of the box and its height to remain the same.
+This will keep the component at a constant distance from the bottom
+(without this setup, it would stay at a constant offset from the top)"
+self resize.
+aComponent
+topInset:(self height - aComponent top) negated;
+bottomInset:(self height - aComponent bottom);
+origin:0.0 @ 1.0; corner:1.0 @ 1.0.
+"
+compare the resizing behavior of:
+|box|
+box := Dialog new.
+box addTextLabel:'hello'.
+box addTextLabel:'hello2'.
+box addOkButton.
+box show
+with:
+|box l2|
+box := Dialog new.
+box addTextLabel:'hello'.
+l2 := box addTextLabel:'hello2'.
+box addOkButton.
+box stickAtBottomWithFixHeight:l2.
+box show
+"
+"Created: 27.1.1996 / 17:17:41 / cg"
+"Modified: 27.1.1996 / 18:29:03 / cg"
+!
+stickAtBottomWithVariableHeight:aComponent
+"arrange for a component to be positioned at a constant offset
+from the bottom of the box and its height to be adjusted.
+This will resize the component for a constant distance from the top,
+and the bottom.
+(without this setup, its height would remain constant)"
+self resize.
+aComponent
+bottomInset:(self height - aComponent bottom);
+corner:1.0@1.0.
+"
+compare the resizing behavior of:
+|box|
+box := Dialog new.
+box addTextLabel:'hello'.
+(box addComponent:(SelectionInListView new)) level:-1.
+box addOkButton.
+box show
+with:
+|box list|
+box := Dialog new.
+box addTextLabel:'hello'.
+list := (box addComponent:(SelectionInListView new)) level:-1.
+box addOkButton.
+box stickAtBottomWithVariableHeight:list.
+box show
+"
+"Modified: 27.1.1996 / 18:27:36 / cg"
 ! !
 !DialogBox methodsFor:'user actions'!
 abortPressed
 ! !
 !DialogBox class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.36 1996-01-27 14:16:15 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.37 1996-01-27 17:30:14 cg Exp $'
 ! !

changeset 310	4bbc8deffc8c
parent 307	d3fe810390cb
child 312	008267b920d9