--- a/Cursor.st Tue May 16 19:17:11 1995 +0200
+++ b/Cursor.st Wed May 17 14:23:16 1995 +0200
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.17 1995-05-16 17:12:35 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.18 1995-05-17 12:21:28 claus Exp $
'!
!Cursor class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Cursor.st,v 1.17 1995-05-16 17:12:35 claus Exp $
+$Header: /cvs/stx/stx/libview/Cursor.st,v 1.18 1995-05-17 12:21:28 claus Exp $
"
!
@@ -754,7 +754,7 @@
shape notNil ifTrue:[
id := aDevice createCursorShape:shape.
id isNil ifTrue:[
- 'CURSOR: no cursor with shape:' errorPrint. shape errorPrintNewline.
+ 'CURSOR: no cursor with shape:' errorPrint. shape errorPrintNL.
^ nil
].
] ifFalse:[
@@ -765,7 +765,7 @@
mF := maskForm on:aDevice.
].
(sF isNil or:[mF isNil]) ifTrue:[
- 'CURSOR: cursor has no form' errorPrintNewline.
+ 'CURSOR: cursor has no form' errorPrintNL.
^ nil
].
sourceForm := sF.
@@ -776,7 +776,7 @@
hotX:hotX
hotY:hotY.
id isNil ifTrue:[
- 'CURSOR: cannot create pixmap cursor' errorPrintNewline.
+ 'CURSOR: cannot create pixmap cursor' errorPrintNL.
^ nil
].
].