--- a/Cursor.st Tue Jan 03 14:41:54 2017 +0100
+++ b/Cursor.st Tue Jan 03 14:45:53 2017 +0100
@@ -420,7 +420,7 @@
].
HandCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000011
@@ -460,7 +460,7 @@
HandCursor setShape:#upRightHand.
FolderCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -499,7 +499,7 @@
offset: 0@ -3).
DocumentCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -578,7 +578,7 @@
"/ OriginCursor setShape:#origin.
OriginCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r1111111111111110
@@ -618,7 +618,7 @@
OriginCursor setShape:#origin.
"/ TopRightCornerCursor :=
-"/ (Cursor
+"/ (self
"/ extent: 16@16
"/ sourceArray: #(
"/ 2r0000000000000000
@@ -658,7 +658,7 @@
"/ TopRightCornerCursor setShape:#topRightCorner.
TopRightCornerCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0111111111111111
@@ -698,7 +698,7 @@
TopRightCornerCursor setShape:#topRightCorner.
"/ CornerCursor :=
-"/ (Cursor
+"/ (self
"/ extent: 16@16
"/ sourceArray: #(
"/ 2r0000000000000110
@@ -738,7 +738,7 @@
"/ CornerCursor setShape:#corner.
CornerCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -818,7 +818,7 @@
"/ BottomLeftCornerCursor setShape:#bottomLeftCorner.
BottomLeftCornerCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -936,7 +936,7 @@
WriteCursor setShape:#write.
WaitCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r1111111111111111
@@ -976,7 +976,7 @@
WaitCursor setShape:#wait.
BlankCursor :=
- (Cursor
+ (self
extent: 16@16
fromArray: #(
2r0000000000000000
@@ -999,7 +999,7 @@
BlankCursor setShape:#blank.
XeqCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r1000000000010000
@@ -1039,7 +1039,7 @@
XeqCursor setShape:#execute.
SquareCursor :=
- (Cursor
+ (self
extent: 16@16
fromArray: #(
2r0000000000000000
@@ -1062,7 +1062,7 @@
SquareCursor setShape:#square.
NormalCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r1000000000000000
@@ -1102,7 +1102,7 @@
NormalCursor setShape:#upLeftArrow.
UpDownArrowCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000110000000
@@ -1144,7 +1144,7 @@
UpDownArrowCursor setShape:#upDownArrow.
LeftRightArrowCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1185,7 +1185,7 @@
CrossHairCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000100000000
@@ -1225,7 +1225,7 @@
CrossHairCursor setShape:#crossHair.
CrossCursor :=
- (Cursor
+ (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1265,7 +1265,7 @@
CrossCursor setShape:#cross.
RightLimitCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0000000000000110
@@ -1305,7 +1305,7 @@
RightLimitCursor setShape:#rightLimitArrow.
LeftLimitCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0110000000000000
@@ -1347,7 +1347,7 @@
LeftLimitCursor setShape:#leftLimitArrow.
UpLimitCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1389,7 +1389,7 @@
UpLimitCursor setShape:#upLimitArrow.
DownLimitCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1429,7 +1429,7 @@
DownLimitCursor setShape:#downLimitArrow.
LeftRightArrowCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1509,7 +1509,7 @@
].
MarkerCursor :=
- Cursor
+ self
extent: 16@16
sourceArray:bits
maskArray: #(
@@ -1573,7 +1573,7 @@
].
UpCursor :=
- Cursor
+ self
extent: 16@16
sourceArray:bits
maskArray: #(
@@ -1637,7 +1637,7 @@
].
DownCursor :=
- Cursor
+ self
extent: 16@16
sourceArray:bits
maskArray: #(
@@ -1701,7 +1701,7 @@
].
LeftCursor :=
- Cursor
+ self
extent: 16@16
sourceArray:bits
maskArray: #(
@@ -1765,7 +1765,7 @@
].
RightCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: bits
maskArray: #(
@@ -1829,7 +1829,7 @@
].
XMarkerCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: bits
maskArray: #(
@@ -1853,7 +1853,7 @@
RightCursor setShape:#xMarker.
FourWayCursor :=
- Cursor
+ self
extent: 16@16
sourceArray: #(
2r0000000100000000
@@ -1892,7 +1892,7 @@
offset: -7@ -7.
FourWayCursor setShape:#fourWay.
- ThumbsUpCursor := (Cursor
+ ThumbsUpCursor := (self
extent: 16@16
sourceArray: #(
2r0000000000100000
@@ -1931,7 +1931,7 @@
offset: -8@ 0).
ThumbsUpCursor setShape:#thumbsUp.
- CaretCursor := (Cursor
+ CaretCursor := (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -1970,7 +1970,7 @@
offset: -8@0).
CaretCursor setShape:#caret.
- ThumbsDownCursor := (Cursor
+ ThumbsDownCursor := (self
extent: 16@16
sourceArray: #(
2r0001111111100000
@@ -2010,7 +2010,7 @@
offset: -8@ -15 "-16").
ThumbsDownCursor setShape:#thumbsDown.
- StopCursor := (Cursor
+ StopCursor := (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -2051,7 +2051,7 @@
offset: -8 @ -8).
StopCursor setShape:#stop.
- EyeCursor := (Cursor
+ EyeCursor := (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -2092,7 +2092,7 @@
offset: -8 @ -8).
EyeCursor setShape:#eye.
- ClosedEyeCursor := (Cursor
+ ClosedEyeCursor := (self
extent: 16@16
sourceArray: #(
2r0000000000000000
@@ -2174,7 +2174,7 @@
2r0000001111000000).
].
- QuestionMarkCursor := (Cursor
+ QuestionMarkCursor := (self
extent: 16@16
sourceArray:bits
maskArray:mask
@@ -2230,7 +2230,7 @@
"
HandCursor := nil.
- Cursor initializeNewCursors.
+ self initializeNewCursors.
"
"Modified: / 13.12.1999 / 12:25:48 / cg"