--- a/Cursor.st Thu Apr 29 15:04:57 1999 +0200
+++ b/Cursor.st Thu Apr 29 21:57:56 1999 +0200
@@ -18,7 +18,7 @@
ThumbsUpCursor ThumbsDownCursor ReadCursor WriteCursor XeqCursor
StopCursor EyeCursor BlankCursor MarkerCursor UpCursor DownCursor
LeftCursor RightCursor XMarkerCursor CaretCursor
- UpRightHandCursor DocumentCursor FolderCursor'
+ UpRightHandCursor DocumentCursor FolderCursor CrossCursor'
poolDictionaries:''
category:'Graphics-Support'
!
@@ -377,1109 +377,1153 @@
!
initializeNewCursors
- "Create the new cursors
- Cursor blank
- Cursor down
- Cursor execute
- Cursor left
- Cursor marker
- Cursor normal
- Cursor read
- Cursor right
- Cursor square
- Cursor up
- Cursor wait
- Cursor write
- Cursor thumbsUp
- Cursor thumbsDown
- Cursor xMarker
- Cursor caret
- Cursor stop
- Cursor eye"
-
- |device builtIn bits isWindows|
+ "Create additional cursors as bitmap cursors,
+ if not available as native cursors on the device.
+ This is rubbish - we must keep that info on a per-device
+ basis ...
+ Cursor blank
+ Cursor down
+ Cursor execute
+ Cursor left
+ Cursor marker
+ Cursor normal
+ Cursor read
+ Cursor right
+ Cursor square
+ Cursor up
+ Cursor wait
+ Cursor write
+ Cursor thumbsUp
+ Cursor thumbsDown
+ Cursor xMarker
+ Cursor caret
+ Cursor stop
+ Cursor eye"
+
+ |device builtIn bits isWindows CrossCursor|
device := Display.
isWindows := device platformName = 'WIN32'.
builtIn := device builtInCursorShapes.
(builtIn includes:#folder) ifFalse:[
- FolderCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0011111000000000
- 2r0100000100000000
- 2r1111111111111110
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1000000000000001
- 2r1010101010101011
- 2r0111111111111111
- 2r0000000000000000)
- maskArray: #(
- 2r0000000000000000
- 2r0011111000000000
- 2r0111111100000000
- 2r1111111111111110
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r0111111111111111
- 2r0000000000000000)
- offset: 0@ -3).
+ FolderCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0011111000000000
+ 2r0100000100000000
+ 2r1111111111111110
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1000000000000001
+ 2r1010101010101011
+ 2r0111111111111111
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000000000000
+ 2r0011111000000000
+ 2r0111111100000000
+ 2r1111111111111110
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0111111111111111
+ 2r0000000000000000)
+ offset: 0@ -3).
].
(builtIn includes:#document) ifFalse:[
- DocumentCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0011111111100000
- 2r0010000000110000
- 2r0010000000101000
- 2r0010000000111100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0010000000000100
- 2r0011111111111100
- 2r0000000000000000)
- maskArray: #(
- 2r0000000000000000
- 2r0011111111100000
- 2r0011111111110000
- 2r0011111111111000
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0011111111111100
- 2r0000000000000000)
- offset: -2@ -1).
+ DocumentCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0011111111100000
+ 2r0010000000110000
+ 2r0010000000101000
+ 2r0010000000111100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0010000000000100
+ 2r0011111111111100
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000000000000
+ 2r0011111111100000
+ 2r0011111111110000
+ 2r0011111111111000
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0011111111111100
+ 2r0000000000000000)
+ offset: -2@ -1).
].
(builtIn includes:#origin) ifFalse:[
- OriginCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0111111111111111
- 2r0111111111111111
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000)
- maskArray: #(
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000)
- offset: -1@ -1).
+ OriginCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0111111111111111
+ 2r0111111111111111
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000)
+ maskArray: #(
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000)
+ offset: -1@ -1).
].
(builtIn includes:#corner) ifFalse:[
- CornerCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r0000000000000110
- 2r1111111111111110
- 2r1111111111111110
- 2r0000000000000000)
- maskArray: #(
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r0000000000001111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111)
- offset: -14@ -14).
+ CornerCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r0000000000000110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r0000000000001111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111)
+ offset: -14@ -14).
].
(builtIn includes:#read) ifFalse:[
- ReadCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0
- 2r0000110000000110
- 2r0001001000001001
- 2r0001001000001001
- 2r0010000000010000
- 2r0100000000100000
- 2r1111101111100000
- 2r1000010000100000
- 2r1000010000100000
- 2r1011010110100000
- 2r0111101111000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r0001111000001111
- 2r0001111000011111
- 2r0011111000011111
- 2r0011100000111100
- 2r0111000000111000
- 2r1111111111110000
- 2r1111111111110000
- 2r1111111111110000
- 2r1111111111110000
- 2r1111111111110000
- 2r1111111111100000
- 2r0111111111000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -5 @ -7).
+ ReadCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0
+ 2r0000110000000110
+ 2r0001001000001001
+ 2r0001001000001001
+ 2r0010000000010000
+ 2r0100000000100000
+ 2r1111101111100000
+ 2r1000010000100000
+ 2r1000010000100000
+ 2r1011010110100000
+ 2r0111101111000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0001111000001111
+ 2r0001111000011111
+ 2r0011111000011111
+ 2r0011100000111100
+ 2r0111000000111000
+ 2r1111111111110000
+ 2r1111111111110000
+ 2r1111111111110000
+ 2r1111111111110000
+ 2r1111111111110000
+ 2r1111111111100000
+ 2r0111111111000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -5 @ -7).
].
(builtIn includes:#write) ifFalse:[
- WriteCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000110
- 2r0000000000001111
- 2r0000000000010110
- 2r0000000000100100
- 2r0000000001001000
- 2r0000000010010000
- 2r0000000100100000
- 2r0000001001000011
- 2r0000010010000010
- 2r0000100100000110
- 2r0001001000001000
- 2r0010010000001000
- 2r0111100001001000
- 2r0101000010111000
- 2r0110000110000000
- 2r1111111100000000)
- maskArray: #(
- 2r0000000000000111
- 2r0000000000001111
- 2r0000000000011110
- 2r0000000000111100
- 2r0000000001111000
- 2r0000000011110000
- 2r0000000111100001
- 2r0000001111000110
- 2r0000011110000110
- 2r0000111100001110
- 2r0001111000001100
- 2r0011110001001100
- 2r0111100011111000
- 2r0111000110111000
- 2r0111111110000000
- 2r1111111100000000)
- offset: 0@ -15).
+ WriteCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000110
+ 2r0000000000001111
+ 2r0000000000010110
+ 2r0000000000100100
+ 2r0000000001001000
+ 2r0000000010010000
+ 2r0000000100100000
+ 2r0000001001000011
+ 2r0000010010000010
+ 2r0000100100000110
+ 2r0001001000001000
+ 2r0010010000001000
+ 2r0111100001001000
+ 2r0101000010111000
+ 2r0110000110000000
+ 2r1111111100000000)
+ maskArray: #(
+ 2r0000000000000111
+ 2r0000000000001111
+ 2r0000000000011110
+ 2r0000000000111100
+ 2r0000000001111000
+ 2r0000000011110000
+ 2r0000000111100001
+ 2r0000001111000110
+ 2r0000011110000110
+ 2r0000111100001110
+ 2r0001111000001100
+ 2r0011110001001100
+ 2r0111100011111000
+ 2r0111000110111000
+ 2r0111111110000000
+ 2r1111111100000000)
+ offset: 0@ -15).
].
(builtIn includes:#wait) ifFalse:[
- WaitCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r1111111111111111
- 2r1000000000000001
- 2r0100000000000010
- 2r0010000000000100
- 2r0001110000111000
- 2r0000111101110000
- 2r0000011011100000
- 2r0000001111000000
- 2r0000001111000000
- 2r0000010110100000
- 2r0000100010010000
- 2r0001000110001000
- 2r0010001101000100
- 2r0100111111110010
- 2r1011111111111101
- 2r1111111111111111)
- maskArray: #(
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r0111111111111110
- 2r0011111111111100
- 2r0001111111111000
- 2r0000111111110000
- 2r0000011111100000
- 2r0000011111100000
- 2r0000111111110000
- 2r0001111111111000
- 2r0011111111111100
- 2r0111111111111110
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111)
- offset: -8@ -8).
+ WaitCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r1111111111111111
+ 2r1000000000000001
+ 2r0100000000000010
+ 2r0010000000000100
+ 2r0001110000111000
+ 2r0000111101110000
+ 2r0000011011100000
+ 2r0000001111000000
+ 2r0000001111000000
+ 2r0000010110100000
+ 2r0000100010010000
+ 2r0001000110001000
+ 2r0010001101000100
+ 2r0100111111110010
+ 2r1011111111111101
+ 2r1111111111111111)
+ maskArray: #(
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0111111111111110
+ 2r0011111111111100
+ 2r0001111111111000
+ 2r0000111111110000
+ 2r0000011111100000
+ 2r0000011111100000
+ 2r0000111111110000
+ 2r0001111111111000
+ 2r0011111111111100
+ 2r0111111111111110
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111)
+ offset: -8@ -8).
].
(builtIn includes:#blank) ifFalse:[
- BlankCursor :=
- (Cursor
- extent: 16@16
- fromArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: 0@0).
+ BlankCursor :=
+ (Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: 0@0).
].
(builtIn includes:#execute) ifFalse:[
- XeqCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r1000000000010000
- 2r1100000000010000
- 2r1110000000111000
- 2r1111000111111111
- 2r1111100011000110
- 2r1111110001000100
- 2r1111111001111100
- 2r1111000001101100
- 2r1101100011000110
- 2r1001100010000010
- 2r0000110000000000
- 2r0000110000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000001100000000
- 2r0000001100000000)
- maskArray: #(
- 2r1100000000111000
- 2r1110000000111000
- 2r1111000111111111
- 2r1111100111111111
- 2r1111110011111111
- 2r1111111001111110
- 2r1111111101111100
- 2r1111100001111110
- 2r1101110011100111
- 2r1001110011000010
- 2r0000111000000000
- 2r0000111000000000
- 2r0000011100000000
- 2r0000011100000000
- 2r0000001110000000
- 2r0000001110000000)
- offset: 0@0).
+ XeqCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r1000000000010000
+ 2r1100000000010000
+ 2r1110000000111000
+ 2r1111000111111111
+ 2r1111100011000110
+ 2r1111110001000100
+ 2r1111111001111100
+ 2r1111000001101100
+ 2r1101100011000110
+ 2r1001100010000010
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000001100000000
+ 2r0000001100000000)
+ maskArray: #(
+ 2r1100000000111000
+ 2r1110000000111000
+ 2r1111000111111111
+ 2r1111100111111111
+ 2r1111110011111111
+ 2r1111111001111110
+ 2r1111111101111100
+ 2r1111100001111110
+ 2r1101110011100111
+ 2r1001110011000010
+ 2r0000111000000000
+ 2r0000111000000000
+ 2r0000011100000000
+ 2r0000011100000000
+ 2r0000001110000000
+ 2r0000001110000000)
+ offset: 0@0).
].
(builtIn includes:#square) ifFalse:[
- SquareCursor :=
- (Cursor
- extent: 16@16
- fromArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000001111000000
- 2r0000001111000000
- 2r0000001111000000
- 2r0000001111000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -8@ -8).
+ SquareCursor :=
+ (Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000001111000000
+ 2r0000001111000000
+ 2r0000001111000000
+ 2r0000001111000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -8@ -8).
].
(builtIn includes:#upLeftArrow) ifFalse:[
- NormalCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r1000000000000000
- 2r1100000000000000
- 2r1110000000000000
- 2r1111000000000000
- 2r1111100000000000
- 2r1111110000000000
- 2r1111111000000000
- 2r1111100000000000
- 2r1111100000000000
- 2r1001100000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000001100000000
- 2r0000001100000000)
- maskArray: #(
- 2r1100000000000000
- 2r1110000000000000
- 2r1111000000000000
- 2r1111100000000000
- 2r1111110000000000
- 2r1111111000000000
- 2r1111111100000000
- 2r1111110000000000
- 2r1111110000000000
- 2r1001110000000000
- 2r0000111000000000
- 2r0000111000000000
- 2r0000011100000000
- 2r0000011100000000
- 2r0000001110000000
- 2r0000001110000000)
- offset: 0@0).
+ NormalCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r1000000000000000
+ 2r1100000000000000
+ 2r1110000000000000
+ 2r1111000000000000
+ 2r1111100000000000
+ 2r1111110000000000
+ 2r1111111000000000
+ 2r1111100000000000
+ 2r1111100000000000
+ 2r1001100000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000001100000000
+ 2r0000001100000000)
+ maskArray: #(
+ 2r1100000000000000
+ 2r1110000000000000
+ 2r1111000000000000
+ 2r1111100000000000
+ 2r1111110000000000
+ 2r1111111000000000
+ 2r1111111100000000
+ 2r1111110000000000
+ 2r1111110000000000
+ 2r1001110000000000
+ 2r0000111000000000
+ 2r0000111000000000
+ 2r0000011100000000
+ 2r0000011100000000
+ 2r0000001110000000
+ 2r0000001110000000)
+ offset: 0@0).
].
(builtIn includes:#crossHair) ifFalse:[
- CrossHairCursor :=
- (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r1111111111111110
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0)
- maskArray: #(
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r1111111111111110
- 2r1111111111111110
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0)
- offset: -7@ -7).
+ CrossHairCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r1111111111111110
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0)
+ maskArray: #(
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0)
+ offset: -7@ -7).
+ ].
+
+ (builtIn includes:#cross) ifFalse:[
+ CrossCursor :=
+ (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0110000000001100
+ 2r0111000000011100
+ 2r0011100000111000
+ 2r0001110001110000
+ 2r0000111011100000
+ 2r0000011111000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000111011100000
+ 2r0001110001110000
+ 2r0011100000111000
+ 2r0111000000011100
+ 2r0110000000001100
+ 2r0000000000000000
+ 2r0)
+ maskArray: #(
+ 2r1110000000001110
+ 2r1111000000011110
+ 2r1111100000111110
+ 2r0111110001111100
+ 2r0011111011111000
+ 2r0001111111110000
+ 2r0000111111100000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0011111011111000
+ 2r0111110001111100
+ 2r1111100000111110
+ 2r1111000000011110
+ 2r1110000000001110
+ 2r0)
+ offset: -7@ -7).
].
(builtIn includes:#scrollMarkerH) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111110111111111
- 2r1111110001111111
- 2r1111110000011111
- 2r1000000000000111
- 2r1000000000000001
- 2r1000000000000111
- 2r1111110000011111
- 2r1111110001111111
- 2r1111110111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000001000000000
- 2r0000001110000000
- 2r0000001111100000
- 2r0111111111111000
- 2r0111111111111110
- 2r0111111111111000
- 2r0000001111100000
- 2r0000001110000000
- 2r0000001000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000).
- ].
-
- MarkerCursor :=
- Cursor
- extent: 16@16
- sourceArray:bits
- maskArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000011100000000
- 2r0000011111000000
- 2r1111111111110000
- 2r1111111111111100
- 2r1111111111111111
- 2r1111111111111100
- 2r1111111111110000
- 2r0000011111000000
- 2r0000011100000000
- 2r0000011000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -14@ -7.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111110111111111
+ 2r1111110001111111
+ 2r1111110000011111
+ 2r1000000000000111
+ 2r1000000000000001
+ 2r1000000000000111
+ 2r1111110000011111
+ 2r1111110001111111
+ 2r1111110111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000001000000000
+ 2r0000001110000000
+ 2r0000001111100000
+ 2r0111111111111000
+ 2r0111111111111110
+ 2r0111111111111000
+ 2r0000001111100000
+ 2r0000001110000000
+ 2r0000001000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000).
+ ].
+
+ MarkerCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray:bits
+ maskArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011100000000
+ 2r0000011111000000
+ 2r1111111111110000
+ 2r1111111111111100
+ 2r1111111111111111
+ 2r1111111111111100
+ 2r1111111111110000
+ 2r0000011111000000
+ 2r0000011100000000
+ 2r0000011000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -14@ -7.
].
(builtIn includes:#scrollUp) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1011111111111111
- 2r1001111111111111
- 2r1000111111111111
- 2r1000011111111111
- 2r1000001111111111
- 2r1000000111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1001111111111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0100000000000000
- 2r0110000000000000
- 2r0111000000000000
- 2r0111100000000000
- 2r0111110000000000
- 2r0111111000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0000000000000000).
- ].
- UpCursor :=
- Cursor
- extent: 16@16
- sourceArray:bits
- maskArray: #(
- 2r1100000000000000
- 2r1110000000000000
- 2r1111000000000000
- 2r1111100000000000
- 2r1111110000000000
- 2r1111111000000000
- 2r1111111100000000
- 2r1111111100000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000)
- offset: -1@ -1.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1011111111111111
+ 2r1001111111111111
+ 2r1000111111111111
+ 2r1000011111111111
+ 2r1000001111111111
+ 2r1000000111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1001111111111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0100000000000000
+ 2r0110000000000000
+ 2r0111000000000000
+ 2r0111100000000000
+ 2r0111110000000000
+ 2r0111111000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0000000000000000).
+ ].
+ UpCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray:bits
+ maskArray: #(
+ 2r1100000000000000
+ 2r1110000000000000
+ 2r1111000000000000
+ 2r1111100000000000
+ 2r1111110000000000
+ 2r1111111000000000
+ 2r1111111100000000
+ 2r1111111100000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000)
+ offset: -1@ -1.
].
(builtIn includes:#scrollDown) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1111100111111111
- 2r1000000111111111
- 2r1100000111111111
- 2r1110000111111111
- 2r1111000111111111
- 2r1111100111111111
- 2r1111110111111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0111111000000000
- 2r0011111000000000
- 2r0001111000000000
- 2r0000111000000000
- 2r0000011000000000
- 2r0000001000000000
- 2r0000000000000000).
- ].
-
- DownCursor :=
- Cursor
- extent: 16@16
- sourceArray:bits
- maskArray: #(
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r1111111100000000
- 2r1111111100000000
- 2r0111111100000000
- 2r0011111100000000
- 2r0001111100000000
- 2r0000111100000000
- 2r0000011100000000
- 2r0000001100000000)
- offset: -7@ -15.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1111100111111111
+ 2r1000000111111111
+ 2r1100000111111111
+ 2r1110000111111111
+ 2r1111000111111111
+ 2r1111100111111111
+ 2r1111110111111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0111111000000000
+ 2r0011111000000000
+ 2r0001111000000000
+ 2r0000111000000000
+ 2r0000011000000000
+ 2r0000001000000000
+ 2r0000000000000000).
+ ].
+
+ DownCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray:bits
+ maskArray: #(
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r1111111100000000
+ 2r1111111100000000
+ 2r0111111100000000
+ 2r0011111100000000
+ 2r0001111100000000
+ 2r0000111100000000
+ 2r0000011100000000
+ 2r0000001100000000)
+ offset: -7@ -15.
].
(builtIn includes:#scrollLeft) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1000000000000001
- 2r1100000000000001
- 2r1110000111111111
- 2r1111000111111111
- 2r1111100111111111
- 2r1111110111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0111111111111110
- 2r0011111111111110
- 2r0001111000000000
- 2r0000111000000000
- 2r0000011000000000
- 2r0000001000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000).
- ].
-
- LeftCursor :=
- Cursor
- extent: 16@16
- sourceArray:bits
- maskArray: #(
- 2r1111111111111111
- 2r1111111111111111
- 2r0111111111111111
- 2r0011111111111111
- 2r0001111100000000
- 2r0000111100000000
- 2r0000011100000000
- 2r0000001100000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -1 @ -1.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1000000000000001
+ 2r1100000000000001
+ 2r1110000111111111
+ 2r1111000111111111
+ 2r1111100111111111
+ 2r1111110111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0111111111111110
+ 2r0011111111111110
+ 2r0001111000000000
+ 2r0000111000000000
+ 2r0000011000000000
+ 2r0000001000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000).
+ ].
+
+ LeftCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray:bits
+ maskArray: #(
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0111111111111111
+ 2r0011111111111111
+ 2r0001111100000000
+ 2r0000111100000000
+ 2r0000011100000000
+ 2r0000001100000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -1 @ -1.
].
(builtIn includes:#scrollRight) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1111111110111111
- 2r1111111110011111
- 2r1111111110001111
- 2r1111111110000111
- 2r1000000000000011
- 2r1000000000000001
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0000000001000000
- 2r0000000001100000
- 2r0000000001110000
- 2r0000000001111000
- 2r0111111111111100
- 2r0111111111111110
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000).
- ].
-
- RightCursor :=
- Cursor
- extent: 16@16
- sourceArray: bits
- maskArray: #(
- 2r0000000011000000
- 2r0000000011100000
- 2r0000000011110000
- 2r0000000011111000
- 2r1111111111111100
- 2r1111111111111110
- 2r1111111111111111
- 2r1111111111111111
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -15@ -6.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1111111110111111
+ 2r1111111110011111
+ 2r1111111110001111
+ 2r1111111110000111
+ 2r1000000000000011
+ 2r1000000000000001
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0000000001000000
+ 2r0000000001100000
+ 2r0000000001110000
+ 2r0000000001111000
+ 2r0111111111111100
+ 2r0111111111111110
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000).
+ ].
+
+ RightCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: bits
+ maskArray: #(
+ 2r0000000011000000
+ 2r0000000011100000
+ 2r0000000011110000
+ 2r0000000011111000
+ 2r1111111111111100
+ 2r1111111111111110
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -15@ -6.
].
(builtIn includes:#scrollMarkerV) ifFalse:[
- isWindows ifTrue:[
- bits := #(
- 2r1111111111111111
- 2r1111111011111111
- 2r1111111011111111
- 2r1111110001111111
- 2r1111110001111111
- 2r1111100000111111
- 2r1111100000111111
- 2r1111000000011111
- 2r1111000000011111
- 2r1110000000001111
- 2r1111110001111111
- 2r1111110001111111
- 2r1111110001111111
- 2r1111110001111111
- 2r1111110001111111
- 2r1111111111111111).
- ] ifFalse:[
- bits := #(
- 2r0000000000000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0000111111100000
- 2r0001111111110000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000000000000000).
- ].
-
- XMarkerCursor :=
- Cursor
- extent: 16@16
- sourceArray: bits
- maskArray: #(
- 2r0000000100000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0000111111100000
- 2r0001111111110000
- 2r0001111111110000
- 2r0011111111111000
- 2r0011111111111000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000)
- offset: -7@ -1.
+ isWindows ifTrue:[
+ bits := #(
+ 2r1111111111111111
+ 2r1111111011111111
+ 2r1111111011111111
+ 2r1111110001111111
+ 2r1111110001111111
+ 2r1111100000111111
+ 2r1111100000111111
+ 2r1111000000011111
+ 2r1111000000011111
+ 2r1110000000001111
+ 2r1111110001111111
+ 2r1111110001111111
+ 2r1111110001111111
+ 2r1111110001111111
+ 2r1111110001111111
+ 2r1111111111111111).
+ ] ifFalse:[
+ bits := #(
+ 2r0000000000000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000000000000000).
+ ].
+
+ XMarkerCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: bits
+ maskArray: #(
+ 2r0000000100000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0001111111110000
+ 2r0011111111111000
+ 2r0011111111111000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000011111000000)
+ offset: -7@ -1.
].
(builtIn includes:#fourWay) ifFalse:[
- FourWayCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000100000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0001001110010000
- 2r0011001110011000
- 2r0111111111111100
- 2r1111111111111110
- 2r0111111111111100
- 2r0011001110011000
- 2r0001001110010000
- 2r0000111111100000
- 2r0000011111000000
- 2r0000001110000000
- 2r0000000100000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000001110000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0001111111110000
- 2r0010111111101000
- 2r0111111111111100
- 2r1111111111111110
- 2r1111111111111110
- 2r1111111111111110
- 2r0111111111111100
- 2r0010111111101000
- 2r0001111111110000
- 2r0000111111100000
- 2r0000011111000000
- 2r0000001110000000
- 2r0000000000000000)
- offset: -7@ -7.
+ FourWayCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000100000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0001001110010000
+ 2r0011001110011000
+ 2r0111111111111100
+ 2r1111111111111110
+ 2r0111111111111100
+ 2r0011001110011000
+ 2r0001001110010000
+ 2r0000111111100000
+ 2r0000011111000000
+ 2r0000001110000000
+ 2r0000000100000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0010111111101000
+ 2r0111111111111100
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r0111111111111100
+ 2r0010111111101000
+ 2r0001111111110000
+ 2r0000111111100000
+ 2r0000011111000000
+ 2r0000001110000000
+ 2r0000000000000000)
+ offset: -7@ -7.
].
(builtIn includes:#thumbsUp) ifFalse:[
- ThumbsUpCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000100000
- 2r0000000001010000
- 2r0000000010010000
- 2r0000000011110000
- 2r0000000100010000
- 2r0000000100010000
- 2r0001111100011000
- 2r0010000100000110
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0011111000001110
- 2r0001000000010000
- 2r0001111111100000)
- maskArray: #(
- 2r0000000000100000
- 2r0000000001110000
- 2r0000000011110000
- 2r0000000011110000
- 2r0000000111110000
- 2r0000000111110000
- 2r0001111111111000
- 2r0011111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0011111111111110
- 2r0001111111110000
- 2r0001111111100000)
- offset: -8@ 0).
+ ThumbsUpCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000100000
+ 2r0000000001010000
+ 2r0000000010010000
+ 2r0000000011110000
+ 2r0000000100010000
+ 2r0000000100010000
+ 2r0001111100011000
+ 2r0010000100000110
+ 2r0100000000000000
+ 2r0111111000000000
+ 2r0100000000000000
+ 2r0111111000000000
+ 2r0100000000000000
+ 2r0011111000001110
+ 2r0001000000010000
+ 2r0001111111100000)
+ maskArray: #(
+ 2r0000000000100000
+ 2r0000000001110000
+ 2r0000000011110000
+ 2r0000000011110000
+ 2r0000000111110000
+ 2r0000000111110000
+ 2r0001111111111000
+ 2r0011111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0011111111111110
+ 2r0001111111110000
+ 2r0001111111100000)
+ offset: -8@ 0).
].
(builtIn includes:#caret) ifFalse:[
- CaretCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000000110000000
- 2r0000000110000000
- 2r0000001111000000
- 2r0000011111100000
- 2r0000011001100000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000000110000000
- 2r0000001111000000
- 2r0000001111100000
- 2r0000011111100000
- 2r0000111111110000
- 2r0000111111110000
- 2r0000011001100000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -8@0).
+ CaretCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000001111000000
+ 2r0000011111100000
+ 2r0000011001100000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000110000000
+ 2r0000001111000000
+ 2r0000001111100000
+ 2r0000011111100000
+ 2r0000111111110000
+ 2r0000111111110000
+ 2r0000011001100000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -8@0).
].
(builtIn includes:#thumbsDown) ifFalse:[
- ThumbsDownCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0001111111100000
- 2r0001000000010000
- 2r0011111000001110
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0010000100000110
- 2r0001111100011000
- 2r0000000100010000
- 2r0000000100010000
- 2r0000000011110000
- 2r0000000010010000
- 2r0000000001010000
- 2r0000000000100000)
-
- maskArray: #(
- 2r0001111111100000
- 2r0001111111110000
- 2r0011111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0111111111111110
- 2r0011111111111110
- 2r0001111111111000
- 2r0000000111110000
- 2r0000000111110000
- 2r0000000011110000
- 2r0000000011110000
- 2r0000000001110000
- 2r0000000000100000)
- offset: -8@ -16).
+ ThumbsDownCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0001111111100000
+ 2r0001000000010000
+ 2r0011111000001110
+ 2r0100000000000000
+ 2r0111111000000000
+ 2r0100000000000000
+ 2r0111111000000000
+ 2r0100000000000000
+ 2r0010000100000110
+ 2r0001111100011000
+ 2r0000000100010000
+ 2r0000000100010000
+ 2r0000000011110000
+ 2r0000000010010000
+ 2r0000000001010000
+ 2r0000000000100000)
+
+ maskArray: #(
+ 2r0001111111100000
+ 2r0001111111110000
+ 2r0011111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0011111111111110
+ 2r0001111111111000
+ 2r0000000111110000
+ 2r0000000111110000
+ 2r0000000011110000
+ 2r0000000011110000
+ 2r0000000001110000
+ 2r0000000000100000)
+ offset: -8@ -16).
].
(builtIn includes:#stop) ifFalse:[
- StopCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000011111000000
- 2r0001111111110000
- 2r0011111111111000
- 2r0011111111111000
- 2r0111111111111100
- 2r0111111111111100
- 2r0100000000000100
- 2r0100000000000100
- 2r0111111111111100
- 2r0111111111111100
- 2r0011111111111000
- 2r0011111111111000
- 2r0001111111110000
- 2r0000011111000000
- 2r0000000000000000
- )
- maskArray: #(
- 2r0000011111000000
- 2r0001111111110000
- 2r0011111111111000
- 2r0111111111111100
- 2r0111111111111100
- 2r1111111111111110
- 2r1111111111111110
- 2r1111111111111110
- 2r1111111111111110
- 2r1111111111111110
- 2r1111111111111110
- 2r0111111111111100
- 2r0111111111111100
- 2r0011111111111000
- 2r0001111111110000
- 2r0000011111000000
- )
- offset: -8 @ -8).
+ StopCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000011111000000
+ 2r0001111111110000
+ 2r0011111111111000
+ 2r0011111111111000
+ 2r0111111111111100
+ 2r0111111111111100
+ 2r0100000000000100
+ 2r0100000000000100
+ 2r0111111111111100
+ 2r0111111111111100
+ 2r0011111111111000
+ 2r0011111111111000
+ 2r0001111111110000
+ 2r0000011111000000
+ 2r0000000000000000
+ )
+ maskArray: #(
+ 2r0000011111000000
+ 2r0001111111110000
+ 2r0011111111111000
+ 2r0111111111111100
+ 2r0111111111111100
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r0111111111111100
+ 2r0111111111111100
+ 2r0011111111111000
+ 2r0001111111110000
+ 2r0000011111000000
+ )
+ offset: -8 @ -8).
].
(builtIn includes:#eyeBullet) ifFalse:[
- EyeCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000011111000000
- 2r0001111111110000
- 2r0011000000011000
- 2r0110001110001100
- 2r1100011111000110
- 2r1100011111000110
- 2r0110001110001100
- 2r0011000000011000
- 2r0001111111110000
- 2r0000011111000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- )
- maskArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000011111000000
- 2r0001111111110000
- 2r0011111111111000
- 2r0111111111111100
- 2r1111111111111110
- 2r1111111111111110
- 2r0111111111111100
- 2r0011111111111000
- 2r0001111111110000
- 2r0000011111000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- )
- offset: -8 @ -8).
+ EyeCursor := (Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011111000000
+ 2r0001111111110000
+ 2r0011000000011000
+ 2r0110001110001100
+ 2r1100011111000110
+ 2r1100011111000110
+ 2r0110001110001100
+ 2r0011000000011000
+ 2r0001111111110000
+ 2r0000011111000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ )
+ maskArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011111000000
+ 2r0001111111110000
+ 2r0011111111111000
+ 2r0111111111111100
+ 2r1111111111111110
+ 2r1111111111111110
+ 2r0111111111111100
+ 2r0011111111111000
+ 2r0001111111110000
+ 2r0000011111000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ )
+ offset: -8 @ -8).
].
FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
@@ -1518,7 +1562,7 @@
Cursor initializeNewCursors
"
- "Modified: / 27.9.1998 / 22:23:08 / cg"
+ "Modified: / 29.4.1999 / 21:41:10 / cg"
!
update:something with:aParameter from:changedObject
@@ -1973,14 +2017,17 @@
cross
"return a cross cursor"
- ^ self shape:#cross on:Display
+ CrossCursor isNil ifTrue:[
+ CrossCursor := self shape:#cross on:Display
+ ].
+ ^ CrossCursor
"
Cursor cross
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
- "Modified: 23.10.1997 / 00:26:49 / cg"
+ "Modified: / 29.4.1999 / 21:28:42 / cg"
!
crossHair
@@ -2863,6 +2910,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.67 1999-04-28 19:30:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.68 1999-04-29 19:57:56 cg Exp $'
! !
Cursor initialize!