--- a/Cursor.st Thu Jan 16 17:55:01 1997 +0100
+++ b/Cursor.st Thu Jan 16 18:12:37 1997 +0100
@@ -43,36 +43,37 @@
I represents cursors in a device independent manner.
Normally, cursors are defined at view creation time,
via
- 'aView cursor:aCursor'.
+ 'aView cursor:aCursor'.
[Instance variables:]
- shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
- sourceForm <Form> if shape is nil, the source bits
- maskForm <Form> if shape is nil, the mask bits
- hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
- hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
- device <aDevice> the device, if associated to one
- cursorId <anObject> the device-specific id if device is nonNil
+ shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
+ sourceForm <Form> if shape is nil, the source bits
+ maskForm <Form> if shape is nil, the mask bits
+ hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
+ hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
+ device <aDevice> the device, if associated to one
+ cursorId <anObject> the device-specific id if device is nonNil
[class variables:]
- Lobby <Registry> keeps track of known device cursors
+ Lobby <Registry> keeps track of known device cursors
+ (dont use it: this will be moved to the device)
- DefaultFgColor <Color> default foreground color for cursors (usually black)
- DefaultBgColor <Color> default background color for cursors (usually white)
+ DefaultFgColor <Color> default foreground color for cursors (usually black)
+ DefaultBgColor <Color> default background color for cursors (usually white)
- NormalCursor <Cursor> cached instance of normal (arrow) cursor
- ...
+ NormalCursor <Cursor> cached instance of normal (arrow) cursor
+ ...
[see also:]
- DeviceWorkstation
- DisplaySurface
- Font Cursor Color Form
- ( introduction to view programming :html: programming/viewintro.html#CURSOR )
+ DeviceWorkstation
+ DisplaySurface
+ Font Cursor Color Form
+ ( introduction to view programming :html: programming/viewintro.html#CURSOR )
[author:]
- Claus Gittinger
+ Claus Gittinger
"
!
@@ -2005,6 +2006,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.44 1997-01-16 15:47:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.45 1997-01-16 17:12:37 cg Exp $'
! !
Cursor initialize!