*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 12 Jan 1996 03:20:05 +0100
changeset 363 7010b44963c7
parent 362 0fa4bc6ad8d1
child 364 b44b425e3ee1
*** empty log message ***
Cursor.st
--- a/Cursor.st	Wed Jan 10 16:06:57 1996 +0100
+++ b/Cursor.st	Fri Jan 12 03:20:05 1996 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.24 1995-11-14 18:32:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.25 1996-01-12 02:20:05 cg Exp $'
 !
 
 documentation
@@ -850,7 +850,7 @@
 	id := aDevice createCursorShape:shape.
 	id isNil ifTrue:[
 	    'CURSOR: no cursor with shape:' errorPrint. shape errorPrintNL.
-	    ^ nil
+	    ^ self
 	].
     ] ifFalse:[
 	sourceForm notNil ifTrue:[
@@ -861,7 +861,7 @@
 	].
 	(sF isNil or:[mF isNil]) ifTrue:[
 	    'CURSOR: cursor has no form' errorPrintNL.
-	    ^ nil
+	    ^ self
 	].
 	sourceForm := sF.
 	maskForm := mF.
@@ -872,7 +872,7 @@
 					hotY:hotY.
 	id isNil ifTrue:[
 	    'CURSOR: cannot create pixmap cursor' errorPrintNL.
-	    ^ nil
+	    ^ self
 	].
     ].