--- a/DialogBox.st Wed Feb 09 11:05:18 2000 +0100
+++ b/DialogBox.st Wed Feb 09 11:11:38 2000 +0100
@@ -15,7 +15,7 @@
acceptReturnAsOK yPosition leftIndent rightIndent addedComponents
inputFieldGroup acceptOnLeave acceptValue tabableElements
hideOnAccept acceptCheck needResize autoAccept focusToOKOnLeave
- bindings namedComponents sticky'
+ bindings namedComponents'
classVariableNames:'DefaultFocusToOKOnLeave'
poolDictionaries:''
category:'Views-DialogBoxes'
@@ -5047,13 +5047,6 @@
"Modified: / 5.2.2000 / 15:31:15 / cg"
!
-endStickAtBottom
- "stop sticking new components at the bottom.
- Useful for programatic construction."
-
- sticky := nil
-!
-
leftIndent
"return the current indent
(current x position - thats where the next component will be located)."
@@ -5127,16 +5120,6 @@
"Created: / 4.2.2000 / 00:01:44 / cg"
!
-startStickAtBottomWithFixHeight
- "arrange for all following components to be positioned at a constant offset
- from the bottom of the box and their 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).
- Useful for programatic construction."
-
- sticky := #fixAtBottom
-!
-
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.
@@ -6187,9 +6170,6 @@
].
addedComponents add:aComponent.
self addSubView:aComponent.
- sticky == #fixAtBottom ifTrue:[
- self stickAtBottomWithFixHeight:aComponent
- ]
!
hideAndEvaluate:aBlock
@@ -6438,6 +6418,6 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.145 2000-02-09 10:05:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.146 2000-02-09 10:11:38 cg Exp $'
! !
DialogBox initialize!