--- a/SimpleView.st	Mon Feb 01 19:16:34 2010 +0100
+++ b/SimpleView.st	Tue Feb 02 10:55:05 2010 +0100
@@ -1491,26 +1491,6 @@
 
 !SimpleView methodsFor:'Compatibility-ST80'!
 
-bounds
-    "ST-80 compatibility: return my bounds"
-
-    ^ (self origin) corner:(self corner)
-
-    "Created: 4.6.1996 / 21:23:27 / cg"
-    "Modified: 10.1.1997 / 19:46:21 / cg"
-!
-
-bounds:aRectangle
-    "ST-80 compatibility: change my bounds"
-
-    self explicitExtent:true.
-    self pixelOrigin:aRectangle origin
-	      corner:aRectangle corner
-
-    "Created: 4.6.1996 / 21:44:27 / cg"
-    "Modified: 10.1.1997 / 19:46:36 / cg"
-!
-
 checkForEvents
     "ST-80 compatibility:
      check for any pending events and process them"
@@ -2340,6 +2320,26 @@
     "Modified: 19.7.1996 / 17:30:22 / cg"
 !
 
+bounds
+    "ST-80 compatibility: return my bounds"
+
+    ^ (self origin) corner:(self corner)
+
+    "Created: 4.6.1996 / 21:23:27 / cg"
+    "Modified: 10.1.1997 / 19:46:21 / cg"
+!
+
+bounds:aRectangle
+    "ST-80 compatibility: change my bounds"
+
+    self explicitExtent:true.
+    self pixelOrigin:aRectangle origin
+	      corner:aRectangle corner
+
+    "Created: 4.6.1996 / 21:44:27 / cg"
+    "Modified: 10.1.1997 / 19:46:36 / cg"
+!
+
 center
     "return the point at the center of the receiver (in pixels)"
 
@@ -3268,6 +3268,12 @@
     "Modified: 19.7.1996 / 17:30:32 / cg"
 !
 
+screenBounds
+    "return my bounds on the screen"
+
+    ^ (self originRelativeTo:nil) extent:(self extent)
+!
+
 setOrigin:aPoint
     "set the origin only"
 
@@ -10571,11 +10577,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.654 2009-12-07 14:57:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.655 2010-02-02 09:55:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.654 2009-12-07 14:57:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.655 2010-02-02 09:55:05 cg Exp $'
 ! !
 
 SimpleView initialize!