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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 12 May 1996 20:41:21 +0200
changeset 260 efd33ad1283e
parent 259 62b1bbafd9ba
child 261 6d7941a96ad0
checkin from browser
DObject.st file | annotate | diff | comparison | revisions
DisplayObject.st file | annotate | diff | comparison | revisions 
--- a/DObject.st	Fri May 10 18:46:43 1996 +0200
+++ b/DObject.st	Sun May 12 20:41:21 1996 +0200
@@ -68,35 +68,60 @@
 !DisplayObject methodsFor:'ST-80 drawing'!
 
 displayOn: aDisplayMedium
+    "for ST-80 compatibility; not used in ST/X"
+
     self displayOn:aDisplayMedium 
-		at:0@0 
+                at:0@0 
        clippingBox:nil 
-	      rule:#copy
-	      mask:nil
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:11 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint 
+    "for ST-80 compatibility; not used in ST/X"
+
     self displayOn:aDisplayMedium 
-		at:aPoint 
+                at:aPoint 
        clippingBox:nil 
-	      rule:#copy
-	      mask:nil
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:15 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clipRectangle
+    "for ST-80 compatibility; not used in ST/X"
+
     ^ self displayOn:aDisplayMedium 
-		  at:aPoint 
-	 clippingBox:clipRectangle 
-		rule:#copy
-		mask:nil
+                  at:aPoint 
+         clippingBox:clipRectangle 
+                rule:#copy
+                mask:nil
+
+    "Modified: 12.5.1996 / 20:19:17 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clip rule:rule mask: aForm
-    "in ST-80 programs, this is redefined"
+    "for ST-80 compatibility; not used in ST/X.
+     in ST-80 programs, this is redefined"
 
     aDisplayMedium function:rule.
-    ^ self drawIn:aDisplayMedium 
-	       at:(aPoint + self origin)
+    ^ self drawIn:aDisplayMedium at:(aPoint + self origin)
+
+    "Modified: 12.5.1996 / 20:19:27 / cg"
+!
+
+displayOn:aDisplayMedium x:x y:y 
+    self displayOn:aDisplayMedium 
+                at:(x@y) 
+       clippingBox:nil 
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:15 / cg"
+    "Created: 12.5.1996 / 20:20:09 / cg"
 ! !
 
 !DisplayObject methodsFor:'accessing'!
@@ -137,6 +162,14 @@
     ^ frame height
 !
 
+heightOn:aGC
+    "return the height of the frame if drawon on aCG"
+
+    ^ self height
+
+    "Created: 12.5.1996 / 20:20:54 / cg"
+!
+
 origin
     "return the frame origin"
 
@@ -165,6 +198,14 @@
 	frame := self computeBoundingBox
     ].
     ^ frame width
+!
+
+widthOn:aGC
+    "return the width of the frame if drawon on aCG"
+
+    ^ self width
+
+    "Created: 12.5.1996 / 20:20:45 / cg"
 ! !
 
 !DisplayObject methodsFor:'converting'!
@@ -381,5 +422,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.18 1996-05-09 09:23:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.19 1996-05-12 18:41:21 cg Exp $'
 ! !
--- a/DisplayObject.st	Fri May 10 18:46:43 1996 +0200
+++ b/DisplayObject.st	Sun May 12 20:41:21 1996 +0200
@@ -68,35 +68,60 @@
 !DisplayObject methodsFor:'ST-80 drawing'!
 
 displayOn: aDisplayMedium
+    "for ST-80 compatibility; not used in ST/X"
+
     self displayOn:aDisplayMedium 
-		at:0@0 
+                at:0@0 
        clippingBox:nil 
-	      rule:#copy
-	      mask:nil
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:11 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint 
+    "for ST-80 compatibility; not used in ST/X"
+
     self displayOn:aDisplayMedium 
-		at:aPoint 
+                at:aPoint 
        clippingBox:nil 
-	      rule:#copy
-	      mask:nil
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:15 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clipRectangle
+    "for ST-80 compatibility; not used in ST/X"
+
     ^ self displayOn:aDisplayMedium 
-		  at:aPoint 
-	 clippingBox:clipRectangle 
-		rule:#copy
-		mask:nil
+                  at:aPoint 
+         clippingBox:clipRectangle 
+                rule:#copy
+                mask:nil
+
+    "Modified: 12.5.1996 / 20:19:17 / cg"
 !
 
 displayOn:aDisplayMedium at:aPoint clippingBox:clip rule:rule mask: aForm
-    "in ST-80 programs, this is redefined"
+    "for ST-80 compatibility; not used in ST/X.
+     in ST-80 programs, this is redefined"
 
     aDisplayMedium function:rule.
-    ^ self drawIn:aDisplayMedium 
-	       at:(aPoint + self origin)
+    ^ self drawIn:aDisplayMedium at:(aPoint + self origin)
+
+    "Modified: 12.5.1996 / 20:19:27 / cg"
+!
+
+displayOn:aDisplayMedium x:x y:y 
+    self displayOn:aDisplayMedium 
+                at:(x@y) 
+       clippingBox:nil 
+              rule:#copy
+              mask:nil
+
+    "Modified: 12.5.1996 / 20:19:15 / cg"
+    "Created: 12.5.1996 / 20:20:09 / cg"
 ! !
 
 !DisplayObject methodsFor:'accessing'!
@@ -137,6 +162,14 @@
     ^ frame height
 !
 
+heightOn:aGC
+    "return the height of the frame if drawon on aCG"
+
+    ^ self height
+
+    "Created: 12.5.1996 / 20:20:54 / cg"
+!
+
 origin
     "return the frame origin"
 
@@ -165,6 +198,14 @@
 	frame := self computeBoundingBox
     ].
     ^ frame width
+!
+
+widthOn:aGC
+    "return the width of the frame if drawon on aCG"
+
+    ^ self width
+
+    "Created: 12.5.1996 / 20:20:45 / cg"
 ! !
 
 !DisplayObject methodsFor:'converting'!
@@ -381,5 +422,5 @@
 !DisplayObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.18 1996-05-09 09:23:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.19 1996-05-12 18:41:21 cg Exp $'
 ! !
hg/stx-libview2