--- a/DialogBox.st	Fri Aug 18 13:18:42 2000 +0200
+++ b/DialogBox.st	Fri Aug 18 21:38:48 2000 +0200
@@ -2883,13 +2883,14 @@
     dialog addAbortAndOkButtons.
     dialog okButton isReturnButton:false.
     dialog makeTabable:textView.
+    dialog stickAtBottomWithVariableHeight:textView.
     dialog open.
     dialog accepted ifTrue:[
         ^ textView contents
     ].
     ^ nil
 
-
+    "Modified: / 18.8.2000 / 21:31:49 / cg"
 ! !
 
 !DialogBox class methodsFor:'multiple choice dialogs'!
@@ -5177,7 +5178,8 @@
     "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)"
+     (without this setup, it would stay at a constant offset from the top).
+     ATTENTION: use this as a last step, after all components have been added."
 
     self stickAtBottomWithFixHeight:aComponent left:0.0 right:1.0
 
@@ -5204,15 +5206,16 @@
         box show
    "
 
-    "Created: 27.1.1996 / 17:17:41 / cg"
-    "Modified: 27.1.1996 / 18:29:03 / cg"
+    "Created: / 27.1.1996 / 17:17:41 / cg"
+    "Modified: / 18.8.2000 / 21:38:21 / cg"
 !
 
 stickAtBottomWithFixHeight:aComponent left:left right:right
     "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)"
+     (without this setup, it would stay at a constant offset from the top).
+     ATTENTION: use this as a last step, after all components have been added."
 
     self resize.
 
@@ -5244,8 +5247,8 @@
         box show
    "
 
-    "Created: 27.1.1996 / 17:17:41 / cg"
-    "Modified: 27.1.1996 / 18:29:03 / cg"
+    "Created: / 27.1.1996 / 17:17:41 / cg"
+    "Modified: / 18.8.2000 / 21:38:26 / cg"
 !
 
 stickAtBottomWithVariableHeight:aComponent
@@ -5253,38 +5256,39 @@
      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)"
+     (without this setup, its height would remain constant).
+     ATTENTION: use this as a last step, after all components have been added."
 
     self resize.
 
     aComponent
-	bottomInset:(self height - aComponent bottom); 
-	corner:1.0@1.0.
+        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
+        |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
+        |box list|
+
+        box := Dialog new.
+        box addTextLabel:'hello'.
+        list := (box addComponent:(SelectionInListView new)) level:-1.
+        box addOkButton.
+        box stickAtBottomWithVariableHeight:list.
+        box show
    "
 
-    "Modified: 27.4.1996 / 18:34:20 / cg"
+    "Modified: / 18.8.2000 / 21:38:35 / cg"
 !
 
 yPosition 
@@ -6471,6 +6475,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.151 2000-08-17 22:52:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.152 2000-08-18 19:38:48 cg Exp $'
 ! !
 DialogBox initialize!