--- a/Cursor.st Sun Dec 05 17:59:01 1999 +0100
+++ b/Cursor.st Tue Dec 07 13:17:07 1999 +0100
@@ -968,7 +968,7 @@
2r0000000110000000
2r0)
offset: -7@ -7).
- CrossHairCursor setShape:#upLeftArrow.
+ CrossHairCursor setShape:#crossHair.
CrossCursor :=
(Cursor
@@ -1838,6 +1838,47 @@
offset: -8 @ -8).
EyeCursor setShape:#eye.
+ QuestionMarkCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011111000000
+ 2r0000111111110000
+ 2r0000110000011000
+ 2r0000000000001100
+ 2r0000000000001100
+ 2r0000000000011000
+ 2r0000000000110000
+ 2r0000000001100000
+ 2r0000000011000000
+ 2r0000000110000000
+ 2r0000000000000000
+ 2r0000000110000000
+ 2r0000000110000000
+ )
+ maskArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011111000000
+ 2r0000111111110000
+ 2r0000110000011000
+ 2r0000000000001100
+ 2r0000000000001100
+ 2r0000000000011000
+ 2r0000000000110000
+ 2r0000000001100000
+ 2r0000000011000000
+ 2r0000000110000000
+ 2r0000000000000000
+ 2r0000000110000000
+ 2r0000000110000000
+ )
+ offset: -8 @ -8).
+ QuestionMarkCursor setShape:#questionMark.
+
"/ if possible, preallocate them on the default display
device notNil ifTrue:[
FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
@@ -1878,6 +1919,7 @@
ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device].
StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device].
EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device].
+ QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device].
].
"
@@ -3120,6 +3162,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.81 1999-12-02 21:03:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.82 1999-12-07 12:17:07 cg Exp $'
! !
Cursor initialize!