--- a/DeviceWorkstation.st	Wed Oct 27 15:30:08 1999 +0200
+++ b/DeviceWorkstation.st	Wed Oct 27 15:30:53 1999 +0200
@@ -641,7 +641,9 @@
     "/
     AllScreens size <= 1 ifTrue:[
         LastActiveProcess := LastActiveScreen := nil.
-        ^ Display
+        Display notNil ifTrue:[
+	    ^ Display
+	]
     ].
 
     "/
@@ -4851,6 +4853,16 @@
     "Modified: 21.4.1997 / 12:04:37 / cg"
 !
 
+initializeViewStyle
+    "late viewStyle init - if no viewStyle has been read yet."
+
+    View styleSheet isNil ifTrue:[
+	CurrentScreenQuerySignal answer:self do:[
+	    View readStyleSheetAndUpdateAllStyleCaches
+	]
+    ].
+!
+
 invalidateConnection
     "clear my connection handle - sent after an imageRestart to
      forget about our previous life"
@@ -6747,6 +6759,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.343 1999-10-26 18:31:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.344 1999-10-27 13:30:53 stefan Exp $'
 ! !
 DeviceWorkstation initialize!