--- a/GC.st	Thu Mar 06 02:41:57 1997 +0100
+++ b/GC.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/Attic/GC.st,v 1.51 1997-02-13 21:55:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.52 1997-03-06 12:08:44 ca Exp $'
 ! !
 GraphicsContext initialize!

--- 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!