--- a/Cursor.st Fri Jan 10 19:22:41 1997 +0100
+++ b/Cursor.st Fri Jan 10 19:40:01 1997 +0100
@@ -1903,7 +1903,7 @@
].
].
(sF isNil or:[mF isNil]) ifTrue:[
- 'CURSOR: cursor has no form' errorPrintNL.
+ 'Cursor [warning]: cursor has no form' errorPrintCR.
^ self
].
w := sourceForm width.
@@ -1951,7 +1951,7 @@
Lobby register:newCursor.
^ newCursor
- "Modified: 10.1.1997 / 17:35:12 / cg"
+ "Modified: 10.1.1997 / 19:08:20 / cg"
!
restored
@@ -1988,6 +1988,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.41 1997-01-10 18:05:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.42 1997-01-10 18:40:01 cg Exp $'
! !
Cursor initialize!