--- a/GraphicsContext.st Thu Mar 06 02:41:57 1997 +0100
+++ b/GraphicsContext.st Thu Mar 06 13:08:44 1997 +0100
@@ -448,6 +448,12 @@
^ self maskOrigin:aPoint
!
+setDevicePattern:aColorOrMask
+ "ST/X can paint in any color or image"
+
+ self paint:aColorOrMask
+!
+
tilePhase
"return the origin within the mask (used to draw with patterns).
This is an alias for ST/X's #maskOrigin"
@@ -1523,6 +1529,6 @@
!GraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.51 1997-02-13 21:55:41 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.52 1997-03-06 12:08:44 ca Exp $'
! !
GraphicsContext initialize!