Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Sat, 11 Dec 1993 02:26:27 +0100
changeset 7 c5622a04d596
parent 6 4ac87e6bf82f
child 8 0a804f13c332
*** empty log message ***
DObject.st file | annotate | diff | comparison | revisions
DisplayObject.st file | annotate | diff | comparison | revisions 
--- 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 
--- 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
hg/stx-libview2