--- a/DeviceWorkstation.st	Tue May 28 18:25:50 1996 +0200
+++ b/DeviceWorkstation.st	Tue May 28 18:29:33 1996 +0200
@@ -578,6 +578,24 @@
     multiClickTimeDelta := milliseconds
 !
 
+rootView
+    "return the rootView (i.e. the background window) on the receiver screen.
+     It is not guaranteed, that a particular display device supports this."
+
+    rootView isNil ifTrue:[
+        rootView := DisplayRootView on:self
+    ].
+    ^ rootView
+
+    "
+     |v|
+     v := Display rootView.
+     v paint:Color red.
+     v noClipByChildren.
+     v fillRectangleX:10 y:10 width:100 height:100.  
+    "
+!
+
 translatePoint:aPoint from:windowId1 to:windowId2
     "given a point in window1 (defined by its id), return the coordinate of
      aPoint in window2 (defined by its id).
@@ -4113,6 +4131,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.91 1996-05-20 08:47:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.92 1996-05-28 16:27:48 cg Exp $'
 ! !
 DeviceWorkstation initialize!