--- a/DevWorkst.st	Sat Feb 18 16:57:27 1995 +0100
+++ b/DevWorkst.st	Sat Feb 18 22:04:36 1995 +0100
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.26 1995-02-18 15:31:57 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.27 1995-02-18 21:04:36 claus Exp $
 '!
 
 !DeviceWorkstation class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.26 1995-02-18 15:31:57 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.27 1995-02-18 21:04:36 claus Exp $
 "
 !
 
@@ -246,10 +246,18 @@
 !DeviceWorkstation class methodsFor:'queries'!
 
 platformName
-    "return a string describing the display systems platform.
-     Returns a dummy here."
+    "ST-80 compatibility.
+     Return a string describing the display systems platform.
+     Returns a dummy here. This method is redefined in concrete classes."
 
     ^ 'unknown'
+!
+
+default
+    "ST-80 compatibility.
+     Return the default screen"
+
+    ^ Display
 ! !
 
 !DeviceWorkstation class methodsFor:'error handling'!
@@ -704,14 +712,31 @@
 
     ^ width @ height
 
-    "Display extent"
+    "
+     Display extent
+    "
+!
+
+bounds
+    "return a rectangle representing the displays bounding box.
+     For Smalltalk-80 4.x compatibility"
+
+    ^ Rectangle origin:(0 @ 0) extent:(width @ height)
+
+    "
+     Screen default bounds
+    "
+    "/ thats the same as:
+    "
+     Display bounds
+    "
 !
 
 boundingBox
     "return a rectangle representing the displays bounding box.
-     For Smalltalk-80 compatibility"
-
-    ^ Rectangle origin:(0 @ 0) extent:(width @ height)
+     For Smalltalk-80 2.x compatibility"
+
+    ^ self bounds
 !
 
 widthInMillimeter

--- a/DeviceWorkstation.st	Sat Feb 18 16:57:27 1995 +0100
+++ b/DeviceWorkstation.st	Sat Feb 18 22:04:36 1995 +0100
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.26 1995-02-18 15:31:57 claus Exp $
+$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.27 1995-02-18 21:04:36 claus Exp $
 '!
 
 !DeviceWorkstation class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.26 1995-02-18 15:31:57 claus Exp $
+$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.27 1995-02-18 21:04:36 claus Exp $
 "
 !
 
@@ -246,10 +246,18 @@
 !DeviceWorkstation class methodsFor:'queries'!
 
 platformName
-    "return a string describing the display systems platform.
-     Returns a dummy here."
+    "ST-80 compatibility.
+     Return a string describing the display systems platform.
+     Returns a dummy here. This method is redefined in concrete classes."
 
     ^ 'unknown'
+!
+
+default
+    "ST-80 compatibility.
+     Return the default screen"
+
+    ^ Display
 ! !
 
 !DeviceWorkstation class methodsFor:'error handling'!
@@ -704,14 +712,31 @@
 
     ^ width @ height
 
-    "Display extent"
+    "
+     Display extent
+    "
+!
+
+bounds
+    "return a rectangle representing the displays bounding box.
+     For Smalltalk-80 4.x compatibility"
+
+    ^ Rectangle origin:(0 @ 0) extent:(width @ height)
+
+    "
+     Screen default bounds
+    "
+    "/ thats the same as:
+    "
+     Display bounds
+    "
 !
 
 boundingBox
     "return a rectangle representing the displays bounding box.
-     For Smalltalk-80 compatibility"
-
-    ^ Rectangle origin:(0 @ 0) extent:(width @ height)
+     For Smalltalk-80 2.x compatibility"
+
+    ^ self bounds
 !
 
 widthInMillimeter