--- a/ModalBox.st	Wed Aug 13 23:05:00 1997 +0200
+++ b/ModalBox.st	Fri Aug 15 13:03:59 1997 +0200
@@ -12,7 +12,7 @@
 
 StandardSystemView subclass:#ModalBox
 	instanceVariableNames:'shadowView exclusiveKeyboard escapeIsCancel'
-	classVariableNames:'UseTransientViews'
+	classVariableNames:'UseTransientViews DefaultExtent'
 	poolDictionaries:''
 	category:'Views-Basic'
 !
@@ -76,10 +76,12 @@
      The value returned here is usually ignored, and
      the value from preferredExtent taken instead."
 
-
+    DefaultExtent notNil ifTrue:[
+        ^ DefaultExtent
+    ].
     ^ (Screen current pixelPerMillimeter * (60 @ 30)) rounded
 
-    "Modified: 5.7.1996 / 13:54:18 / cg"
+    "Modified: 15.8.1997 / 01:45:52 / cg"
 !
 
 defaultLabel
@@ -90,6 +92,22 @@
     "Created: 23.4.1996 / 17:14:21 / cg"
 !
 
+updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#modalBoxDefaultExtent)>
+
+    DefaultExtent := StyleSheet at:'modalBoxDefaultExtent' default:nil.
+
+    "
+     self updateStyleCache
+    "
+
+    "Modified: 31.8.1995 / 03:01:14 / claus"
+    "Modified: 1.3.1996 / 13:45:57 / cg"
+    "Created: 15.8.1997 / 01:40:53 / cg"
+!
+
 useTransientViews:aBoolean 
     "change the way modalBoxes are created on the Display.
      If the argument is true, transient views are used; 
@@ -827,6 +845,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.57 1997-07-24 14:08:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.58 1997-08-15 11:03:59 cg Exp $'
 ! !
 ModalBox initialize!