DialogBox.st
changeset 2145 60b16d3f6d77
parent 2127 109a5074102f
child 2147 3d1a7c11592b
--- a/DialogBox.st	Sat Feb 12 16:36:04 2000 +0100
+++ b/DialogBox.st	Mon Feb 14 15:22:43 2000 +0100
@@ -5033,7 +5033,8 @@
 bottomAlign:widgets
     "mhmh - seems similar to out stickAtBottom functionality - to be checked"
 
-    self halt:'unimplemented VW functionality'.
+    'DialogBox [warning]: unimplemented VW feature: #bottomAlign' infoPrintCR.
+"/    self halt:'unimplemented VW functionality'.
 
     "Created: / 4.2.2000 / 00:10:21 / cg"
     "Modified: / 5.2.2000 / 15:31:23 / cg"
@@ -5042,7 +5043,8 @@
 bottomAlignLowerEdge:widget
     "mhmh - seems similar to out stickAtBottom functionality - to be checked"
 
-    self halt:'unimplemented VW functionality'.
+    "/ self halt:'unimplemented VW functionality'.
+    self stickAtBottomWithVariableHeight:widget
 
     "Modified: / 5.2.2000 / 15:31:15 / cg"
 !
@@ -6418,6 +6420,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.146 2000-02-09 10:11:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.147 2000-02-14 14:22:43 cg Exp $'
 ! !
 DialogBox initialize!