--- a/Cursor.st Mon Feb 06 01:30:10 1995 +0100
+++ b/Cursor.st Mon Feb 06 01:38:04 1995 +0100
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.13 1994-11-17 14:24:52 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.14 1995-02-06 00:35:38 claus Exp $
'!
!Cursor class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.13 1994-11-17 14:24:52 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.14 1995-02-06 00:35:38 claus Exp $
"
!
@@ -626,16 +626,18 @@
shape notNil ifTrue:[
id := aDevice createCursorShape:shape.
id isNil ifTrue:[
- 'no cursor with shape:' errorPrint. shape errorPrintNewline.
+ 'CURSOR: no cursor with shape:' errorPrint. shape errorPrintNewline.
^ nil
].
] ifFalse:[
+ sourceForm := sourceForm on:aDevice.
+ maskForm := maskForm on:aDevice.
id := aDevice createCursorSourceForm:sourceForm
maskForm:maskForm
hotX:hotX
hotY:hotY.
id isNil ifTrue:[
- 'cannot create cursor' errorPrintNewline.
+ 'CURSOR: cannot create pixmap cursor' errorPrintNewline.
^ nil
].
].