--- a/Cursor.st	Mon Mar 20 09:54:57 2006 +0100
+++ b/Cursor.st	Wed Mar 29 10:44:13 2006 +0200
@@ -3206,6 +3206,15 @@
     cursorId := device := nil.
 ! !
 
+!Cursor methodsFor:'printing'!
+
+printOn:aStream
+    self className printOn:aStream.
+    aStream nextPut:$(.
+    shape printOn:aStream.
+    aStream nextPut:$).
+! !
+
 !Cursor methodsFor:'private'!
 
 allocateOnDevice:aDevice
@@ -3341,7 +3350,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.104 2006-03-06 08:53:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.105 2006-03-29 08:44:13 stefan Exp $'
 ! !
 
 Cursor initialize!