--- a/EditTextView.st	Mon Sep 02 17:17:10 2013 +0200
+++ b/EditTextView.st	Mon Sep 02 19:56:56 2013 +0200
@@ -191,9 +191,10 @@
         cursorBgColor           <Color>         color used for cursor drawing
 
         cursorType              <Symbol>        how the cursor is drawn; currently implemented
-                                                are #block (solid-block cursor), #ibeam
+                                                are #none, #block (solid-block cursor), #ibeam
                                                 (vertical bar at insertion point)
-                                                and #caret (caret below insertion-point)
+                                                and #caret (caret below insertion-point).
+                                                see cursorType: for an up-to-date list.
 
         cursorTypeNoFocus       <Symbol>        like above, if view has no focus
                                                 nil means: hide the cursor.
@@ -1340,8 +1341,9 @@
 
 cursorType
     "return the style of the text cursor.
-     Currently, supported are: #block, #frame, #ibeam, #caret, #solidCaret
-			       #bigCaret and #bigSolidCaret"
+     Currently, supported are: #none
+                               #block, #frame, #ibeam, #caret, #solidCaret
+                               #bigCaret and #bigSolidCaret"
 
     ^ cursorType
 
@@ -1350,8 +1352,9 @@
 
 cursorType:aCursorTypeSymbol
     "set the style of the text cursor.
-     Currently, supported are: #block, #frame, #ibeam, #caret, #solidCaret
-			       #bigCaret and #bigSolidCaret"
+     Currently, supported are: #none
+                               #block, #frame, #ibeam, #caret, #solidCaret
+                               #bigCaret and #bigSolidCaret"
 
     cursorType := aCursorTypeSymbol.
 
@@ -2018,7 +2021,8 @@
 drawCursor:cursorType with:fgColor and:bgColor
     "draw a cursor; the argument cursorType specifies what type
      of cursor should be drawn.
-     Currently, supported are: #block, #frame, #ibeam, #caret, #solidCaret
+     Currently, supported are: #none, 
+                               #block, #frame, #ibeam, #caret, #solidCaret
                                #bigCaret and #bigSolidCaret"
 
     |x y w char y2 x1 x2 oldPaint oldClip|
@@ -5508,9 +5512,12 @@
     cursorFgColor isNil ifTrue:[cursorFgColor := bgColor].
     cursorBgColor := DefaultCursorBackgroundColor.
     cursorBgColor isNil ifTrue:[cursorBgColor := fgColor].
-    cursorType := cursorTypeNoFocus := DefaultCursorType.
-    DefaultCursorTypeNoFocus notNil ifTrue:[
-        cursorTypeNoFocus := DefaultCursorTypeNoFocus.
+    cursorType isNil ifTrue:[cursorType := DefaultCursorType].
+    cursorTypeNoFocus isNil ifTrue:[
+        cursorTypeNoFocus := cursorType.
+        DefaultCursorTypeNoFocus notNil ifTrue:[
+            cursorTypeNoFocus := DefaultCursorTypeNoFocus.
+        ]
     ].
     cursorNoFocusFgColor := DefaultCursorNoFocusForegroundColor.
     cursorNoFocusFgColor isNil ifTrue:[
@@ -8227,10 +8234,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.571 2013-09-01 00:38:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.572 2013-09-02 17:56:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.571 2013-09-01 00:38:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.572 2013-09-02 17:56:56 cg Exp $'
 ! !