--- a/DialogBox.st	Tue Sep 29 15:04:51 2009 +0200
+++ b/DialogBox.st	Tue Sep 29 15:04:54 2009 +0200
@@ -5703,7 +5703,8 @@
 !
 
 verticalPanel
-    "if there is none yet, create and add a vertical panel"
+    "if there is none yet, create and add a vertical panel.
+     This can be used to additional components in an aboutToOpen hook callback."
 
     |savedY|
 
@@ -5712,6 +5713,7 @@
         self addComponent:(verticalPanel := VerticalPanelView new).
         verticalPanel horizontalLayout:#fit.
         verticalPanel verticalLayout:#top.
+        verticalPanel height:25.
         yPosition := savedY.
     ].
     ^ verticalPanel
@@ -8593,6 +8595,12 @@
 realize
     "if any inputFields where added, activate the first one"
 
+    verticalPanel notNil ifTrue:[
+        verticalPanel extent:verticalPanel preferredExtent.
+        preferredExtent := nil.
+        self extent:(self preferredExtent).
+    ].
+
     super realize.
 
     buttonPanel notNil ifTrue:[
@@ -8892,7 +8900,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.289 2009-09-23 15:27:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.290 2009-09-29 13:04:54 cg Exp $'
 ! !
 
 DialogBox initialize!