--- a/GraphicsContext.st	Thu Jul 14 12:15:22 2011 +0200
+++ b/GraphicsContext.st	Wed Jul 20 17:10:11 2011 +0200
@@ -1199,11 +1199,11 @@
 "/    w := 8.
 
     pattern := #[
-                 2r11000000 
-                 2r00110000 
+                 2r11001100 2r11001100 2r11001100 2r11001100
+                 2r00110011 2r00110011 2r00110011 2r00110011
                 ].
     h := 2.
-    w := 4.
+    w := 32.
 
     form := Form width:w height:h fromArray:pattern.
 
@@ -1217,8 +1217,8 @@
     ].
     self clippingRectangle:oldClip
 
-    "Created: / 28.10.1998 / 15:31:41 / cg"
-    "Modified: / 7.7.1999 / 00:08:30 / cg"
+    "Created: / 28-10-1998 / 15:31:41 / cg"
+    "Modified: / 20-07-2011 / 17:09:54 / cg"
 !
 
 displayLineFromX:x0 y:y0 toX:x1 y:y1
@@ -2448,11 +2448,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.123 2009-10-01 16:24:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.124 2011-07-20 15:10:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.123 2009-10-01 16:24:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.124 2011-07-20 15:10:11 cg Exp $'
 ! !
 
 GraphicsContext initialize!