# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 950091098 -3600
# Node ID 109a5074102fa52f63b62f56222b220565cd4ae0
# Parent  a2e54b57e1afa6b4bf9f6d771b1f173f3d72b14c
oops

diff -r a2e54b57e1af -r 109a5074102f DialogBox.st
--- 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!