Mercurial Mercurial > hg > stx-libview / 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.
removed unused methods
authorClaus Gittinger <cg@exept.de>
Tue, 28 May 1996 20:12:07 +0200
changeset 740 1c7b9e3e86d1
parent 739 3d809aa492ec
child 741 f57edf410176
removed unused methods
GC.st file | annotate | diff | comparison | revisions
GMedium.st file | annotate | diff | comparison | revisions
GraphicsContext.st file | annotate | diff | comparison | revisions
GraphicsMedium.st file | annotate | diff | comparison | revisions 
--- a/GC.st	Tue May 28 20:08:18 1996 +0200
+++ b/GC.st	Tue May 28 20:12:07 1996 +0200
@@ -1195,15 +1195,6 @@
     transformation := nil.
     self fillRectangleX:x y:y width:w height:h.
     transformation := sav
-!
-
-fillDeviceRectangleX:x y:y width:w height:h with:aPattern
-    "fill the rectangular area in the receiver with aPattern,
-     which may be a Form or Color. Use device coordinates."
-
-    self withPattern:aPattern do:[
-	self fillDeviceRectangleX:x y:y width:w height:h
-    ]
 ! !
 
 !GraphicsContext methodsFor:'edge drawing'!
@@ -1465,6 +1456,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.41 1996-05-28 17:43:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.42 1996-05-28 18:12:07 cg Exp $'
 ! !
 GraphicsContext initialize!
--- a/GMedium.st	Tue May 28 20:08:18 1996 +0200
+++ b/GMedium.st	Tue May 28 20:12:07 1996 +0200
@@ -195,41 +195,6 @@
 
 !GraphicsMedium methodsFor:'evaluating in another context'!
 
-clippedTo:aRectangle do:aBlock
-    "evaluate aBlock with clipping rectangle set to aRectangle"
-
-    |oldClip|
-    
-    oldClip := clipRect.
-    self clippingRectangle:aRectangle.
-    aBlock value.
-    self clippingRectangle:oldClip
-
-    "Modified: 28.5.1996 / 20:04:58 / cg"
-!
-
-withFunction:aFunction do:aBlock
-    "evaluate aBlock with function set to aFunction"
-
-    |oldFun|
-
-    oldFun := function.
-    self function:aFunction.
-    aBlock value.
-    self function:oldFun
-!
-
-withMask:aMask do:aBlock
-    "evaluate aBlock with mask set to aMask"
-
-    |oldMask|
-
-    oldMask := mask.
-    self mask:aMask.
-    aBlock value.
-    self mask:oldMask
-!
-
 withPattern:aPattern do:aBlock
     |old|
 
@@ -297,52 +262,6 @@
     self fillRectangleX:0 y:0 width:width height:height with:something
 !
 
-fillArcX:x y:y w:w h:h from:startAngle angle:angle with:aPattern
-    "fill an arc in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self obsoleteMethodWarning:'use #fillArcX:y:width:height:from:angle:with:'.
-    self fillArcX:x y:y width:w height:h from:startAngle angle:angle with:aPattern
-
-    "Modified: 8.5.1996 / 08:41:26 / cg"
-!
-
-fillArcX:x y:y width:w height:h from:startAngle angle:angle with:aPattern
-    "fill an arc in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self withPattern:aPattern do:[
-        self fillArcX:x y:y width:w height:h from:startAngle angle:angle
-    ]
-
-    "Created: 8.5.1996 / 08:40:41 / cg"
-!
-
-fillCircle:aPoint radius:aNumber with:aPattern
-    "fill a circle in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self fillCircleX:(aPoint x) y:(aPoint y) radius:aNumber with:aPattern
-!
-
-fillCircleX:x y:y radius:r with:aPattern
-    "fill a circle with aPattern,
-     which may be a Color or Form"
-
-    |d|
-    d := 2 * r.
-    self 
-        fillArcX:(x - r) 
-               y:(y - r)
-           width:d
-          height:d
-            from:0
-           angle:360
-            with:aPattern
-
-    "Modified: 8.5.1996 / 08:40:14 / cg"
-!
-
 fillRectangleX:x y:y width:w height:h with:aColor
     "fill the rectangular area in the receiver with aColor,
      which may be a Form or Color"
