--- a/Cursor.st Tue Sep 22 17:03:02 1998 +0200
+++ b/Cursor.st Thu Sep 24 12:01:42 1998 +0200
@@ -44,37 +44,37 @@
I represents cursors in a device independent manner.
Normally, cursors are defined at view creation time,
via
- 'aView cursor:aCursor'.
+ 'aView cursor:aCursor'.
[Instance variables:]
- shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
- sourceForm <Form> if shape is nil, the source bits
- maskForm <Form> if shape is nil, the mask bits
- hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
- hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
- device <aDevice> the device, if associated to one
- cursorId <anObject> the device-specific id if device is nonNil
+ shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
+ sourceForm <Form> if shape is nil, the source bits
+ maskForm <Form> if shape is nil, the mask bits
+ hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
+ hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
+ device <aDevice> the device, if associated to one
+ cursorId <anObject> the device-specific id if device is nonNil
[class variables:]
- Lobby <Registry> keeps track of known device cursors
- (dont use it: this will be moved to the device)
-
- DefaultFgColor <Color> default foreground color for cursors (usually black)
- DefaultBgColor <Color> default background color for cursors (usually white)
-
- NormalCursor <Cursor> cached instance of normal (arrow) cursor
- ...
+ Lobby <Registry> keeps track of known device cursors
+ (dont use it: this will be moved to the device)
+
+ DefaultFgColor <Color> default foreground color for cursors (usually black)
+ DefaultBgColor <Color> default background color for cursors (usually white)
+
+ NormalCursor <Cursor> cached instance of normal (arrow) cursor
+ ...
[see also:]
- DeviceWorkstation
- DisplaySurface
- Font Color Image Form
- ( introduction to view programming :html: programming/viewintro.html#CURSOR )
+ DeviceWorkstation
+ DisplaySurface
+ Font Color Image Form
+ ( introduction to view programming :html: programming/viewintro.html#CURSOR )
[author:]
- Claus Gittinger
+ Claus Gittinger
"
!
@@ -82,204 +82,204 @@
"
get a standard cursor:
- Cursor wait
- Cursor stop
- Cursor normal
+ Cursor wait
+ Cursor stop
+ Cursor normal
create a custom cursor:
- Cursor extent:16@16
- fromArray:#[ 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000]
- offset:-8 @ -8
+ Cursor extent:16@16
+ fromArray:#[ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000]
+ offset:-8 @ -8
define a cursor for a view:
- [exBegin]
- |v|
-
- v := StandardSystemView extent:100@100.
- v cursor:Cursor stop.
- v open.
- [exEnd]
+ [exBegin]
+ |v|
+
+ v := StandardSystemView extent:100@100.
+ v cursor:Cursor stop.
+ v open.
+ [exEnd]
with above custom cursor:
- [exBegin]
- |v|
-
- v := StandardSystemView extent:100@100.
- v cursor:(
- Cursor extent:16@16
- fromArray:#[ 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000]
- offset:-8 @ -8).
- v open.
- [exEnd]
+ [exBegin]
+ |v|
+
+ v := StandardSystemView extent:100@100.
+ v cursor:(
+ Cursor extent:16@16
+ fromArray:#[ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000]
+ offset:-8 @ -8).
+ v open.
+ [exEnd]
a custom cursor with mask:
- [exBegin]
- |v|
-
- v := StandardSystemView extent:100@100.
- v cursor:(
- Cursor
- extent:16@16
- sourceArray:#[
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000]
- maskArray:#[
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r00000000 2r00000000
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r11111111 2r11111111
- 2r00000000 2r00000000
- 2r00000000 2r00000000]
- offset:-8 @ -8).
- v open.
- [exEnd]
+ [exBegin]
+ |v|
+
+ v := StandardSystemView extent:100@100.
+ v cursor:(
+ Cursor
+ extent:16@16
+ sourceArray:#[
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000]
+ maskArray:#[
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r11111111 2r11111111
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000]
+ offset:-8 @ -8).
+ v open.
+ [exEnd]
a cursor from an image read from a file:
- [exBegin]
- |v img|
-
- v := StandardSystemView extent:100@100.
- img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
- v cursor:(Cursor fromImage:img).
- v open.
- [exEnd]
+ [exBegin]
+ |v img|
+
+ v := StandardSystemView extent:100@100.
+ img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
+ v cursor:(Cursor fromImage:img).
+ v open.
+ [exEnd]
with multiple views:
- [exBegin]
- |v1 v2 top|
-
- top := StandardSystemView new.
- top extent:300@300.
- v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
- v1 viewBackground:(Color grey:75).
- v1 cursor:Cursor thumbsUp.
- v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
- v2 viewBackground:(Color white).
- v2 cursor:Cursor wait.
- top open.
- [exEnd]
+ [exBegin]
+ |v1 v2 top|
+
+ top := StandardSystemView new.
+ top extent:300@300.
+ v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
+ v1 viewBackground:(Color grey:75).
+ v1 cursor:Cursor thumbsUp.
+ v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
+ v2 viewBackground:(Color white).
+ v2 cursor:Cursor wait.
+ top open.
+ [exEnd]
show a cursor (in the active ST/X view) for a while:
- [exBegin]
-
- Cursor wait
- showWhile:[
- Delay waitForSeconds:5
- ]
- [exEnd]
+ [exBegin]
+
+ Cursor wait
+ showWhile:[
+ Delay waitForSeconds:5
+ ]
+ [exEnd]
show a cursor in all views belonging to a windowGroup:
(have to wait until top is visible to access windowGroup)
- [exBegin]
- |v1 v2 top|
-
- top := StandardSystemView new.
- top extent:300@300.
- v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
- v1 viewBackground:(Color grey:75).
- v1 cursor:(Cursor normal).
-
- v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
- v2 viewBackground:(Color white).
- v2 cursor:(Cursor crossHair).
- top openAndWait.
-
- Delay waitForSeconds:3.
-
- top windowGroup
- withCursor:Cursor wait
- do:[
- Delay waitForSeconds:5
- ]
- [exEnd]
+ [exBegin]
+ |v1 v2 top|
+
+ top := StandardSystemView new.
+ top extent:300@300.
+ v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
+ v1 viewBackground:(Color grey:75).
+ v1 cursor:(Cursor normal).
+
+ v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
+ v2 viewBackground:(Color white).
+ v2 cursor:(Cursor crossHair).
+ top openAndWait.
+
+ Delay waitForSeconds:3.
+
+ top windowGroup
+ withCursor:Cursor wait
+ do:[
+ Delay waitForSeconds:5
+ ]
+ [exEnd]
show a cursor in a single view for a while:
- [exBegin]
- |v1 v2 top|
-
- top := StandardSystemView new.
- top extent:300@300.
- v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
- v1 viewBackground:(Color grey:75).
- v1 cursor:(Cursor normal).
-
- v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
- v2 viewBackground:(Color white).
- v2 cursor:(Cursor crossHair).
-
- top openAndWait.
-
- Delay waitForSeconds:3.
-
- v1 withCursor:Cursor wait
- do:[
- Delay waitForSeconds:5
- ]
- [exEnd]
+ [exBegin]
+ |v1 v2 top|
+
+ top := StandardSystemView new.
+ top extent:300@300.
+ v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
+ v1 viewBackground:(Color grey:75).
+ v1 cursor:(Cursor normal).
+
+ v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
+ v2 viewBackground:(Color white).
+ v2 cursor:(Cursor crossHair).
+
+ top openAndWait.
+
+ Delay waitForSeconds:3.
+
+ v1 withCursor:Cursor wait
+ do:[
+ Delay waitForSeconds:5
+ ]
+ [exEnd]
"
! !
@@ -307,24 +307,24 @@
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"
+ 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|
@@ -332,951 +332,951 @@
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:#scrollMarkerH) ifFalse:[
- MarkerCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000001000000000
- 2r0000001110000000
- 2r0000001111100000
- 2r0111111111111000
- 2r0111111111111110
- 2r0111111111111000
- 2r0000001111100000
- 2r0000001110000000
- 2r0000001000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000011100000000
- 2r0000011111000000
- 2r1111111111110000
- 2r1111111111111100
- 2r1111111111111111
- 2r1111111111111100
- 2r1111111111110000
- 2r0000011111000000
- 2r0000011100000000
- 2r0000011000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -14@ -7.
+ MarkerCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000001000000000
+ 2r0000001110000000
+ 2r0000001111100000
+ 2r0111111111111000
+ 2r0111111111111110
+ 2r0111111111111000
+ 2r0000001111100000
+ 2r0000001110000000
+ 2r0000001000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000011100000000
+ 2r0000011111000000
+ 2r1111111111110000
+ 2r1111111111111100
+ 2r1111111111111111
+ 2r1111111111111100
+ 2r1111111111110000
+ 2r0000011111000000
+ 2r0000011100000000
+ 2r0000011000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -14@ -7.
].
(builtIn includes:#scrollUp) ifFalse:[
- UpCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0100000000000000
- 2r0110000000000000
- 2r0111000000000000
- 2r0111100000000000
- 2r0111110000000000
- 2r0111111000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0110000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r1100000000000000
- 2r1110000000000000
- 2r1111000000000000
- 2r1111100000000000
- 2r1111110000000000
- 2r1111111000000000
- 2r1111111100000000
- 2r1111111100000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000
- 2r1111000000000000)
- offset: -1@ -1.
+ UpCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0100000000000000
+ 2r0110000000000000
+ 2r0111000000000000
+ 2r0111100000000000
+ 2r0111110000000000
+ 2r0111111000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0110000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r1100000000000000
+ 2r1110000000000000
+ 2r1111000000000000
+ 2r1111100000000000
+ 2r1111110000000000
+ 2r1111111000000000
+ 2r1111111100000000
+ 2r1111111100000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000
+ 2r1111000000000000)
+ offset: -1@ -1.
].
(builtIn includes:#scrollDown) ifFalse:[
- DownCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0000011000000000
- 2r0111111000000000
- 2r0011111000000000
- 2r0001111000000000
- 2r0000111000000000
- 2r0000011000000000
- 2r0000001000000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r0000111100000000
- 2r1111111100000000
- 2r1111111100000000
- 2r0111111100000000
- 2r0011111100000000
- 2r0001111100000000
- 2r0000111100000000
- 2r0000011100000000
- 2r0000001100000000)
- offset: -7@ -15.
+ DownCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0000011000000000
+ 2r0111111000000000
+ 2r0011111000000000
+ 2r0001111000000000
+ 2r0000111000000000
+ 2r0000011000000000
+ 2r0000001000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r0000111100000000
+ 2r1111111100000000
+ 2r1111111100000000
+ 2r0111111100000000
+ 2r0011111100000000
+ 2r0001111100000000
+ 2r0000111100000000
+ 2r0000011100000000
+ 2r0000001100000000)
+ offset: -7@ -15.
].
(builtIn includes:#scrollLeft) ifFalse:[
- LeftCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0111111111111110
- 2r0011111111111110
- 2r0001111000000000
- 2r0000111000000000
- 2r0000011000000000
- 2r0000001000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r1111111111111111
- 2r1111111111111111
- 2r0111111111111111
- 2r0011111111111111
- 2r0001111100000000
- 2r0000111100000000
- 2r0000011100000000
- 2r0000001100000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -1 @ -1.
+ LeftCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0111111111111110
+ 2r0011111111111110
+ 2r0001111000000000
+ 2r0000111000000000
+ 2r0000011000000000
+ 2r0000001000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0111111111111111
+ 2r0011111111111111
+ 2r0001111100000000
+ 2r0000111100000000
+ 2r0000011100000000
+ 2r0000001100000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -1 @ -1.
].
(builtIn includes:#scrollRight) ifFalse:[
- RightCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000000001000000
- 2r0000000001100000
- 2r0000000001110000
- 2r0000000001111000
- 2r0111111111111100
- 2r0111111111111110
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000000011000000
- 2r0000000011100000
- 2r0000000011110000
- 2r0000000011111000
- 2r1111111111111100
- 2r1111111111111110
- 2r1111111111111111
- 2r1111111111111111
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000
- 2r0000000000000000)
- offset: -15@ -6.
+ RightCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000001000000
+ 2r0000000001100000
+ 2r0000000001110000
+ 2r0000000001111000
+ 2r0111111111111100
+ 2r0111111111111110
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000000011000000
+ 2r0000000011100000
+ 2r0000000011110000
+ 2r0000000011111000
+ 2r1111111111111100
+ 2r1111111111111110
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000
+ 2r0000000000000000)
+ offset: -15@ -6.
].
(builtIn includes:#scrollMarkerV) ifFalse:[
- XMarkerCursor :=
- Cursor
- extent: 16@16
- sourceArray: #(
- 2r0000000000000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0000111111100000
- 2r0001111111110000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000000100000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000111111100000
- 2r0000111111100000
- 2r0001111111110000
- 2r0001111111110000
- 2r0011111111111000
- 2r0011111111111000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000
- 2r0000011111000000)
- offset: -7@ -1.
+ XMarkerCursor :=
+ Cursor
+ extent: 16@16
+ sourceArray: #(
+ 2r0000000000000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000011111000000
+ 2r0000011111000000
+ 2r0000111111100000
+ 2r0000111111100000
+ 2r0001111111110000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000000000000000)
+ 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].
@@ -1337,7 +1337,7 @@
as the negative of the hotSpot coordinate within the cursor (sigh - ST80 compatibility)."
^ self
- extent:extent sourceArray:array maskArray:array offset:offset
+ extent:extent sourceArray:array maskArray:array offset:offset
"Modified: 22.10.1997 / 23:59:41 / cg"
!
@@ -1352,9 +1352,9 @@
sourceForm := Form extent:extent fromArray:sourceArray offset:offset.
sourceArray ~~ maskArray ifTrue:[
- maskForm := Form extent:extent fromArray:maskArray offset:offset.
+ maskForm := Form extent:extent fromArray:maskArray offset:offset.
] ifFalse:[
- maskForm := sourceForm
+ maskForm := sourceForm
].
^ self sourceForm:sourceForm maskForm:maskForm hotSpot:(offset negated)
@@ -1374,10 +1374,10 @@
cursorBits := Image fromFile:(fileNamePrefix , '_bits.bit').
cursorBits notNil ifTrue:[
- maskBits := Image fromFile:(fileNamePrefix , '_mask.bit').
- maskBits notNil ifTrue:[
- ^ self sourceForm:cursorBits maskForm:maskBits
- ]
+ maskBits := Image fromFile:(fileNamePrefix , '_mask.bit').
+ maskBits notNil ifTrue:[
+ ^ self sourceForm:cursorBits maskForm:maskBits
+ ]
].
^ nil
@@ -1390,7 +1390,7 @@
The cursors hotSpot is the center of the image."
^ self
- fromImage:anImage hotSpot:(anImage center)
+ fromImage:anImage hotSpot:(anImage center)
"
|i c|
@@ -1398,8 +1398,8 @@
i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
c := Cursor fromImage:i.
WindowGroup activeGroup
- withCursor:c
- do:[(Delay forSeconds:5)wait]
+ withCursor:c
+ do:[(Delay forSeconds:5)wait]
"
"Modified: 22.10.1997 / 23:55:01 / cg"
@@ -1416,14 +1416,14 @@
mask := anImage mask.
mask isNil ifTrue:[
- maskForm := sourceForm
+ maskForm := sourceForm
] ifFalse:[
- maskForm := mask asMonochromeFormOn:Screen current.
+ maskForm := mask asMonochromeFormOn:Screen current.
].
^ self sourceForm:sourceForm
- maskForm:maskForm
- hotX:(aPoint x)
- hotY:(aPoint y)
+ maskForm:maskForm
+ hotX:(aPoint x)
+ hotY:(aPoint y)
"
|i c|
@@ -1431,8 +1431,8 @@
i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
c := Cursor fromImage:i hotSpot:(i center).
WindowGroup activeGroup
- withCursor:c
- do:[(Delay forSeconds:5)wait]
+ withCursor:c
+ do:[(Delay forSeconds:5)wait]
"
"Modified: 22.10.1997 / 23:49:00 / cg"
@@ -1443,51 +1443,51 @@
"ST-80 compatible cursor creation - the extent is fixed to 16@16"
^ self
- imageArray:imageBits
- maskArray:maskBits
- hotSpot:8@8
+ imageArray:imageBits
+ maskArray:maskBits
+ hotSpot:8@8
"
|cursor|
cursor := Cursor
- imageArray: #(
- 2r0000000000000000
- 2r0000000100001110
- 2r0000000100001110
- 2r0000000100001110
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0111111111111110
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000100000000
- 2r0000000000000000)
- maskArray: #(
- 2r0000001110011111
- 2r0000001110011111
- 2r0000001110011111
- 2r0000001110011111
- 2r0000001110011111
- 2r0000001110000000
- 2r1111111111111111
- 2r1111111111111111
- 2r1111111111111111
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000
- 2r0000001110000000).
+ imageArray: #(
+ 2r0000000000000000
+ 2r0000000100001110
+ 2r0000000100001110
+ 2r0000000100001110
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0111111111111110
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000100000000
+ 2r0000000000000000)
+ maskArray: #(
+ 2r0000001110011111
+ 2r0000001110011111
+ 2r0000001110011111
+ 2r0000001110011111
+ 2r0000001110011111
+ 2r0000001110000000
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r1111111111111111
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000
+ 2r0000001110000000).
cursor showWhile:[
- (Delay forSeconds:10) wait
+ (Delay forSeconds:10) wait
]
"
@@ -1693,7 +1693,7 @@
"
Cursor arrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:28:28 / cg"
@@ -1706,7 +1706,7 @@
"
Cursor blank
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:27:39 / cg"
@@ -1719,7 +1719,7 @@
"
Cursor bottomLeft
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:27:12 / cg"
@@ -1732,7 +1732,7 @@
"
Cursor bottomRight
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:27:02 / cg"
@@ -1745,7 +1745,7 @@
"
Cursor caret
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:27:08 / cg"
@@ -1755,13 +1755,13 @@
"return a corner (bottom-right) cursor"
CornerCursor isNil ifTrue:[
- CornerCursor := self shape:#corner on:Display
+ CornerCursor := self shape:#corner on:Display
].
^ CornerCursor
"
Cursor corner
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:53 / cg"
@@ -1774,7 +1774,7 @@
"
Cursor cross
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:49 / cg"
@@ -1784,13 +1784,13 @@
"return a crossHair cursor"
CrossHairCursor isNil ifTrue:[
- CrossHairCursor := self shape:#crossHair on:Display
+ CrossHairCursor := self shape:#crossHair on:Display
].
^ CrossHairCursor
"
Cursor crossHair
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:42 / cg"
@@ -1803,7 +1803,7 @@
"
Cursor document
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: / 23.10.1997 / 00:27:08 / cg"
@@ -1817,7 +1817,7 @@
"
Cursor down
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:34 / cg"
@@ -1830,7 +1830,7 @@
"
Cursor downLimitArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:29 / cg"
@@ -1839,14 +1839,18 @@
execute
"return a execute cursor - (the default here is a wait-cursor)"
+ XeqCursor isNil ifTrue:[
+ XeqCursor := self shape:#execute on:Display.
+ ].
XeqCursor notNil ifTrue:[
- ^ XeqCursor
+ ^ XeqCursor
].
+
^ self wait
"
Cursor execute
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:19 / cg"
@@ -1859,7 +1863,7 @@
"
Cursor eye
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:26:06 / cg"
@@ -1872,7 +1876,7 @@
"
Cursor folder
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: / 23.10.1997 / 00:27:08 / cg"
@@ -1883,13 +1887,13 @@
"return a four-way arrow cursor"
FourWayCursor isNil ifTrue:[
- FourWayCursor := self shape:#fourWay on:Display
+ FourWayCursor := self shape:#fourWay on:Display
].
^ FourWayCursor
"
Cursor fourWay
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:25:34 / cg"
@@ -1899,7 +1903,7 @@
"return a hand cursor"
HandCursor isNil ifTrue:[
- HandCursor := self shape:#upRightHand on:Display.
+ HandCursor := self shape:#upRightHand on:Display.
HandCursor isNil ifTrue:[
HandCursor := self normal.
]
@@ -1908,7 +1912,7 @@
"
Cursor hand
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:25:07 / cg"
@@ -1921,7 +1925,7 @@
"
Cursor left
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:24:51 / cg"
@@ -1934,7 +1938,7 @@
"
Cursor leftHand
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:24:31 / cg"
@@ -1947,7 +1951,7 @@
"
Cursor leftLimitArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:24:14 / cg"
@@ -1957,13 +1961,13 @@
"return a left-right-arrow cursor"
LeftRightArrowCursor isNil ifTrue:[
- LeftRightArrowCursor := self shape:#leftRightArrow on:Display
+ LeftRightArrowCursor := self shape:#leftRightArrow on:Display
].
^ LeftRightArrowCursor
"
Cursor leftRightArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:23:59 / cg"
@@ -1976,7 +1980,7 @@
"
Cursor marker
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:23:33 / cg"
@@ -1987,14 +1991,14 @@
for ST-80 compatibility"
NormalCursor isNil ifTrue:[
- NormalCursor := self arrow
+ NormalCursor := self arrow
].
^ NormalCursor
"
Cursor normal
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:23:12 / cg"
@@ -2004,13 +2008,13 @@
"return an origin cursor"
OriginCursor isNil ifTrue:[
- OriginCursor := self shape:#origin on:Display
+ OriginCursor := self shape:#origin on:Display
].
^ OriginCursor
"
Cursor origin
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:22:58 / cg"
@@ -2024,13 +2028,13 @@
crsr := self shape:#questionMark on:Display.
(crsr isNil
or:[crsr id isNil]) ifTrue:[
- crsr := self wait
+ crsr := self wait
].
^ crsr
"
Cursor questionMark
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: / 27.7.1998 / 20:20:44 / cg"
@@ -2040,13 +2044,13 @@
"return a reading-file cursor (the default here is a wait-cursor)"
ReadCursor notNil ifTrue:[
- ^ ReadCursor
+ ^ ReadCursor
].
^ self wait
"
Cursor read
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:22:23 / cg"
@@ -2059,7 +2063,7 @@
"
Cursor right
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:22:05 / cg"
@@ -2073,7 +2077,7 @@
"
Cursor rightLimitArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:15:12 / cg"
@@ -2084,13 +2088,13 @@
"return a stop cursor (the default here is a wait-cursor)"
StopCursor notNil ifTrue:[
- ^ StopCursor
+ ^ StopCursor
].
^ self wait
"
Cursor stop
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:20:52 / cg"
@@ -2103,7 +2107,7 @@
"
Cursor text
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:20:37 / cg"
@@ -2113,13 +2117,13 @@
"return a hand cursor - ST-80 compatibility"
ThumbsDownCursor notNil ifTrue:[
- ^ ThumbsDownCursor
+ ^ ThumbsDownCursor
].
^ self hand
"
Cursor thumbsDown
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:20:20 / cg"
@@ -2129,13 +2133,13 @@
"return a hand cursor - ST-80 compatibility"
ThumbsUpCursor notNil ifTrue:[
- ^ ThumbsUpCursor
+ ^ ThumbsUpCursor
].
^ self hand
"
Cursor thumbsUp
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:20:04 / cg"
@@ -2148,7 +2152,7 @@
"
Cursor topLeft
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:19:50 / cg"
@@ -2161,7 +2165,7 @@
"
Cursor topRight
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:19:33 / cg"
@@ -2174,7 +2178,7 @@
"
Cursor up
- showWhile:[ Delay waitForSeconds:5 ]
+ showWhile:[ Delay waitForSeconds:5 ]
"
"Modified: 23.10.1997 / 00:19:14 / cg"
@@ -2184,13 +2188,13 @@
"return an up-down-arrow cursor"
UpDownArrowCursor isNil ifTrue:[
- UpDownArrowCursor := self shape:#upDownArrow on:Display
+ UpDownArrowCursor := self shape:#upDownArrow on:Display
].
^ UpDownArrowCursor
"
Cursor upDownArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:18:53 / cg"
@@ -2203,7 +2207,7 @@
"
Cursor upLeftArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:18:37 / cg"
@@ -2216,7 +2220,7 @@
"
Cursor upLimitArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:18:19 / cg"
@@ -2229,7 +2233,7 @@
"
Cursor upRightArrow
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:18:03 / cg"
@@ -2248,7 +2252,7 @@
"
Cursor upRightHand
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:17:46 / cg"
@@ -2258,13 +2262,13 @@
"return a wait cursor"
WaitCursor isNil ifTrue:[
- WaitCursor := self shape:#wait on:Display
+ WaitCursor := self shape:#wait on:Display
].
^ WaitCursor
"
Cursor wait
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:17:32 / cg"
@@ -2274,13 +2278,13 @@
"return a writing-file cursor (the default here is a wait-cursor)"
WriteCursor notNil ifTrue:[
- ^ WriteCursor
+ ^ WriteCursor
].
^ self wait
"
Cursor write
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:17:22 / cg"
@@ -2293,7 +2297,7 @@
"
Cursor xMarker
- showWhile:[ Delay waitForSeconds:3 ]
+ showWhile:[ Delay waitForSeconds:3 ]
"
"Modified: 23.10.1997 / 00:16:44 / cg"
@@ -2655,6 +2659,6 @@
!Cursor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.59 1998-07-27 18:22:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.60 1998-09-24 10:01:42 cg Exp $'
! !
Cursor initialize!