--- a/DeviceWorkstation.st	Thu Aug 15 18:28:54 1996 +0200
+++ b/DeviceWorkstation.st	Thu Aug 15 18:36:04 1996 +0200
@@ -2039,15 +2039,13 @@
 
 !DeviceWorkstation methodsFor:'drawing'!
 
-copyFromId:sourceId x:srcX y:srcY to:destId x:dstX y:dstY
-		width:w height:h gc:dstGCId
+copyFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h
     "do a bit-blt"
 
     ^ self subclassResponsibility
 !
 
-copyPlaneFromId:sourceId x:srcX y:srcY to:destId x:dstX y:dstY
-		width:w height:h gc:dstGCId
+copyPlaneFromId:sourceId x:srcX y:srcY gc:srcGCId to:destId x:dstX y:dstY gc:dstGCId width:w height:h
     "do a bit-blt, using the low-bit plane of the source only"
 
     ^ self subclassResponsibility
@@ -4654,6 +4652,6 @@
 !DeviceWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.131 1996-08-15 16:18:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.132 1996-08-15 16:34:49 cg Exp $'
 ! !
 DeviceWorkstation initialize!