@@ -403,5 +322,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.5 1996-05-28 18:07:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GMedium.st,v 1.6 1996-05-28 18:11:39 cg Exp $'
 ! !
--- a/GraphicsContext.st	Tue May 28 20:08:18 1996 +0200
+++ b/GraphicsContext.st	Tue May 28 20:12:07 1996 +0200
@@ -1195,15 +1195,6 @@
     transformation := nil.
     self fillRectangleX:x y:y width:w height:h.
     transformation := sav
-!
-
-fillDeviceRectangleX:x y:y width:w height:h with:aPattern
-    "fill the rectangular area in the receiver with aPattern,
-     which may be a Form or Color. Use device coordinates."
-
-    self withPattern:aPattern do:[
-	self fillDeviceRectangleX:x y:y width:w height:h
-    ]
 ! !
 
 !GraphicsContext methodsFor:'edge drawing'!
@@ -1465,6 +1456,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.41 1996-05-28 17:43:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.42 1996-05-28 18:12:07 cg Exp $'
 ! !
 GraphicsContext initialize!
--- a/GraphicsMedium.st	Tue May 28 20:08:18 1996 +0200
+++ b/GraphicsMedium.st	Tue May 28 20:12:07 1996 +0200
@@ -195,41 +195,6 @@
 
 !GraphicsMedium methodsFor:'evaluating in another context'!
 
-clippedTo:aRectangle do:aBlock
-    "evaluate aBlock with clipping rectangle set to aRectangle"
-
-    |oldClip|
-    
-    oldClip := clipRect.
-    self clippingRectangle:aRectangle.
-    aBlock value.
-    self clippingRectangle:oldClip
-
-    "Modified: 28.5.1996 / 20:04:58 / cg"
-!
-
-withFunction:aFunction do:aBlock
-    "evaluate aBlock with function set to aFunction"
-
-    |oldFun|
-
-    oldFun := function.
-    self function:aFunction.
-    aBlock value.
-    self function:oldFun
-!
-
-withMask:aMask do:aBlock
-    "evaluate aBlock with mask set to aMask"
-
-    |oldMask|
-
-    oldMask := mask.
-    self mask:aMask.
-    aBlock value.
-    self mask:oldMask
-!
-
 withPattern:aPattern do:aBlock
     |old|
 
@@ -297,52 +262,6 @@
     self fillRectangleX:0 y:0 width:width height:height with:something
 !
 
-fillArcX:x y:y w:w h:h from:startAngle angle:angle with:aPattern
-    "fill an arc in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self obsoleteMethodWarning:'use #fillArcX:y:width:height:from:angle:with:'.
-    self fillArcX:x y:y width:w height:h from:startAngle angle:angle with:aPattern
-
-    "Modified: 8.5.1996 / 08:41:26 / cg"
-!
-
-fillArcX:x y:y width:w height:h from:startAngle angle:angle with:aPattern
-    "fill an arc in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self withPattern:aPattern do:[
-        self fillArcX:x y:y width:w height:h from:startAngle angle:angle
-    ]
-
-    "Created: 8.5.1996 / 08:40:41 / cg"
-!
-
-fillCircle:aPoint radius:aNumber with:aPattern
-    "fill a circle in the receiver with aPattern,
-     which may be a Color or Form"
-
-    self fillCircleX:(aPoint x) y:(aPoint y) radius:aNumber with:aPattern
-!
-
-fillCircleX:x y:y radius:r with:aPattern
-    "fill a circle with aPattern,
-     which may be a Color or Form"
-
-    |d|
-    d := 2 * r.
-    self 
-        fillArcX:(x - r) 
-               y:(y - r)
-           width:d
-          height:d
-            from:0
-           angle:360
-            with:aPattern
-
-    "Modified: 8.5.1996 / 08:40:14 / cg"
-!
-
 fillRectangleX:x y:y width:w height:h with:aColor
     "fill the rectangular area in the receiver with aColor,
      which may be a Form or Color"
@@ -403,5 +322,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.5 1996-05-28 18:07:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.6 1996-05-28 18:11:39 cg Exp $'
 ! !
hg/stx-libview