--- 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
].
].