--- 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!

--- a/StandardSystemView.st	Wed Aug 13 23:05:00 1997 +0200
+++ b/StandardSystemView.st	Fri Aug 15 13:03:59 1997 +0200
@@ -13,7 +13,8 @@
 TopView subclass:#StandardSystemView
 	instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
 		application windowEventsForApplication'
-	classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel'
+	classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel
+		DefaultExtent'
 	poolDictionaries:''
 	category:'Views-Basic'
 !
@@ -321,6 +322,17 @@
 
 !StandardSystemView class methodsFor:'defaults'!
 
+defaultExtent
+    "return a standardSystemViews default window extent"
+
+    DefaultExtent notNil ifTrue:[
+        ^ DefaultExtent
+    ].
+    ^ super defaultExtent
+
+    "Created: 15.8.1997 / 01:36:21 / cg"
+!
+
 defaultIcon
     "return a topViews default window icon"
 
@@ -395,6 +407,22 @@
     "
      StandardSystemView takeFocusWhenMapped:true
     "
+!
+
+updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#standardSystemViewDefaultExtent)>
+
+    DefaultExtent := StyleSheet at:'standardSystemViewDefaultExtent' 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:34:37 / cg"
 ! !
 
 !StandardSystemView class methodsFor:'startup'!
@@ -1344,5 +1372,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.81 1997-07-24 16:27:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.82 1997-08-15 11:03:33 cg Exp $'
 ! !

--- a/StdSysV.st	Wed Aug 13 23:05:00 1997 +0200
+++ b/StdSysV.st	Fri Aug 15 13:03:59 1997 +0200
@@ -13,7 +13,8 @@
 TopView subclass:#StandardSystemView
 	instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
 		application windowEventsForApplication'
-	classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel'
+	classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel
+		DefaultExtent'
 	poolDictionaries:''
 	category:'Views-Basic'
 !
@@ -321,6 +322,17 @@
 
 !StandardSystemView class methodsFor:'defaults'!
 
+defaultExtent
+    "return a standardSystemViews default window extent"
+
+    DefaultExtent notNil ifTrue:[
+        ^ DefaultExtent
+    ].
+    ^ super defaultExtent
+
+    "Created: 15.8.1997 / 01:36:21 / cg"
+!
+
 defaultIcon
     "return a topViews default window icon"
 
@@ -395,6 +407,22 @@
     "
      StandardSystemView takeFocusWhenMapped:true
     "
+!
+
+updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#standardSystemViewDefaultExtent)>
+
+    DefaultExtent := StyleSheet at:'standardSystemViewDefaultExtent' 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:34:37 / cg"
 ! !
 
 !StandardSystemView class methodsFor:'startup'!
@@ -1344,5 +1372,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.81 1997-07-24 16:27:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.82 1997-08-15 11:03:33 cg Exp $'
 ! !