--- a/Cursor.st Wed May 29 13:36:19 1996 +0200
+++ b/Cursor.st Wed May 29 15:04:17 1996 +0200
@@ -472,27 +472,27 @@
!Cursor class methodsFor:'class initialization'!
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"
+ "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|
+ |device|
" claus: already there in ST/X"
@@ -571,43 +571,43 @@
"claus: added mask"
- 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).
"original from SMACK:"
@@ -634,43 +634,43 @@
"claus: added mask"
- 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).
"original from SMACK:"
@@ -698,46 +698,46 @@
"claus: added mask"
- 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).
- BlankCursor := Cursor new.
+ BlankCursor := Cursor new.
"original from SMACK:"
@@ -765,44 +765,44 @@
"claus: added mask"
- 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).
"claus: already there in ST/X"
@@ -855,44 +855,44 @@
"claus: added mask"
- 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).
"original from SMACK:"
@@ -961,136 +961,136 @@
"/ 2r0)
"/ offset: -7@-7).
- MarkerCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000001000000000
- 2r0000001110000000
- 2r0000001111100000
- 2r1111111111111000
- 2r1111111111111110
- 2r1111111111111000
- 2r0000001111100000
- 2r0000001110000000
- 2r0000001000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -7@-7.
+ MarkerCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000001000000000
+ 2r0000001110000000
+ 2r0000001111100000
+ 2r1111111111111000
+ 2r1111111111111110
+ 2r1111111111111000
+ 2r0000001111100000
+ 2r0000001110000000
+ 2r0000001000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -7@-7.
- UpCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r1000000000000000
- 2r1100000000000000
- 2r1110000000000000
- 2r1111000000000000
- 2r1111100000000000
- 2r1111110000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000
- 2r1100000000000000)
- offset: 0@-7.
+ UpCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r1000000000000000
+ 2r1100000000000000
+ 2r1110000000000000
+ 2r1111000000000000
+ 2r1111100000000000
+ 2r1111110000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000
+ 2r1100000000000000)
+ offset: 0@-7.
- DownCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r0000110000000000
- 2r1111110000000000
- 2r0111110000000000
- 2r0011110000000000
- 2r0001110000000000
- 2r0000110000000000
- 2r0000010000000000)
- offset: -5@-7.
+ DownCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r0000110000000000
+ 2r1111110000000000
+ 2r0111110000000000
+ 2r0011110000000000
+ 2r0001110000000000
+ 2r0000110000000000
+ 2r0000010000000000)
+ offset: -5@-7.
- LeftCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r1111111111111111
- 2r0111111111111111
- 2r0011110000000000
- 2r0001110000000000
- 2r0000110000000000
- 2r0000010000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -7@0.
+ LeftCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r1111111111111111
+ 2r0111111111111111
+ 2r0011110000000000
+ 2r0001110000000000
+ 2r0000110000000000
+ 2r0000010000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -7@0.
- RightCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r0000000000100000
- 2r0000000000110000
- 2r0000000000111000
- 2r0000000000111100
- 2r1111111111111110
- 2r1111111111111111
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -7@-5.
- XMarkerCursor :=
- Cursor
- extent: 16@16
- fromArray: #(
- 2r0
- 2r0000000100000000
- 2r0000000100000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0000111111100000
- 2r0001111111110000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000)
- offset: -7@-7.
+ RightCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000000000100000
+ 2r0000000000110000
+ 2r0000000000111000
+ 2r0000000000111100
+ 2r1111111111111110
+ 2r1111111111111111
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -7@-5.
+ XMarkerCursor :=
+ Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000)
+ offset: -7@-7.
"original from SMACK:"
@@ -1119,222 +1119,222 @@
"claus: added mask"
- 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.
- 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@-8).
+ 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@-8).
- CaretCursor := (Cursor
- extent: 16@16
- fromArray: #(
- 2r0000000110000000
- 2r0000000110000000
- 2r0000001111000000
- 2r0000011111100000
- 2r0000011001100000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -8@0).
+ CaretCursor := (Cursor
+ extent: 16@16
+ fromArray: #(
+ 2r0000000110000000
+ 2r0000000110000000
+ 2r0000001111000000
+ 2r0000011111100000
+ 2r0000011001100000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -8@0).
- ThumbsDownCursor := (Cursor
- extent: 16@16
- sourceArray: #(
- 2r0001111111100000
- 2r0001000000010000
- 2r0011111000001110
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0111111000000000
- 2r0100000000000000
- 2r0010000100000110
- 2r0001111100011000
- 2r0000000100010000
- 2r0000000100010000
- 2r0000000011110000
- 2r0000000010010000
- 2r0000000001010000
- 2r0000000000100000)
+ 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@-8).
+ maskArray: #(
+ 2r0001111111100000
+ 2r0001111111110000
+ 2r0011111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0111111111111110
+ 2r0011111111111110
+ 2r0001111111111000
+ 2r0000000111110000
+ 2r0000000111110000
+ 2r0000000011110000
+ 2r0000000011110000
+ 2r0000000001110000
+ 2r0000000000100000)
+ 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).
+ 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).
- 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).
device := Display.
@@ -1371,6 +1371,8 @@
EyeCursor := EyeCursor on:device.
"Cursor initializeNewCursors"
+
+ "Modified: 29.5.1996 / 15:03:44 / cg"
! !
!Cursor class methodsFor:'default access'!
@@ -1961,6 +1963,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.34 1996-05-28 17:25:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.35 1996-05-29 13:04:17 cg Exp $'
! !
Cursor initialize!