--- a/DialogBox.st	Sun Jan 22 20:29:11 2017 +0100
+++ b/DialogBox.st	Mon Jan 23 01:31:54 2017 +0100
@@ -10279,6 +10279,16 @@
     preferredExtent := nil.
 !
 
+forceResize
+    "force a recomputation of my size.
+     Cann 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
+!
+
 hideAndEvaluate:aBlock
     "if I am modal, make myself invisible and evaluate aBlock.
      If nonModal, stay up, but also evaluate the block."