--- a/ModalBox.st	Wed May 29 11:29:33 1996 +0200
+++ b/ModalBox.st	Wed May 29 12:21:42 1996 +0200
@@ -430,7 +430,13 @@
      visible in myself. This should be redefined in
      subclasses."
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     ^ self class defaultExtent
+
+    "Modified: 29.5.1996 / 12:11:26 / cg"
 ! !
 
 !ModalBox methodsFor:'show / hide'!
@@ -803,6 +809,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.43 1996-05-28 20:06:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.44 1996-05-29 10:21:09 cg Exp $'
 ! !
 ModalBox initialize!