--- a/DialogBox.st	Tue Feb 28 16:00:06 2012 +0100
+++ b/DialogBox.st	Tue Feb 28 16:14:53 2012 +0100
@@ -6389,7 +6389,7 @@
 
 verticalPanel
     "if there is none yet, create and add a vertical panel.
-     This can be used to additional components in an aboutToOpen hook callback."
+     This can be used to add additional components in an aboutToOpen hook callback."
 
     |savedY|
 
@@ -6402,6 +6402,8 @@
         yPosition := savedY.
     ].
     ^ verticalPanel
+
+    "Modified (comment): / 28-02-2012 / 15:46:23 / cg"
 !
 
 yesButton
@@ -6711,15 +6713,14 @@
     ].
     self basicAddComponent:aComponent.
     aComponent 
-        height:height;
         origin:0.0@yPosition; 
-        width:1.0; 
+        width:1.0; height:height;
         leftInset:lI;
         rightInset:rI.
     yPosition := yPosition + height + ViewSpacing.
     ^ aComponent
 
-    "Modified: 9.2.1996 / 22:22:58 / cg"
+    "Modified: / 28-02-2012 / 12:27:51 / cg"
 !
 
 addComponent:aComponent tabable:tabable
@@ -9469,6 +9470,7 @@
     super realize.
 
     buttonPanel notNil ifTrue:[
+        buttonPanel raise.
         buttonPanel subViews do:[:eachButton |
             eachButton canTab:true.
         ]
@@ -9478,7 +9480,7 @@
         inputFieldGroup activateFirstIfNoCurrent
     ].
 
-    "Modified: / 13.8.1998 / 21:22:40 / cg"
+    "Modified: / 28-02-2012 / 15:54:10 / cg"
 !
 
 resize
@@ -9765,11 +9767,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.327 2012-02-28 10:30:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.328 2012-02-28 15:14:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.327 2012-02-28 10:30:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.328 2012-02-28 15:14:53 cg Exp $'
 ! !
 
 DialogBox initialize!