--- a/Cursor.st	Wed Mar 30 03:25:26 1994 +0200
+++ b/Cursor.st	Wed Mar 30 12:13:08 1994 +0200
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.7 1994-02-25 13:10:15 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.8 1994-03-30 10:11:08 claus Exp $
 
 see Cursor class documentation for info.
 
@@ -41,30 +41,30 @@
 !Cursor class methodsFor:'documentation'!
 
 documentation
-    "
-I represents cursors in a device independent manner.
+"
+    I represents cursors in a device independent manner.
 
-Instance variables:
+    Instance variables:
 
-shape           <Symbol>        a shape (i.e. #arrow, #hand, ...) or nil
-sourceForm      <Form>          if shape is nil, the source bits
-maskForm        <Form>          if shape is nil, the mask bits
-hotX            <SmallInteger>  if shape is nil, the hotSpot x of the cursor
-hotY            <SmallInteger>  if shape is nil, the hotSpot y of the cursor
-device          <aDevice>       the device, if associated to one
-cursorId        <anObject>      the device-specific id if device is nonNil
+        shape           <Symbol>        a shape (i.e. #arrow, #hand, ...) or nil
+        sourceForm      <Form>          if shape is nil, the source bits
+        maskForm        <Form>          if shape is nil, the mask bits
+        hotX            <SmallInteger>  if shape is nil, the hotSpot x of the cursor
+        hotY            <SmallInteger>  if shape is nil, the hotSpot y of the cursor
+        device          <aDevice>       the device, if associated to one
+        cursorId        <anObject>      the device-specific id if device is nonNil
 
-class variables:
+    class variables:
 
-Lobby           <Registry>      keeps track of known device cursors
+        Lobby           <Registry>      keeps track of known device cursors
 
-DefaultFgColor  <Color>         default foreground color for cursors (usually black)
-DefaultBgColor  <Color>         default background color for cursors (usually white)
+        DefaultFgColor  <Color>         default foreground color for cursors (usually black)
+        DefaultBgColor  <Color>         default background color for cursors (usually white)
 
-NormalCursor    <Cursor>        cached instance of normal (arrow) cursor
- ...
+        NormalCursor    <Cursor>        cached instance of normal (arrow) cursor
+         ...
 
-    "
+"
 ! !
 
 !Cursor class methodsFor:'initialization'!
@@ -680,7 +680,7 @@
     shape notNil ifTrue:[
         id := aDevice createCursorShape:shape.
         id isNil ifTrue:[
-            'no cursor with shape:' print. shape printNewline.
+            'no cursor with shape:' errorPrint. shape errorPrintNewline.
             ^ nil
         ].
     ] ifFalse:[
@@ -689,7 +689,7 @@
                                         hotX:hotX
                                         hotY:hotY.
         id isNil ifTrue:[
-            'cannot create cursor' printNewline.
+            'cannot create cursor' errorPrintNewline.
             ^ nil
         ].
     ].