--- a/EditField.st	Mon Apr 26 17:29:44 1999 +0200
+++ b/EditField.st	Tue Apr 27 09:45:16 1999 +0200
@@ -1274,12 +1274,13 @@
 
 cursorShown:aBoolean
     "make cursor visible if currently invisible - but only if this
-     EditField is enabled"
+     EditField is enabled. 
+     Return the previous cursor-shown-state"
 
     ^ super cursorShown:(aBoolean and:[enabled and:[self isReadOnly not]])
 
     "Created: / 30.3.1999 / 16:00:25 / stefan"
-    "Modified: / 1.4.1999 / 11:17:17 / cg"
+    "Modified: / 1.4.1999 / 11:18:38 / cg"
 !
 
 drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
@@ -2019,5 +2020,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.132 1999-04-24 20:03:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.133 1999-04-27 07:45:16 cg Exp $'
 ! !