--- a/DialogBox.st	Thu Aug 24 16:43:57 2017 +0200
+++ b/DialogBox.st	Thu Aug 24 17:01:32 2017 +0200
@@ -10325,12 +10325,14 @@
 
 forceResize
     "force a recomputation of my size.
-     Cann this, when elements where added to a subcomponent, 
+     Call this, when elements where added to a subcomponent, 
      of which I cannot know. 
      Eg. when someone gets the buttonPanel and adds an element to it"
      
     needResize := true.
     self resize
+
+    "Modified (comment): / 24-08-2017 / 16:56:50 / cg"
 !
 
 hideAndEvaluate:aBlock
@@ -10505,7 +10507,7 @@
         "/ it was not counted in the y-position yet.
         "/ Do this now.
         vPanelExt := verticalPanel computePreferredExtent.
-        vPanelHeight := vPanelExt height.
+        vPanelHeight := vPanelExt y.
         
         "/ verticalPanel extent:vPanelExt.
         "/ vPanelHeight := verticalPanel height.
@@ -10539,7 +10541,7 @@
 "/
     ^ w @ h
 
-    "Modified: / 24-08-2017 / 16:37:06 / cg"
+    "Modified: / 24-08-2017 / 16:52:00 / cg"
 !
 
 specificationFor:aKey