--- a/Cursor.st Fri Mar 28 13:52:47 1997 +0100
+++ b/Cursor.st Fri Mar 28 16:02:32 1997 +0100
@@ -246,6 +246,910 @@
]
!
+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|
+
+" claus: already there in ST/X"
+
+"/ OriginCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r1111111111111111
+"/ 2r1111111111111111
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000
+"/ 2r1100000000000000)
+"/ offset: -2@ -2).
+"/
+
+" claus: already there in ST/X"
+
+"/ CornerCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r0000000000000011
+"/ 2r1111111111111111
+"/ 2r1111111111111111)
+"/ offset: -14@ -14).
+
+
+"original from SMACK:"
+
+"/ ReadCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r0000110000000110
+"/ 2r0001001000001001
+"/ 2r0001001000001001
+"/ 2r0010000000010000
+"/ 2r0100000000100000
+"/ 2r1111101111100000
+"/ 2r1000010000100000
+"/ 2r1000010000100000
+"/ 2r1011010110100000
+"/ 2r0111101111000000
+"/ 2r0000000000000000
+"/ 2r0000000000000000
+"/ 2r0000000000000000
+"/ 2r0000000000000000
+"/ 2r0000000000000000
+"/ 2r0000000000000000)
+"/ offset: 0@0).
+
+
+"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).
+
+"original from SMACK:"
+
+"/ WriteCursor := (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r0000000000000110
+"/ 2r0000000000001111
+"/ 2r0000000000010110
+"/ 2r0000000000100100
+"/ 2r0000000001001000
+"/ 2r0000000010010000
+"/ 2r0000000100100000
+"/ 2r0000001001000011
+"/ 2r0000010010000010
+"/ 2r0000100100000110
+"/ 2r0001001000001000
+"/ 2r0010010000001000
+"/ 2r0111100001001000
+"/ 2r0101000010111000
+"/ 2r0110000110000000
+"/ 2r1111111100000000)
+"/ offset: 0@0).
+
+"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).
+
+"original from SMACK:"
+
+"/ WaitCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r1111111111111111
+"/ 2r1000000000000001
+"/ 2r0100000000000010
+"/ 2r0010000000000100
+"/ 2r0001110000111000
+"/ 2r0000111101110000
+"/ 2r0000011011100000
+"/ 2r0000001111000000
+"/ 2r0000001111000000
+"/ 2r0000010110100000
+"/ 2r0000100010010000
+"/ 2r0001000110001000
+"/ 2r0010001101000100
+"/ 2r0100111111110010
+"/ 2r1011111111111101
+"/ 2r1111111111111111)
+"/ offset: -8@ -8).
+
+"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).
+
+ BlankCursor := Cursor new.
+
+"original from SMACK:"
+
+"/ XeqCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r1000000000010000
+"/ 2r1100000000010000
+"/ 2r1110000000111000
+"/ 2r1111000111111111
+"/ 2r1111100011000110
+"/ 2r1111110001000100
+"/ 2r1111111001111100
+"/ 2r1111000001101100
+"/ 2r1101100011000110
+"/ 2r1001100010000010
+"/ 2r0000110000000000
+"/ 2r0000110000000000
+"/ 2r0000011000000000
+"/ 2r0000011000000000
+"/ 2r0000001100000000
+"/ 2r0000001100000000)
+"/ offset: 0@0).
+
+"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).
+
+"claus: already there in ST/X"
+
+"/ 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).
+
+
+"original from SMACK:"
+
+"/ NormalCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r1000000000000000
+"/ 2r1100000000000000
+"/ 2r1110000000000000
+"/ 2r1111000000000000
+"/ 2r1111100000000000
+"/ 2r1111110000000000
+"/ 2r1111111000000000
+"/ 2r1111100000000000
+"/ 2r1111100000000000
+"/ 2r1001100000000000
+"/ 2r0000110000000000
+"/ 2r0000110000000000
+"/ 2r0000011000000000
+"/ 2r0000011000000000
+"/ 2r0000001100000000
+"/ 2r0000001100000000)
+"/ offset: 0@0).
+
+"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).
+
+"original from SMACK:"
+
+"/ CrossHairCursor :=
+"/ (Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r1111111111111110
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0000000100000000
+"/ 2r0)
+"/ offset: -7@ -7).
+
+"claus: added mask"
+
+"no: already there in ST/X"
+
+"/ 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).
+
+ 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.
+
+ 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.
+
+ 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:"
+
+"/ FourWayCursor :=
+"/ Cursor
+"/ extent: 16@16
+"/ fromArray: #(
+"/ 2r0000000100000000
+"/ 2r0000001110000000
+"/ 2r0000011111000000
+"/ 2r0000111111100000
+"/ 2r0001001110010000
+"/ 2r0011001110011000
+"/ 2r0111111111111100
+"/ 2r1111111111111110
+"/ 2r0111111111111100
+"/ 2r0011001110011000
+"/ 2r0001001110010000
+"/ 2r0000111111100000
+"/ 2r0000011111000000
+"/ 2r0000001110000000
+"/ 2r0000000100000000
+"/ 2r0000000000000000)
+"/ offset: -7@ -7.
+"/
+
+"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.
+
+ 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).
+
+ 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).
+
+ 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).
+
+ device := Display.
+
+ FourWayCursor := FourWayCursor onDevice:device.
+ LeftCursor := LeftCursor onDevice:device.
+ RightCursor := RightCursor onDevice:device.
+ XMarkerCursor := XMarkerCursor onDevice:device.
+
+"/ OriginCursor := OriginCursor onDevice:device.
+"/ CornerCursor := CornerCursor onDevice:device.
+
+ ReadCursor := ReadCursor onDevice:device.
+ WriteCursor := WriteCursor onDevice:device.
+ WaitCursor := WaitCursor onDevice:device.
+ XeqCursor := XeqCursor onDevice:device.
+
+"/ SquareCursor := SquareCursor onDevice:device.
+
+ NormalCursor := NormalCursor onDevice:device.
+
+"/ CrossHairCursor := CrossHairCursor onDevice:device.
+
+ MarkerCursor := MarkerCursor onDevice:device.
+ UpCursor := UpCursor onDevice:device.
+ DownCursor := DownCursor onDevice:device.
+ LeftCursor := LeftCursor onDevice:device.
+ RightCursor := RightCursor onDevice:device.
+ XMarkerCursor := XMarkerCursor onDevice:device.
+ CaretCursor := CaretCursor onDevice:device.
+
+ ThumbsUpCursor := ThumbsUpCursor onDevice:device.
+ ThumbsDownCursor := ThumbsDownCursor onDevice:device.
+ StopCursor := StopCursor onDevice:device.
+ EyeCursor := EyeCursor onDevice:device.
+
+ "Cursor initializeNewCursors"
+
+ "Modified: 28.3.1997 / 16:01:50 / cg"
+!
+
update:something with:aParameter from:changedObject
"sent when restarted after a snapIn"
@@ -516,912 +1420,6 @@
^ newCursor
! !
-!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"
-
- |device|
-
-" claus: already there in ST/X"
-
-"/ OriginCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r1111111111111111
-"/ 2r1111111111111111
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000
-"/ 2r1100000000000000)
-"/ offset: -2@ -2).
-"/
-
-" claus: already there in ST/X"
-
-"/ CornerCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r0000000000000011
-"/ 2r1111111111111111
-"/ 2r1111111111111111)
-"/ offset: -14@ -14).
-
-
-"original from SMACK:"
-
-"/ ReadCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r0000110000000110
-"/ 2r0001001000001001
-"/ 2r0001001000001001
-"/ 2r0010000000010000
-"/ 2r0100000000100000
-"/ 2r1111101111100000
-"/ 2r1000010000100000
-"/ 2r1000010000100000
-"/ 2r1011010110100000
-"/ 2r0111101111000000
-"/ 2r0000000000000000
-"/ 2r0000000000000000
-"/ 2r0000000000000000
-"/ 2r0000000000000000
-"/ 2r0000000000000000
-"/ 2r0000000000000000)
-"/ offset: 0@0).
-
-
-"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).
-
-"original from SMACK:"
-
-"/ WriteCursor := (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r0000000000000110
-"/ 2r0000000000001111
-"/ 2r0000000000010110
-"/ 2r0000000000100100
-"/ 2r0000000001001000
-"/ 2r0000000010010000
-"/ 2r0000000100100000
-"/ 2r0000001001000011
-"/ 2r0000010010000010
-"/ 2r0000100100000110
-"/ 2r0001001000001000
-"/ 2r0010010000001000
-"/ 2r0111100001001000
-"/ 2r0101000010111000
-"/ 2r0110000110000000
-"/ 2r1111111100000000)
-"/ offset: 0@0).
-
-"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).
-
-"original from SMACK:"
-
-"/ WaitCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r1111111111111111
-"/ 2r1000000000000001
-"/ 2r0100000000000010
-"/ 2r0010000000000100
-"/ 2r0001110000111000
-"/ 2r0000111101110000
-"/ 2r0000011011100000
-"/ 2r0000001111000000
-"/ 2r0000001111000000
-"/ 2r0000010110100000
-"/ 2r0000100010010000
-"/ 2r0001000110001000
-"/ 2r0010001101000100
-"/ 2r0100111111110010
-"/ 2r1011111111111101
-"/ 2r1111111111111111)
-"/ offset: -8@ -8).
-
-"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).
-
- BlankCursor := Cursor new.
-
-"original from SMACK:"
-
-"/ XeqCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r1000000000010000
-"/ 2r1100000000010000
-"/ 2r1110000000111000
-"/ 2r1111000111111111
-"/ 2r1111100011000110
-"/ 2r1111110001000100
-"/ 2r1111111001111100
-"/ 2r1111000001101100
-"/ 2r1101100011000110
-"/ 2r1001100010000010
-"/ 2r0000110000000000
-"/ 2r0000110000000000
-"/ 2r0000011000000000
-"/ 2r0000011000000000
-"/ 2r0000001100000000
-"/ 2r0000001100000000)
-"/ offset: 0@0).
-
-"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).
-
-"claus: already there in ST/X"
-
-"/ 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).
-
-
-"original from SMACK:"
-
-"/ NormalCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r1000000000000000
-"/ 2r1100000000000000
-"/ 2r1110000000000000
-"/ 2r1111000000000000
-"/ 2r1111100000000000
-"/ 2r1111110000000000
-"/ 2r1111111000000000
-"/ 2r1111100000000000
-"/ 2r1111100000000000
-"/ 2r1001100000000000
-"/ 2r0000110000000000
-"/ 2r0000110000000000
-"/ 2r0000011000000000
-"/ 2r0000011000000000
-"/ 2r0000001100000000
-"/ 2r0000001100000000)
-"/ offset: 0@0).
-
-"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).
-
-"original from SMACK:"
-
-"/ CrossHairCursor :=
-"/ (Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r1111111111111110
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0000000100000000
-"/ 2r0)
-"/ offset: -7@ -7).
-
-"claus: added mask"
-
-"no: already there in ST/X"
-
-"/ 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).
-
- 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.
-
- 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.
-
- 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:"
-
-"/ FourWayCursor :=
-"/ Cursor
-"/ extent: 16@16
-"/ fromArray: #(
-"/ 2r0000000100000000
-"/ 2r0000001110000000
-"/ 2r0000011111000000
-"/ 2r0000111111100000
-"/ 2r0001001110010000
-"/ 2r0011001110011000
-"/ 2r0111111111111100
-"/ 2r1111111111111110
-"/ 2r0111111111111100
-"/ 2r0011001110011000
-"/ 2r0001001110010000
-"/ 2r0000111111100000
-"/ 2r0000011111000000
-"/ 2r0000001110000000
-"/ 2r0000000100000000
-"/ 2r0000000000000000)
-"/ offset: -7@ -7.
-"/
-
-"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.
-
- 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).
-
- 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).
-
- 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).
-
- device := Display.
-
- FourWayCursor := FourWayCursor on:device.
- LeftCursor := LeftCursor on:device.
- RightCursor := RightCursor on:device.
- XMarkerCursor := XMarkerCursor on:device.
-
-"/ OriginCursor := OriginCursor on:device.
-"/ CornerCursor := CornerCursor on:device.
-
- ReadCursor := ReadCursor on:device.
- WriteCursor := WriteCursor on:device.
- WaitCursor := WaitCursor on:device.
- XeqCursor := XeqCursor on:device.
-
-"/ SquareCursor := SquareCursor on:device.
-
- NormalCursor := NormalCursor on:device.
-
-"/ CrossHairCursor := CrossHairCursor on:device.
-
- MarkerCursor := MarkerCursor on:device.
- UpCursor := UpCursor on:device.
- DownCursor := DownCursor on:device.
- LeftCursor := LeftCursor on:device.
- RightCursor := RightCursor on:device.
- XMarkerCursor := XMarkerCursor on:device.
- CaretCursor := CaretCursor on:device.
-
- ThumbsUpCursor := ThumbsUpCursor on:device.
- ThumbsDownCursor := ThumbsDownCursor on:device.
- StopCursor := StopCursor on:device.
- EyeCursor := EyeCursor on:device.
-
- "Cursor initializeNewCursors"
-
- "Modified: 29.5.1996 / 15:03:44 / cg"
-! !
-
!Cursor class methodsFor:'cleanup'!
releaseResourcesOnDevice:aDevice
@@ -2057,6 +2055,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.47 1997-03-28 12:51:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.48 1997-03-28 15:02:32 cg Exp $'
! !
Cursor initialize!