--- a/DeviceWorkstation.st	Wed May 08 19:51:35 1996 +0200
+++ b/DeviceWorkstation.st	Wed May 08 22:02:35 1996 +0200
@@ -1167,15 +1167,17 @@
     "return a rectangle representing the displays bounding box.
      For Smalltalk-80 4.x compatibility"
 
-    ^ Rectangle origin:(0 @ 0) extent:(width @ height)
+    ^ Rectangle left:0 top:0 width:width-1 height:height-1
 
     "
      Screen default bounds
     "
     "/ thats the same as:
     "
-     Display bounds
+     Display bounds  
     "
+
+    "Modified: 8.5.1996 / 20:58:26 / cg"
 !
 
 center
@@ -4100,6 +4102,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.87 1996-05-08 11:51:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.88 1996-05-08 20:02:35 cg Exp $'
 ! !
 DeviceWorkstation initialize!