--- a/XWorkstat.st	Sat May 03 13:02:00 1997 +0200
+++ b/XWorkstat.st	Tue May 06 14:47:24 1997 +0200
@@ -6454,7 +6454,7 @@
 
 !XWorkstation methodsFor:'graphic context stuff'!
 
-noClipIn:aGCId
+noClipIn:aDrawableId gc:aGCId
     "disable clipping rectangle"
 
 %{  /* NOCONTEXT */
@@ -6543,7 +6543,7 @@
     self primitiveFailed
 !
 
-setClipX:clipX y:clipY width:clipWidth height:clipHeight in:aGCId
+setClipX:clipX y:clipY width:clipWidth height:clipHeight in:drawableId gc:aGCId
     "clip to a rectangle"
 
 %{  /* NOCONTEXT */
@@ -9298,6 +9298,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.243 1997-05-01 16:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.244 1997-05-06 12:47:24 cg Exp $'
 ! !
 XWorkstation initialize!

--- a/XWorkstation.st	Sat May 03 13:02:00 1997 +0200
+++ b/XWorkstation.st	Tue May 06 14:47:24 1997 +0200
@@ -6454,7 +6454,7 @@
 
 !XWorkstation methodsFor:'graphic context stuff'!
 
-noClipIn:aGCId
+noClipIn:aDrawableId gc:aGCId
     "disable clipping rectangle"
 
 %{  /* NOCONTEXT */
@@ -6543,7 +6543,7 @@
     self primitiveFailed
 !
 
-setClipX:clipX y:clipY width:clipWidth height:clipHeight in:aGCId
+setClipX:clipX y:clipY width:clipWidth height:clipHeight in:drawableId gc:aGCId
     "clip to a rectangle"
 
 %{  /* NOCONTEXT */
@@ -9298,6 +9298,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.243 1997-05-01 16:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.244 1997-05-06 12:47:24 cg Exp $'
 ! !
 XWorkstation initialize!