# HG changeset patch
# User claus
# Date 755573187 -3600
# Node ID c5622a04d5960ccb182435d68240c5cced58d245
# Parent  4ac87e6bf82fa10ee827c8bb7d5b59b040179260
*** empty log message ***

diff -r 4ac87e6bf82f -r c5622a04d596 DObject.st
--- a/DObject.st	Wed Oct 13 03:44:41 1993 +0100
+++ b/DObject.st	Sat Dec 11 02:26:27 1993 +0100
@@ -25,7 +25,7 @@
 generic superclass for Display Objects held in ObjectViews
 see DrawObject/LogicObject/DeskTopObject and subclasses for example use
 
-$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.4 1993-10-13 02:42:58 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.5 1993-12-11 01:26:27 claus Exp $
 written fall/winter 89 by claus
 '!
 
@@ -49,6 +49,10 @@
 
 initialize
     ^ self
+!
+
+computeBoundingBox
+    self subclassResponsibility
 ! !
 
 !DisplayObject methodsFor:'queries'!
@@ -74,13 +78,20 @@
 !
 
 containsPoint: aPoint
-        ^ frame containsPoint: aPoint
+    ^ frame containsPoint: aPoint
 !
 
 intersects:aRectangle
     "object must decide, if its intersecting a rectangle"
 
     ^ frame intersects:aRectangle
+!
+
+isOpaque
+    "return true, if the object fully covers its frame (i.e. is rectangular
+     and has no 'holes'. Since we dont know, return false here"
+
+    ^ false
 ! !
 
 !DisplayObject methodsFor:'accessing'!
@@ -207,16 +218,11 @@
 !DisplayObject methodsFor:'ST-80 drawing'!
 
 displayOn: aDisplayMedium
-"
-    self drawIn:aDisplayMedium offset:0@0
-"
-" "
     self displayOn:aDisplayMedium 
                 at:0@0 
        clippingBox:nil 
               rule:#copy
               mask:nil
-" "
 !
 
 displayOn:aDisplayMedium at:aPoint 
diff -r 4ac87e6bf82f -r c5622a04d596 DisplayObject.st
--- a/DisplayObject.st	Wed Oct 13 03:44:41 1993 +0100
+++ b/DisplayObject.st	Sat Dec 11 02:26:27 1993 +0100
@@ -25,7 +25,7 @@
 generic superclass for Display Objects held in ObjectViews
 see DrawObject/LogicObject/DeskTopObject and subclasses for example use
 
-$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.4 1993-10-13 02:42:58 claus Exp $
+$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.5 1993-12-11 01:26:27 claus Exp $
 written fall/winter 89 by claus
 '!
 
@@ -49,6 +49,10 @@
 
 initialize
     ^ self
+!
+
+computeBoundingBox
+    self subclassResponsibility
 ! !
 
 !DisplayObject methodsFor:'queries'!
@@ -74,13 +78,20 @@
 !
 
 containsPoint: aPoint
-        ^ frame containsPoint: aPoint
+    ^ frame containsPoint: aPoint
 !
 
 intersects:aRectangle
     "object must decide, if its intersecting a rectangle"
 
     ^ frame intersects:aRectangle
+!
+
+isOpaque
+    "return true, if the object fully covers its frame (i.e. is rectangular
+     and has no 'holes'. Since we dont know, return false here"
+
+    ^ false
 ! !
 
 !DisplayObject methodsFor:'accessing'!
@@ -207,16 +218,11 @@
 !DisplayObject methodsFor:'ST-80 drawing'!
 
 displayOn: aDisplayMedium
-"
-    self drawIn:aDisplayMedium offset:0@0
-"
-" "
     self displayOn:aDisplayMedium 
                 at:0@0 
        clippingBox:nil 
               rule:#copy
               mask:nil
-" "
 !
 
 displayOn:aDisplayMedium at:aPoint