--- a/DObject.st	Sat Nov 11 17:05:49 1995 +0100
+++ b/DObject.st	Wed Nov 15 17:23:09 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.13 1995-11-11 16:04:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.14 1995-11-15 16:23:09 cg Exp $'
 !
 
 documentation
@@ -66,8 +66,18 @@
     ^ self
 !
 
+computeBoundingBoxFor:aDevice
+    "compute my boundingBox into the local variable 'frame'.
+     The box is to be computed for aDevice."
+
+    "/ for backward compatibility, fall back to Display box computation
+
+    ^ self computeBoundingBox
+!
+
 computeBoundingBox
-    "compute my boundingBox into the local 'frame'"
+    "compute my boundingBox into the local variable 'frame'.
+     The box should be computed for Display."
 
     ^ self subclassResponsibility
 ! !

--- a/DisplayObject.st	Sat Nov 11 17:05:49 1995 +0100
+++ b/DisplayObject.st	Wed Nov 15 17:23:09 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.13 1995-11-11 16:04:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.14 1995-11-15 16:23:09 cg Exp $'
 !
 
 documentation
@@ -66,8 +66,18 @@
     ^ self
 !
 
+computeBoundingBoxFor:aDevice
+    "compute my boundingBox into the local variable 'frame'.
+     The box is to be computed for aDevice."
+
+    "/ for backward compatibility, fall back to Display box computation
+
+    ^ self computeBoundingBox
+!
+
 computeBoundingBox
-    "compute my boundingBox into the local 'frame'"
+    "compute my boundingBox into the local variable 'frame'.
+     The box should be computed for Display."
 
     ^ self subclassResponsibility
 ! !