diff -r fff075623c7a -r 25e775072a89 XWorkstation.st
--- a/XWorkstation.st	Thu Mar 09 04:20:08 1995 +0100
+++ b/XWorkstation.st	Sat Mar 18 06:13:39 1995 +0100
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.35 1995-03-07 21:57:31 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.36 1995-03-18 05:13:21 claus Exp $
 '!
 
 !XWorkstation class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.35 1995-03-07 21:57:31 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.36 1995-03-18 05:13:21 claus Exp $
 "
 !
 
@@ -1741,22 +1741,19 @@
 destroyGC:aGCId
 
 %{  /* NOCONTEXT */
-
     if (__isSmallInteger(aGCId)) {
 	BEGIN_INTERRUPTSBLOCKED
 	XFreeGC(myDpy, _GCVal(aGCId));
 	END_INTERRUPTSBLOCKED
 	RETURN ( self );
     }
-%}
-.
+%}.
     self primitiveFailed
 !
 
 gcFor:aDrawableId
 
 %{  /* NOCONTEXT */
-
     int screen = _intVal(_INST(screen));
     GC gc;
 
@@ -1767,8 +1764,7 @@
 	END_INTERRUPTSBLOCKED
 	RETURN ( gc ? MKOBJ(gc) : nil );
     }
-%}
-.
+%}.
     self primitiveFailed.
     ^ nil
 !
@@ -4597,7 +4593,7 @@
 !
 
 displayPointX:x y:y in:aDrawableId with:aGCId
-    "draw a point. If x/y are not integers, rounded coordinates are tried." 
+    "draw a point. If x/y are not integers, an error is triggered." 
 
 %{  /* NOCONTEXT */
 
@@ -4738,14 +4734,16 @@
 	RETURN ( self );
     }
 #endif
-%}
-.
+%}.
     self primitiveFailed
 !
 
 copyFromId:sourceId x:srcX y:srcY to:destId x:dstX y:dstY 
 		width:w height:h with:aGCId
-    "do a bit-blt"
+    "do a bit-blt; copy bits from the rectangle defined by
+     srcX/srcY and w/h from the sourceId drawable to the rectangle
+     below dstX/dstY in the destId drawable. Trigger an error if any
+     argument is not integer."
 
 %{  /* NOCONTEXT */
 
@@ -4765,14 +4763,20 @@
 				_intVal(dstX), _intVal(dstY));
 	RETURN ( self );
     }
-%}
-.
+%}.
+    "badGC, bad sourceDrawableId or destDrawableID
+     or any non integer coordinate"
+
     self primitiveFailed
 !
 
 copyPlaneFromId:sourceId x:srcX y:srcY to:destId x:dstX y:dstY 
 		width:w height:h with:aGCId
-    "do a bit-blt"
+    "do a bit-blt, but only copy the low-bit plane; 
+     copy bits from the rectangle defined by
+     srcX/srcY and w/h from the sourceId drawable to the rectangle
+     below dstX/dstY in the destId drawable. Trigger an error if any
+     argument is not integer."
 
 %{  /* NOCONTEXT */
 
@@ -4792,8 +4796,10 @@
 				 _intVal(dstX), _intVal(dstY), 1);
 	RETURN ( self );
     }
-%}
-.
+%}.
+    "badGC, bad sourceDrawableId or destDrawableID
+     or any non integer coordinate"
+
     self primitiveFailed
 !
 
@@ -4910,7 +4916,8 @@
 !
 
 fillPolygon:aPolygon in:aDrawableId with:aGCId
-    "fill a polygon given by its points. If any coordinate is not integer, an error is triggered."
+    "fill a polygon given by its points. 
+     If any coordinate is not integer, an error is triggered."
 
     |numberOfPoints|
 
@@ -4967,6 +4974,14 @@
 		   width:w height:h 
 		    with:aGCId
 
+    "draw a bitImage which has depth id, width iw and height ih into
+     the drawable. draw a region of w/h pixels from srcx/srcy to dstx/dsty.
+     Individual source pixels must have imageDepth bits.
+     It has to be checked elsewhere, that the server can do it with the given
+     depth - otherwise, primitive failure will be signalled.
+     Also it is assumed, that the colormap is setup correctly and the
+     colors are allocated - otherwise the colors may be wrong."
+
     ^ self drawBits:imageBits bitsPerPixel:imageDepth depth:imageDepth 
 				     width:imageWidth height:imageHeight 
 					 x:srcx y:srcy
@@ -4975,14 +4990,6 @@
 				     width:w height:h 
 				      with:aGCId
 
-    "draw a bitImage which has depth id, width iw and height ih into
-     the drawable. draw a region of w/h pixels from srcx/srcy to dstx/dsty.
-     Individual source pixels must have imageDepth bits.
-     It has to be checked elsewhere, that the server can do it with the given
-     depth - otherwise, primitive failure will be signalled.
-     Also it is assumed, that the colormap is setup correctly and the
-     colors are allocated - otherwise the colors may be wrong."
-
 !
 
 drawBits:imageBits bitsPerPixel:bitsPerPixel depth:imageDepth