--- a/ModalBox.st	Wed Mar 01 01:12:54 1995 +0100
+++ b/ModalBox.st	Mon Mar 06 20:22:29 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.16 1995-02-06 00:37:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
 '!
 
 !ModalBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.16 1995-02-06 00:37:31 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.17 1995-03-06 19:22:06 claus Exp $
 "
 !
 
@@ -281,6 +281,13 @@
     self makeFullyVisible
 !
 
+fixSize
+    "adjust my size. Sent right before becomming visible"
+
+    self resize.
+    super fixSize.
+!
+
 positionOffset
     "return the delta, by which the box should be
      displaced from the mouse pointer.