hg/stx-libview: Cursor.st@2704c965b97b (annotated)

0 48194c26a46c Initial revision claus parents: diff changeset	1	"
6 7ee0cfde237d * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1992 by Claus Gittinger
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	3	All Rights Reserved
0 48194c26a46c Initial revision claus parents: diff changeset	4
48194c26a46c Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
48194c26a46c Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
48194c26a46c Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
48194c26a46c Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
48194c26a46c Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
48194c26a46c Initial revision claus parents: diff changeset	10	hereby transferred.
48194c26a46c Initial revision claus parents: diff changeset	11	"
3201 ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	12	"{ Package: 'stx:libview' }"
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	13
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	14	"{ NameSpace: Smalltalk }"
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	15
0 48194c26a46c Initial revision claus parents: diff changeset	16	Object subclass:#Cursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	17	instanceVariableNames:'shape sourceForm maskForm hotX hotY device cursorId'
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	18	classVariableNames:'DefaultFgColor DefaultBgColor NormalCursor HandCursor ArrowCursor
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	19	WaitCursor CrossHairCursor OriginCursor CornerCursor SquareCursor
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	20	FourWayCursor UpDownArrowCursor LeftRightArrowCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	21	ThumbsUpCursor ThumbsDownCursor ReadCursor WriteCursor XeqCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	22	StopCursor EyeCursor BlankCursor MarkerCursor UpCursor DownCursor
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	23	LeftCursor RightCursor XMarkerCursor CaretCursor
2616 9e03b6a1e2d0 questionMarkCursor; fixed CrossCursor. Claus Gittinger <cg@exept.de> parents: 2615 diff changeset	24	UpRightHandCursor DocumentCursor FolderCursor CrossCursor
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	25	QuestionMarkCursor LeftHandCursor BottomLeftCornerCursor
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	26	TopRightCornerCursor DownLimitCursor UpLimitCursor
8092 4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	27	LeftLimitCursor RightLimitCursor ClosedEyeCursor BulletCursor'
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	28	poolDictionaries:''
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	29	category:'Graphics-Support'
0 48194c26a46c Initial revision claus parents: diff changeset	30	!
48194c26a46c Initial revision claus parents: diff changeset	31
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	32	!Cursor class methodsFor:'documentation'!
0 48194c26a46c Initial revision claus parents: diff changeset	33
46 7b331e9012fd * empty log message * claus parents: 38 diff changeset	34	copyright
7b331e9012fd * empty log message * claus parents: 38 diff changeset	35	"
7b331e9012fd * empty log message * claus parents: 38 diff changeset	36	COPYRIGHT (c) 1992 by Claus Gittinger
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	37	All Rights Reserved
46 7b331e9012fd * empty log message * claus parents: 38 diff changeset	38
7b331e9012fd * empty log message * claus parents: 38 diff changeset	39	This software is furnished under a license and may be used
7b331e9012fd * empty log message * claus parents: 38 diff changeset	40	only in accordance with the terms of that license and with the
7b331e9012fd * empty log message * claus parents: 38 diff changeset	41	inclusion of the above copyright notice. This software may not
7b331e9012fd * empty log message * claus parents: 38 diff changeset	42	be provided or otherwise made available to, or used by, any
7b331e9012fd * empty log message * claus parents: 38 diff changeset	43	other person. No title to or ownership of the software is
7b331e9012fd * empty log message * claus parents: 38 diff changeset	44	hereby transferred.
7b331e9012fd * empty log message * claus parents: 38 diff changeset	45	"
7b331e9012fd * empty log message * claus parents: 38 diff changeset	46	!
7b331e9012fd * empty log message * claus parents: 38 diff changeset	47
0 48194c26a46c Initial revision claus parents: diff changeset	48	documentation
38 2652fc96e660 * empty log message * claus parents: 35 diff changeset	49	"
2652fc96e660 * empty log message * claus parents: 35 diff changeset	50	I represents cursors in a device independent manner.
144 cf645a1ebbb3 . claus parents: 133 diff changeset	51	Normally, cursors are defined at view creation time,
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	52	via
7669 88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	53	'aView cursor:aCursor'.
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	54
2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	55	[Instance variables:]
0 48194c26a46c Initial revision claus parents: diff changeset	56
7669 88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	57	shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	58	sourceForm <Form> if shape is nil, the source bits
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	59	maskForm <Form> if shape is nil, the mask bits
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	60	hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	61	hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	62	device <aDevice> the device, if associated to one
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	63	cursorId <anObject> the device-specific id if device is nonNil
0 48194c26a46c Initial revision claus parents: diff changeset	64
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	65	[class variables:]
2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	66
7669 88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	67	Lobby <Registry> keeps track of known device cursors
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	68	(don't use it: this will be moved to the device)
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	69
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	70	DefaultFgColor <Color> default foreground color for cursors (usually black)
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	71	DefaultBgColor <Color> default background color for cursors (usually white)
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	72
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	73	NormalCursor <Cursor> cached instance of normal (arrow) cursor
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	74	...
0 48194c26a46c Initial revision claus parents: diff changeset	75
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	76	[see also:]
7669 88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	77	DeviceWorkstation
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	78	DisplaySurface
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	79	Font Color Image Form
88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	80	( introduction to view programming :html: programming/viewintro.html#CURSOR )
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 601 diff changeset	81
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 601 diff changeset	82	[author:]
7669 88df7c0efebf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	83	Claus Gittinger
38 2652fc96e660 * empty log message * claus parents: 35 diff changeset	84	"
144 cf645a1ebbb3 . claus parents: 133 diff changeset	85	!
cf645a1ebbb3 . claus parents: 133 diff changeset	86
cf645a1ebbb3 . claus parents: 133 diff changeset	87	examples
cf645a1ebbb3 . claus parents: 133 diff changeset	88	"
5356 b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	89	get a standard cursors:
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	90	[exBegin]
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	91	Cursor wait.
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	92	Cursor stop.
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	93	Cursor normal.
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	94	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	95
cf645a1ebbb3 . claus parents: 133 diff changeset	96	create a custom cursor:
5356 b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	97	[exBegin]
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	98	Cursor extent:16@16
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	99	fromArray:#[ 2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	100	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	101	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	102	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	103	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	104	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	105	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	106	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	107	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	108	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	109	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	110	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	111	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	112	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	113	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	114	2r00000000 2r00000000]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	115	offset:-8 @ -8
5356 b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	116	[exEnd]
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	117
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	118	some common cursors ...
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	119	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	120	\|v b cursors nextCursorAction\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	121
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	122	cursors := OrderedCollection new.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	123	cursors add:#arrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	124	cursors add:#blank.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	125	cursors add:#bottomLeft.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	126	cursors add:#bottomRight.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	127	cursors add:#caret.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	128	cursors add:#corner.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	129	cursors add:#cross.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	130	cursors add:#crossHair.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	131	cursors add:#document.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	132	cursors add:#down.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	133	cursors add:#downLimitArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	134	cursors add:#execute.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	135	cursors add:#eye.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	136	cursors add:#folder.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	137	cursors add:#fourWay.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	138	cursors add:#hand.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	139	cursors add:#left.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	140	cursors add:#leftHand.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	141	cursors add:#leftLimitArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	142	cursors add:#leftRightArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	143	cursors add:#marker.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	144	cursors add:#normal.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	145	cursors add:#origin.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	146	cursors add:#questionMark.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	147	cursors add:#read.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	148	cursors add:#right.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	149	cursors add:#rightLimitArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	150	cursors add:#stop.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	151	cursors add:#text.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	152	cursors add:#thumbsDown.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	153	cursors add:#thumbsUp.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	154	cursors add:#topLeft.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	155	cursors add:#topRight.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	156	cursors add:#up.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	157	cursors add:#upDownArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	158	cursors add:#upLeftArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	159	cursors add:#upLimitArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	160	cursors add:#upRightArrow.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	161	cursors add:#upRightHand.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	162	cursors add:#wait.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	163	cursors add:#write.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	164	cursors add:#xMarker.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	165
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	166	nextCursorAction := [
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	167	\|sel c\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	168
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	169	cursors isEmpty ifTrue:[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	170	v close.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	171	] ifFalse:[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	172	sel := cursors removeFirst.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	173	c := Cursor perform:sel.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	174	b label:sel.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	175	b cursor:c.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	176	]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	177	].
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	178
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	179	v := StandardSystemView extent:100@100.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	180	b := Button origin:0.0@0.0 corner:1.0@1.0 in:v.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	181	b label:'default'.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	182	b action:nextCursorAction.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	183	v openAndWait.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	184
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	185	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	186
cf645a1ebbb3 . claus parents: 133 diff changeset	187	define a cursor for a view:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	188	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	189	\|v\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	190
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	191	v := StandardSystemView extent:100@100.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	192	v cursor:Cursor stop.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	193	v open.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	194	[exEnd]
619 a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	195
144 cf645a1ebbb3 . claus parents: 133 diff changeset	196
cf645a1ebbb3 . claus parents: 133 diff changeset	197	with above custom cursor:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	198	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	199	\|v\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	200
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	201	v := StandardSystemView extent:100@100.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	202	v cursor:(
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	203	Cursor extent:16@16
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	204	fromArray:#[ 2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	205	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	206	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	207	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	208	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	209	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	210	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	211	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	212	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	213	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	214	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	215	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	216	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	217	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	218	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	219	2r00000000 2r00000000]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	220	offset:-8 @ -8).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	221	v open.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	222	[exEnd]
1929 e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	223
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	224
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	225	a custom cursor with mask:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	226	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	227	\|v\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	228
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	229	v := StandardSystemView extent:100@100.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	230	v cursor:(
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	231	Cursor
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	232	extent:16@16
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	233	sourceArray:#[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	234	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	235	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	236	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	237	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	238	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	239	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	240	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	241	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	242	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	243	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	244	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	245	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	246	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	247	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	248	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	249	2r00000000 2r00000000]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	250	maskArray:#[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	251	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	252	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	253	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	254	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	255	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	256	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	257	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	258	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	259	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	260	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	261	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	262	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	263	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	264	2r11111111 2r11111111
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	265	2r00000000 2r00000000
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	266	2r00000000 2r00000000]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	267	offset:-8 @ -8).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	268	v open.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	269	[exEnd]
1929 e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	270
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	271
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	272	a cursor from an image read from a file:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	273	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	274	\|v img\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	275
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	276	v := StandardSystemView extent:100@100.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	277	img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	278	v cursor:(Cursor fromImage:img).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	279	v open.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	280	[exEnd]
619 a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	281
144 cf645a1ebbb3 . claus parents: 133 diff changeset	282
cf645a1ebbb3 . claus parents: 133 diff changeset	283	with multiple views:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	284	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	285	\|v1 v2 top\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	286
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	287	top := StandardSystemView new.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	288	top extent:300@300.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	289	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	290	v1 viewBackground:(Color grey:75).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	291	v1 cursor:Cursor thumbsUp.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	292	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	293	v2 viewBackground:(Color white).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	294	v2 cursor:Cursor wait.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	295	top open.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	296	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	297
cf645a1ebbb3 . claus parents: 133 diff changeset	298
702 f4c27eed129a doku Claus Gittinger <cg@exept.de> parents: 627 diff changeset	299	show a cursor (in the active ST/X view) for a while:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	300	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	301
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	302	Cursor wait
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	303	showWhile:[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	304	Delay waitForSeconds:5
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	305	]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	306	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	307
cf645a1ebbb3 . claus parents: 133 diff changeset	308
151 8123ec03c52f . claus parents: 145 diff changeset	309	show a cursor in all views belonging to a windowGroup:
8123ec03c52f . claus parents: 145 diff changeset	310	(have to wait until top is visible to access windowGroup)
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	311	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	312	\|v1 v2 top\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	313
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	314	top := StandardSystemView new.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	315	top extent:300@300.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	316	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	317	v1 viewBackground:(Color grey:75).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	318	v1 cursor:(Cursor normal).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	319
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	320	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	321	v2 viewBackground:(Color white).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	322	v2 cursor:(Cursor crossHair).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	323	top openAndWait.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	324
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	325	Delay waitForSeconds:3.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	326
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	327	top windowGroup
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	328	withCursor:Cursor wait
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	329	do:[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	330	Delay waitForSeconds:5
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	331	]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	332	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	333
8123ec03c52f . claus parents: 145 diff changeset	334
144 cf645a1ebbb3 . claus parents: 133 diff changeset	335	show a cursor in a single view for a while:
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	336	[exBegin]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	337	\|v1 v2 top\|
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	338
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	339	top := StandardSystemView new.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	340	top extent:300@300.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	341	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	342	v1 viewBackground:(Color grey:75).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	343	v1 cursor:(Cursor normal).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	344
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	345	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	346	v2 viewBackground:(Color white).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	347	v2 cursor:(Cursor crossHair).
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	348
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	349	top openAndWait.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	350
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	351	Delay waitForSeconds:3.
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	352
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	353	v1 withCursor:Cursor wait
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	354	do:[
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	355	Delay waitForSeconds:5
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	356	]
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	357	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	358	"
0 48194c26a46c Initial revision claus parents: diff changeset	359	! !
48194c26a46c Initial revision claus parents: diff changeset	360
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	361	!Cursor class methodsFor:'initialization'!
0 48194c26a46c Initial revision claus parents: diff changeset	362
2845 0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	363	flushDeviceCursorsFor:aDevice
0 48194c26a46c Initial revision claus parents: diff changeset	364	"unassign all cursors from their device"
48194c26a46c Initial revision claus parents: diff changeset	365
2845 0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	366	aDevice deviceCursors do:[:aCursor \|
0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	367	aCursor setDevice:nil id:nil
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	368	].
2845 0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	369	aDevice releaseDeviceCursors
0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	370
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	371	"
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	372	self flushDeviceCursorsFor:Display
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	373	"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	374	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	375
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	376	initialize
3218 dd321bee52a3 ensure Color-class is initialized Claus Gittinger <cg@exept.de> parents: 3213 diff changeset	377	Color initialize.
3221 59f49af4023b checkin from browser Claus Gittinger <cg@exept.de> parents: 3218 diff changeset	378	Form initialize.
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	379	self initializeNewCursors
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	380
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	381	"
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	382	Cursor initialize
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	383	"
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	384	!
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	385
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	386	initializeNewCursors
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	387	"Create additional cursors as bitmap cursors,
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	388	if not available as native cursors on the device.
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	389	This is invoked via the startup script (display.rc)
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	390	(This is rubbish - we should keep that info on a per-device basis ...)
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	391	Cursor blank
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	392	Cursor down
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	393	Cursor execute
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	394	Cursor left
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	395	Cursor marker
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	396	Cursor normal
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	397	Cursor read
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	398	Cursor right
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	399	Cursor square
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	400	Cursor up
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	401	Cursor wait
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	402	Cursor write
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	403	Cursor thumbsUp
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	404	Cursor thumbsDown
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	405	Cursor xMarker
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	406	Cursor caret
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	407	Cursor stop
3201 ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	408	Cursor eye
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	409	Cursor eyeClosed"
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	410
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	411	\|bits mask isWindows\|
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	412
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	413	"/ HandCursor := nil.
3213 78add46c0f4b only init once Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	414	HandCursor notNil ifTrue:[^ self].
78add46c0f4b only init once Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	415
6207 265c0bb79b00 Replace references to Diplay with "Screen current" - where appropriate Stefan Vogel <sv@exept.de> parents: 5356 diff changeset	416	Screen isNil ifTrue:[
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	417	isWindows := OperatingSystem isMSWINDOWSlike.
2999 5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	418	] ifFalse:[
6577 4639bb86cdfa class: Cursor Stefan Vogel <sv@exept.de> parents: 6506 diff changeset	419	isWindows := Screen isWindowsPlatform.
2999 5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	420	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	421
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	422	HandCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	423	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	424	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	425	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	426	2r0000000000000011
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	427	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	428	2r0000000000111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	429	2r0000000001111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	430	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	431	2r0000000111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	432	2r0000001111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	433	2r0000001111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	434	2r0001111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	435	2r0011011111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	436	2r0110000111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	437	2r0110000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	438	2r0011001010000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	439	2r0001100010000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	440	2r0000110100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	441	2r0000011000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	442	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	443	2r0000000000000011
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	444	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	445	2r0000000000111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	446	2r0000000001111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	447	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	448	2r0000000111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	449	2r0000001111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	450	2r0000001111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	451	2r0001111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	452	2r0011011111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	453	2r0110000111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	454	2r0110000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	455	2r0011001010000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	456	2r0001100010000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	457	2r0000110100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	458	2r0000011000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	459	offset: 0@ -15).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	460	HandCursor setShape:#upRightHand.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	461
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	462	FolderCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	463	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	464	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	465	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	466	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	467	2r0011111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	468	2r0100000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	469	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	470	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	471	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	472	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	473	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	474	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	475	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	476	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	477	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	478	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	479	2r1010101010101011
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	480	2r0111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	481	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	482	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	483	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	484	2r0011111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	485	2r0111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	486	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	487	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	488	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	489	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	490	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	491	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	492	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	493	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	494	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	495	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	496	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	497	2r0111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	498	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	499	offset: 0@ -3).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	500
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	501	DocumentCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	502	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	503	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	504	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	505	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	506	2r0011111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	507	2r0010000000110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	508	2r0010000000101000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	509	2r0010000000111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	510	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	511	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	512	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	513	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	514	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	515	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	516	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	517	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	518	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	519	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	520	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	521	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	522	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	523	2r0011111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	524	2r0011111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	525	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	526	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	527	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	528	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	529	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	530	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	531	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	532	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	533	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	534	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	535	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	536	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	537	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	538	offset: -2@ -1).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	539
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	540	"/ OriginCursor :=
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	541	"/ (Cursor
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	542	"/ extent: 16@16
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	543	"/ sourceArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	544	"/ 2r0000000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	545	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	546	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	547	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	548	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	549	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	550	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	551	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	552	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	553	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	554	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	555	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	556	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	557	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	558	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	559	"/ 2r0110000000000000)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	560	"/ maskArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	561	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	562	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	563	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	564	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	565	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	566	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	567	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	568	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	569	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	570	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	571	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	572	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	573	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	574	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	575	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	576	"/ 2r1111000000000000)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	577	"/ offset: -1@ -1).
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	578	"/ OriginCursor setShape:#origin.
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	579
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	580	OriginCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	581	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	582	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	583	sourceArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	584	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	585	2r1000000000000010
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	586	2r1000000000000010
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	587	2r1001111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	588	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	589	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	590	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	591	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	592	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	593	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	594	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	595	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	596	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	597	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	598	2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	599	2r0000000000000000)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	600	maskArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	601	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	602	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	603	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	604	2r1111111111111110
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	605	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	606	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	607	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	608	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	609	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	610	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	611	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	612	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	613	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	614	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	615	2r1111000000000000
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	616	2r0000000000000000)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	617	offset: -1@ -1).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	618	OriginCursor setShape:#origin.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	619
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	620	"/ TopRightCornerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	621	"/ (self
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	622	"/ extent: 16@16
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	623	"/ sourceArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	624	"/ 2r0000000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	625	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	626	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	627	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	628	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	629	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	630	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	631	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	632	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	633	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	634	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	635	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	636	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	637	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	638	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	639	"/ 2r0000000000000110)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	640	"/ maskArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	641	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	642	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	643	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	644	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	645	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	646	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	647	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	648	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	649	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	650	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	651	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	652	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	653	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	654	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	655	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	656	"/ 2r0000000000001111)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	657	"/ offset: -14@ -1).
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	658	"/ TopRightCornerCursor setShape:#topRightCorner.
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	659
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	660	TopRightCornerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	661	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	662	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	663	sourceArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	664	2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	665	2r0100000000000001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	666	2r0100000000000001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	667	2r0111111111111001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	668	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	669	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	670	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	671	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	672	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	673	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	674	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	675	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	676	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	677	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	678	2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	679	2r0000000000000000)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	680	maskArray: #(
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	681	2r0111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	682	2r0111111111111111
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	683	2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	684	2r0111111111111111
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	685	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	686	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	687	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	688	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	689	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	690	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	691	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	692	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	693	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	694	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	695	2r0000000000001111
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	696	2r0000000000000000)
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	697	offset: -14@ -1).
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	698	TopRightCornerCursor setShape:#topRightCorner.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	699
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	700	"/ CornerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	701	"/ (self
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	702	"/ extent: 16@16
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	703	"/ sourceArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	704	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	705	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	706	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	707	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	708	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	709	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	710	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	711	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	712	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	713	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	714	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	715	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	716	"/ 2r0000000000000110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	717	"/ 2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	718	"/ 2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	719	"/ 2r0000000000000000)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	720	"/ maskArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	721	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	722	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	723	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	724	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	725	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	726	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	727	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	728	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	729	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	730	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	731	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	732	"/ 2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	733	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	734	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	735	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	736	"/ 2r1111111111111111)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	737	"/ offset: -14@ -14).
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	738	"/ CornerCursor setShape:#corner.
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	739
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	740	CornerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	741	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	742	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	743	sourceArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	744	2r0000000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	745	2r0000000000001111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	746	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	747	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	748	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	749	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	750	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	751	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	752	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	753	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	754	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	755	2r0000000000001001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	756	2r0111111111111001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	757	2r0100000000000001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	758	2r0100000000000001
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	759	2r0111111111111111)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	760	maskArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	761	2r0000000000000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	762	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	763	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	764	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	765	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	766	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	767	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	768	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	769	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	770	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	771	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	772	2r0000000000001111
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	773	2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	774	2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	775	2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	776	2r0111111111111111)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	777	offset: -14@ -14).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	778	CornerCursor setShape:#corner.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	779
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	780	"/ BottomLeftCornerCursor :=
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	781	"/ (Cursor
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	782	"/ extent: 16@16
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	783	"/ sourceArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	784	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	785	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	786	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	787	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	788	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	789	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	790	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	791	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	792	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	793	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	794	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	795	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	796	"/ 2r0110000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	797	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	798	"/ 2r0111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	799	"/ 2r0000000000000000)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	800	"/ maskArray: #(
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	801	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	802	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	803	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	804	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	805	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	806	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	807	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	808	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	809	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	810	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	811	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	812	"/ 2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	813	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	814	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	815	"/ 2r1111111111111111
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	816	"/ 2r1111111111111111)
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	817	"/ offset: -1@ -14).
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	818	"/ BottomLeftCornerCursor setShape:#bottomLeftCorner.
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	819
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	820	BottomLeftCornerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	821	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	822	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	823	sourceArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	824	2r0000000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	825	2r1111000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	826	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	827	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	828	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	829	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	830	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	831	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	832	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	833	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	834	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	835	2r1001000000000000
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	836	2r1001111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	837	2r1000000000000010
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	838	2r1000000000000010
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	839	2r1111111111111110)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	840	maskArray: #(
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	841	2r0000000000000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	842	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	843	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	844	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	845	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	846	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	847	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	848	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	849	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	850	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	851	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	852	2r1111000000000000
5264 e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	853	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	854	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	855	2r1111111111111110
e350e452ac9e nicer origin/corner cursors Claus Gittinger <cg@exept.de> parents: 5212 diff changeset	856	2r1111111111111110)
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	857	offset: -1@ -14).
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	858	BottomLeftCornerCursor setShape:#bottomLeftCorner.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	859
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	860	ReadCursor := (Cursor
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	861	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	862	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	863	2r0
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	864	2r0000110000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	865	2r0001001000001001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	866	2r0001001000001001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	867	2r0010000000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	868	2r0100000000100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	869	2r1111101111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	870	2r1000010000100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	871	2r1000010000100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	872	2r1011010110100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	873	2r0111101111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	874	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	875	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	876	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	877	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	878	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	879	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	880	2r0001111000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	881	2r0001111000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	882	2r0011111000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	883	2r0011100000111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	884	2r0111000000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	885	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	886	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	887	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	888	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	889	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	890	2r1111111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	891	2r0111111111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	892	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	893	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	894	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	895	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	896	offset: -5 @ -7).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	897	ReadCursor setShape:#read.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	898
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	899	WriteCursor := (Cursor
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	900	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	901	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	902	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	903	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	904	2r0000000000010110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	905	2r0000000000100100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	906	2r0000000001001000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	907	2r0000000010010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	908	2r0000000100100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	909	2r0000001001000011
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	910	2r0000010010000010
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	911	2r0000100100000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	912	2r0001001000001000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	913	2r0010010000001000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	914	2r0111100001001000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	915	2r0101000010111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	916	2r0110000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	917	2r1111111100000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	918	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	919	2r0000000000000111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	920	2r0000000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	921	2r0000000000011110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	922	2r0000000000111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	923	2r0000000001111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	924	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	925	2r0000000111100001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	926	2r0000001111000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	927	2r0000011110000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	928	2r0000111100001110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	929	2r0001111000001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	930	2r0011110001001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	931	2r0111100011111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	932	2r0111000110111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	933	2r0111111110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	934	2r1111111100000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	935	offset: 0@ -15).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	936	WriteCursor setShape:#write.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	937
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	938	WaitCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	939	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	940	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	941	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	942	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	943	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	944	2r0100000000000010
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	945	2r0010000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	946	2r0001110000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	947	2r0000111101110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	948	2r0000011011100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	949	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	950	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	951	2r0000010110100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	952	2r0000100010010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	953	2r0001000110001000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	954	2r0010001101000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	955	2r0100111111110010
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	956	2r1011111111111101
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	957	2r1111111111111111)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	958	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	959	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	960	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	961	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	962	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	963	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	964	2r0001111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	965	2r0000111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	966	2r0000011111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	967	2r0000011111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	968	2r0000111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	969	2r0001111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	970	2r0011111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	971	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	972	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	973	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	974	2r1111111111111111)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	975	offset: -8@ -8).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	976	WaitCursor setShape:#wait.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	977
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	978	BlankCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	979	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	980	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	981	fromArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	982	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	983	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	984	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	985	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	986	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	987	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	988	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	989	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	990	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	991	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	992	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	993	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	994	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	995	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	996	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	997	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	998	offset: 0@0).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	999	BlankCursor setShape:#blank.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1001	XeqCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1002	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1003	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1004	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1005	2r1000000000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1006	2r1100000000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1007	2r1110000000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1008	2r1111000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1009	2r1111100011000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1010	2r1111110001000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1011	2r1111111001111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1012	2r1111000001101100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1013	2r1101100011000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1014	2r1001100010000010
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1015	2r0000110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1016	2r0000110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1017	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1018	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1019	2r0000001100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1020	2r0000001100000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1021	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1022	2r1100000000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1023	2r1110000000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1024	2r1111000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1025	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1026	2r1111110011111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1027	2r1111111001111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1028	2r1111111101111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1029	2r1111100001111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1030	2r1101110011100111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1031	2r1001110011000010
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1032	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1033	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1034	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1035	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1036	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1037	2r0000001110000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1038	offset: 0@0).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1039	XeqCursor setShape:#execute.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1040
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1041	SquareCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1042	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1043	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1044	fromArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1045	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1046	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1047	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1048	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1049	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1050	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1051	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1052	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1053	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1054	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1055	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1056	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1057	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1058	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1059	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1060	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1061	offset: -8@ -8).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1062	SquareCursor setShape:#square.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1063
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1064	NormalCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1065	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1066	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1067	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1068	2r1000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1069	2r1100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1070	2r1110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1071	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1072	2r1111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1073	2r1111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1074	2r1111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1075	2r1111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1076	2r1111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1077	2r1001100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1078	2r0000110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1079	2r0000110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1080	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1081	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1082	2r0000001100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1083	2r0000001100000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1084	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1085	2r1100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1086	2r1110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1087	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1088	2r1111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1089	2r1111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1090	2r1111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1091	2r1111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1092	2r1111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1093	2r1111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1094	2r1001110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1095	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1096	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1097	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1098	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1099	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1100	2r0000001110000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1101	offset: 0@0).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1102	NormalCursor setShape:#upLeftArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1103
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1104	UpDownArrowCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1105	(self
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1106	extent: 16@16
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1107	sourceArray: #(
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1108	2r0000000110000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1109	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1110	2r0000011111100000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1111	2r0000111111110000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1112	2r0000000110000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1113	2r0000000110000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1114	2r0000000000000000
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1115	2r0111111111111110
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1116	2r0111111111111110
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1117	2r0000000000000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1118	2r0000000110000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1119	2r0000000110000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1120	2r0000111111110000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1121	2r0000011111100000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1122	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1123	2r0000000110000000)
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1124	maskArray: #(
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1125	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1126	2r0000011111100000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1127	2r0000111111110000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1128	2r0001111111111000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1129	2r0001111111111000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1130	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1131	2r1111111111111111
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1132	2r1111111111111111
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1133	2r1111111111111111
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1134	2r1111111111111111
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1135	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1136	2r0001111111111000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1137	2r0001111111111000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1138	2r0000111111110000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1139	2r0000011111100000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1140	2r0000001111000000
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1141
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1142	)
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1143	offset: -7@ -7).
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1144	UpDownArrowCursor setShape:#upDownArrow.
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1145
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1146	LeftRightArrowCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1147	(self
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1148	extent: 16@16
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1149	sourceArray: #(
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1150	2r0000000000000000
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1151	2r0000000110000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1152	2r0000000110000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1153	2r0000000110000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1154	2r0001000110001000
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1155	2r0011000110001100
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1156	2r0111000110001110
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1157	2r1111110110111111
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1158	2r1111110110111111
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1159	2r0111000110001110
ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1160	2r0011000110001100
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1161	2r0001000110001000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1162	2r0000000110000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1163	2r0000000110000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1164	2r0000000110000000
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1165	2r0000000000000000)
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1166	maskArray: #(
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1167	2r0000001111000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1168	2r0000001111000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1169	2r0000001111000000
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1170	2r0001101111011000
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1171	2r0011101111011100
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1172	2r0111111111111110
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1173	2r1111111111111111
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1174	2r1111111111111111
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1175	2r1111111111111111
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1176	2r1111111111111111
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1177	2r0111111111111110
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1178	2r0011101111011100
3115 ad3466d7b61f better upDown / leftRight cursors Claus Gittinger <cg@exept.de> parents: 3114 diff changeset	1179	2r0011101111011100
3111 669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1180	2r0000001111000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1181	2r0000001111000000
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1182	2r0000001111000000)
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1183	offset: -7@ -7).
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1184	LeftRightArrowCursor setShape:#leftRightArrow.
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1185
669af85a5998 missing cursors Claus Gittinger <cg@exept.de> parents: 3099 diff changeset	1186
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1187	CrossHairCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1188	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1189	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1190	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1191	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1192	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1193	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1194	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1195	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1196	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1197	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1198	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1199	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1200	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1201	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1202	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1203	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1204	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1205	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1206	2r0)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1207	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1208	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1209	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1210	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1211	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1212	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1213	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1214	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1215	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1216	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1217	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1218	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1219	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1220	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1221	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1222	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1223	2r0)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1224	offset: -7@ -7).
3085 83ceb5bf4f10 missing cursors: questionMark & crossHair Claus Gittinger <cg@exept.de> parents: 3071 diff changeset	1225	CrossHairCursor setShape:#crossHair.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1226
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1227	CrossCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1228	(self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1229	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1230	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1231	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1232	2r0110000000001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1233	2r0111000000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1234	2r0011100000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1235	2r0001110001110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1236	2r0000111011100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1237	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1238	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1239	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1240	2r0000111011100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1241	2r0001110001110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1242	2r0011100000111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1243	2r0111000000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1244	2r0110000000001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1245	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1246	2r0)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1247	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1248	2r1110000000001110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1249	2r1111000000011110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1250	2r1111100000111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1251	2r0111110001111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1252	2r0011111011111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1253	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1254	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1255	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1256	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1257	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1258	2r0011111011111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1259	2r0111110001111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1260	2r1111100000111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1261	2r1111000000011110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1262	2r1110000000001110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1263	2r0)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1264	offset: -7@ -7).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1265	CrossCursor setShape:#cross.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1266
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1267	RightLimitCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1268	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1269	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1270	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1271	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1272	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1273	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1274	2r0000001000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1275	2r0000001110000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1276	2r0000001111100110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1277	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1278	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1279	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1280	2r0000001111100110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1281	2r0000001110000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1282	2r0000001000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1283	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1284	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1285	2r0000000000000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1286	2r0000000000000110)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1287	maskArray: #(
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1288	2r0000000000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1289	2r0000000000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1290	2r0000000000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1291	2r0000011100001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1292	2r0000011111001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1293	2r1111111111111111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1294	2r1111111111111111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1295	2r1111111111111111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1296	2r1111111111111111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1297	2r1111111111111111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1298	2r0000011111001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1299	2r0000011100001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1300	2r0000011000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1301	2r0000000000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1302	2r0000000000001111
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	1303	2r0000000000001111)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1304	offset: -14@ -7.
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1305	RightLimitCursor setShape:#rightLimitArrow.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1306
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1307	LeftLimitCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1308	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1309	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1310	sourceArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1311	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1312	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1313	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1314	2r0110000001000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1315	2r0110000111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1316	2r0110011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1317	2r0111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1318	2r0111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1319	2r0111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1320	2r0110011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1321	2r0110000111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1322	2r0110000001000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1323	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1324	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1325	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1326	2r0110000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1327	)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1328	maskArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1329	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1330	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1331	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1332	2r1111000011100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1333	2r1111001111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1334	2r1111111111111111
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1335	2r0111111111111111
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1336	2r0111111111111111
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1337	2r0111111111111111
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1338	2r1111111111111111
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1339	2r1111001111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1340	2r1111000011100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1341	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1342	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1343	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1344	2r1111000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1345	)
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1346	offset: -1@ -7.
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1347	LeftLimitCursor setShape:#leftLimitArrow.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1348
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1349	UpLimitCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1350	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1351	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1352	sourceArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1353	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1354	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1355	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1356	2r0000000100000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1357	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1358	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1359	2r0000111111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1360	2r0001111111110000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1361	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1362	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1363	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1364	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1365	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1366	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1367	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1368	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1369	)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1370	maskArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1371	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1372	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1373	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1374	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1375	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1376	2r0000111111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1377	2r0001111111110000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1378	2r0011111111111000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1379	2r0011111111111000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1380	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1381	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1382	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1383	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1384	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1385	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1386	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1387	)
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1388	offset: -7@ -1.
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1389	UpLimitCursor setShape:#upLimitArrow.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1390
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1391	DownLimitCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1392	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1393	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1394	sourceArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1395	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1396	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1397	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1398	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1399	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1400	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1401	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1402	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1403	2r0001111111110000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1404	2r0000111111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1405	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1406	2r0000001110000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1407	2r0000000100000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1408	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1409	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1410	2r0000000000000000)
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1411	maskArray: #(
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1412	2r0000000000000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1413	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1414	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1415	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1416	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1417	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1418	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1419	2r0011111111111000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1420	2r0011111111111000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1421	2r0001111111110000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1422	2r0000111111100000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1423	2r0000011111000000
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1424	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1425	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1426	2r1111111111111110
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1427	2r1111111111111110)
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1428	offset: -7@ -15.
0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1429	DownLimitCursor setShape:#downLimitArrow.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1430
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1431	LeftRightArrowCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1432	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1433	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1434	sourceArray: #(
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1435	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1436	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1437	2r0000000000000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1438	2r0000100000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1439	2r0001100000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1440	2r0011100000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1441	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1442	2r1111100000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1443	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1444	2r0011100000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1445	2r0001100000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1446	2r0000100000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1447	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1448	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1449	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1450	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1451	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1452	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1453	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1454	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1455	2r0000100000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1456	2r0001100000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1457	2r0011100000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1458	2r0111111111111110
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1459	2r1111111111111111
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1460	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1461	2r0011100000011100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1462	2r0001100000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1463	2r0000100000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1464	2r0000000000000000
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1465	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1466	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1467	2r0000000000000000)
3071 0149ade6f294 cursor fixed Claus Gittinger <cg@exept.de> parents: 3066 diff changeset	1468	offset: -7@ -7.
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1469	LeftRightArrowCursor setShape:#leftRightArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1470
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1471	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1472	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1473	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1474	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1475	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1476	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1477	2r1111110111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1478	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1479	2r1111110000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1480	2r1000000000000111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1481	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1482	2r1000000000000111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1483	2r1111110000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1484	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1485	2r1111110111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1486	2r1111111111111111
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1487	2r1111111111111111
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1488	2r1111111111111111
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1489	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1490	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1491	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1492	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1493	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1494	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1495	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1496	2r0000001000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1497	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1498	2r0000001111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1499	2r0111111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1500	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1501	2r0111111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1502	2r0000001111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1503	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1504	2r0000001000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1505	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1506	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1507	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1508	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1509	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1510
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1511	MarkerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1512	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1513	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1514	sourceArray:bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1515	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1516	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1517	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1518	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1519	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1520	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1521	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1522	2r1111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1523	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1524	2r1111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1525	2r1111111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1526	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1527	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1528	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1529	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1530	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1531	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1532	offset: -14@ -7.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1533	MarkerCursor setShape:#marker.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1534
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1535	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1536	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1537	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1538	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1539	2r1011111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1540	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1541	2r1000111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1542	2r1000011111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1543	2r1000001111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1544	2r1000000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1545	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1546	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1547	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1548	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1549	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1550	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1551	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1552	2r1001111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1553	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1554	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1555	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1556	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1557	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1558	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1559	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1560	2r0111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1561	2r0111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1562	2r0111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1563	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1564	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1565	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1566	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1567	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1568	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1569	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1570	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1571	2r0110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1572	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1573	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1574
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1575	UpCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1576	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1577	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1578	sourceArray:bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1579	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1580	2r1100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1581	2r1110000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1582	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1583	2r1111100000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1584	2r1111110000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1585	2r1111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1586	2r1111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1587	2r1111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1588	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1589	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1590	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1591	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1592	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1593	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1594	2r1111000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1595	2r1111000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1596	offset: -1@ -1.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1597	UpCursor setShape:#upArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1598
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1599	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1600	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1601	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1602	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1603	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1604	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1605	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1606	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1607	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1608	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1609	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1610	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1611	2r1000000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1612	2r1100000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1613	2r1110000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1614	2r1111000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1615	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1616	2r1111110111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1617	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1618	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1619	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1620	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1621	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1622	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1623	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1624	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1625	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1626	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1627	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1628	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1629	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1630	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1631	2r0011111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1632	2r0001111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1633	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1634	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1635	2r0000001000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1636	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1637	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1638
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1639	DownCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1640	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1641	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1642	sourceArray:bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1643	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1644	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1645	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1646	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1647	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1648	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1649	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1650	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1651	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1652	2r1111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1653	2r1111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1654	2r0111111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1655	2r0011111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1656	2r0001111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1657	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1658	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1659	2r0000001100000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1660	offset: -7@ -15.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1661	DownCursor setShape:#downArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1662
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1663	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1664	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1665	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1666	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1667	2r1000000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1668	2r1100000000000001
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1669	2r1110000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1670	2r1111000111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1671	2r1111100111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1672	2r1111110111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1673	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1674	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1675	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1676	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1677	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1678	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1679	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1680	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1681	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1682	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1683	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1684	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1685	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1686	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1687	2r0011111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1688	2r0001111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1689	2r0000111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1690	2r0000011000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1691	2r0000001000000000
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1692	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1693	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1694	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1695	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1696	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1697	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1698	2r0000000000000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1699	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1700	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1701	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1702
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1703	LeftCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1704	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1705	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1706	sourceArray:bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1707	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1708	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1709	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1710	2r0111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1711	2r0011111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1712	2r0001111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1713	2r0000111100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1714	2r0000011100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1715	2r0000001100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1716	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1717	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1718	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1719	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1720	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1721	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1722	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1723	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1724	offset: -1 @ -1.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1725	LeftCursor setShape:#leftArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1726
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1727	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1728	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1729	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1730	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1731	2r1111111110111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1732	2r1111111110011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1733	2r1111111110001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1734	2r1111111110000111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1735	2r1000000000000011
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1736	2r1000000000000001
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1737	2r1111111111111111
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1738	2r1111111111111111
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1739	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1740	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1741	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1742	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1743	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1744	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1745	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1746	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1747	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1748	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1749	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1750	2r0000000001000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1751	2r0000000001100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1752	2r0000000001110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1753	2r0000000001111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1754	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1755	2r0111111111111110
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1756	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1757	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1758	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1759	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1760	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1761	2r0000000000000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1762	2r0000000000000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1763	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1764	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1765	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1766
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1767	RightCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1768	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1769	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1770	sourceArray: bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1771	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1772	2r0000000011000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1773	2r0000000011100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1774	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1775	2r0000000011111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1776	2r1111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1777	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1778	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1779	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1780	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1781	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1782	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1783	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1784	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1785	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1786	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1787	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1788	offset: -15@ -6.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1789	RightCursor setShape:#rightArrow.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1790
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1791	isWindows ifTrue:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1792	"/ want it white-with black boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1793	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1794	2r1111111111111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1795	2r1111111011111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1796	2r1111111011111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1797	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1798	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1799	2r1111100000111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1800	2r1111100000111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1801	2r1111000000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1802	2r1111000000011111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1803	2r1110000000001111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1804	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1805	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1806	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1807	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1808	2r1111110001111111
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1809	2r1111111111111111).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1810	] ifFalse:[
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1811	"/ want it black-with white boundary
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1812	bits := #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1813	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1814	2r0000000100000000
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1815	2r0000000100000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1816	2r0000001110000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1817	2r0000001110000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1818	2r0000011111000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1819	2r0000011111000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1820	2r0000111111100000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1821	2r0000111111100000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1822	2r0001111111110000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1823	2r0000001110000000
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1824	2r0000001110000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1825	2r0000001110000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1826	2r0000001110000000
bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	1827	2r0000001110000000
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1828	2r0000000000000000).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1829	].
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1830
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1831	XMarkerCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1832	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1833	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1834	sourceArray: bits
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1835	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1836	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1837	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1838	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1839	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1840	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1841	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1842	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1843	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1844	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1845	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1846	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1847	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1848	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1849	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1850	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1851	2r0000011111000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1852	offset: -7@ -1.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1853	RightCursor setShape:#xMarker.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1854
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1855	FourWayCursor :=
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1856	self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1857	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1858	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1859	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1860	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1861	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1862	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1863	2r0001001110010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1864	2r0011001110011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1865	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1866	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1867	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1868	2r0011001110011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1869	2r0001001110010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1870	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1871	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1872	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1873	2r0000000100000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1874	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1875	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1876	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1877	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1878	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1879	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1880	2r0010111111101000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1881	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1882	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1883	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1884	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1885	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1886	2r0010111111101000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1887	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1888	2r0000111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1889	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1890	2r0000001110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1891	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1892	offset: -7@ -7.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1893	FourWayCursor setShape:#fourWay.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1894
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1895	ThumbsUpCursor := (self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1896	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1897	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1898	2r0000000000100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1899	2r0000000001010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1900	2r0000000010010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1901	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1902	2r0000000100010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1903	2r0000000100010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1904	2r0001111100011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1905	2r0010000100000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1906	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1907	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1908	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1909	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1910	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1911	2r0011111000001110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1912	2r0001000000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1913	2r0001111111100000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1914	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1915	2r0000000000100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1916	2r0000000001110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1917	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1918	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1919	2r0000000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1920	2r0000000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1921	2r0001111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1922	2r0011111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1923	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1924	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1925	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1926	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1927	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1928	2r0011111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1929	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1930	2r0001111111100000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1931	offset: -8@ 0).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1932	ThumbsUpCursor setShape:#thumbsUp.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1933
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1934	CaretCursor := (self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1935	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1936	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1937	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1938	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1939	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1940	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1941	2r0000011111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1942	2r0000011001100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1943	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1944	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1945	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1946	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1947	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1948	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1949	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1950	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1951	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1952	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1953	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1954	2r0000000110000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1955	2r0000001111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1956	2r0000001111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1957	2r0000011111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1958	2r0000111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1959	2r0000111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1960	2r0000011001100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1961	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1962	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1963	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1964	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1965	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1966	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1967	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1968	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1969	2r0000000000000000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1970	offset: -8@0).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1971	CaretCursor setShape:#caret.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1972
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	1973	ThumbsDownCursor := (self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1974	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1975	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1976	2r0001111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1977	2r0001000000010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1978	2r0011111000001110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1979	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1980	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1981	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1982	2r0111111000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1983	2r0100000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1984	2r0010000100000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1985	2r0001111100011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1986	2r0000000100010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1987	2r0000000100010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1988	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1989	2r0000000010010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1990	2r0000000001010000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1991	2r0000000000100000)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1992
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1993	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1994	2r0001111111100000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1995	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1996	2r0011111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1997	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1998	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	1999	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2000	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2001	2r0111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2002	2r0011111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2003	2r0001111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2004	2r0000000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2005	2r0000000111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2006	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2007	2r0000000011110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2008	2r0000000001110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2009	2r0000000000100000)
3462 ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	2010	offset: -8@ -15 "-16").
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2011	ThumbsDownCursor setShape:#thumbsDown.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2012
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	2013	StopCursor := (self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2014	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2015	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2016	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2017	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2018	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2019	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2020	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2021	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2022	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2023	2r0100000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2024	2r0100000000000100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2025	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2026	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2027	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2028	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2029	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2030	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2031	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2032	)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2033	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2034	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2035	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2036	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2037	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2038	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2039	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2040	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2041	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2042	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2043	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2044	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2045	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2046	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2047	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2048	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2049	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2050	)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2051	offset: -8 @ -8).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2052	StopCursor setShape:#stop.
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2053
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	2054	EyeCursor := (self
3066 627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2055	extent: 16@16
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2056	sourceArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2057	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2058	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2059	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2060	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2061	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2062	2r0011000000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2063	2r0110001110001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2064	2r1100011111000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2065	2r1100011111000110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2066	2r0110001110001100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2067	2r0011000000011000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2068	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2069	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2070	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2071	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2072	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2073	)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2074	maskArray: #(
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2075	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2076	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2077	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2078	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2079	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2080	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2081	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2082	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2083	2r1111111111111110
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2084	2r0111111111111100
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2085	2r0011111111111000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2086	2r0001111111110000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2087	2r0000011111000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2088	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2089	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2090	2r0000000000000000
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2091	)
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2092	offset: -8 @ -8).
627c3ce4cb06 checkin from browser Claus Gittinger <cg@exept.de> parents: 3065 diff changeset	2093	EyeCursor setShape:#eye.
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2094
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	2095	ClosedEyeCursor := (self
3201 ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2096	extent: 16@16
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2097	sourceArray: #(
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2098	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2099	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2100	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2101	2r0000011111000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2102	2r0001111111110000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2103	2r0011111111111000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2104	2r0111111111111100
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2105	2r1111111111111110
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2106	2r1111111111111110
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2107	2r0111111111111100
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2108	2r0011111111111000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2109	2r0001111111110000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2110	2r0000011111000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2111	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2112	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2113	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2114	)
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2115	maskArray: #(
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2116	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2117	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2118	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2119	2r0000011111000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2120	2r0001111111110000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2121	2r0011111111111000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2122	2r0111111111111100
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2123	2r1111111111111110
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2124	2r1111111111111110
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2125	2r0111111111111100
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2126	2r0011111111111000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2127	2r0001111111110000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2128	2r0000011111000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2129	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2130	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2131	2r0000000000000000
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2132	)
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2133	offset: -8 @ -8).
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2134	ClosedEyeCursor setShape:#eyeClosed.
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2135
8092 4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2136	BulletCursor := (self
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2137	extent: 16@16
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2138	sourceArray: #(
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2139	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2140	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2141	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2142	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2143	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2144	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2145	2r0000001110000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2146	2r0000011111000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2147	2r0000011111000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2148	2r0000001110000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2149	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2150	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2151	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2152	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2153	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2154	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2155	)
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2156	maskArray: #(
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2157	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2158	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2159	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2160	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2161	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2162	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2163	2r0000001110000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2164	2r0000011111000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2165	2r0000011111000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2166	2r0000001110000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2167	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2168	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2169	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2170	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2171	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2172	2r0000000000000000
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2173	)
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2174	offset: -8 @ -8).
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2175	BulletCursor setShape:#bullet.
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2176
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2177	isWindows ifTrue:[
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2178	"/ want it white-with black boundary
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2179	bits := #[7 128 24 96 32 16 39 136 24 72 0 72 0 72 0 144 1 32 2 64 2 64 2 64 1 128 2 64 2 64 1 128].
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2180	mask := #[7 128 31 224 63 240 63 248 24 120 0 120 0 120 0 240 1 224 3 192 3 192 3 192 1 128 3 192 3 192 1 128].
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2181	] ifFalse:[
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2182	bits := #(
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2183	2r0000000000000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2184	2r0000000000000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2185	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2186	2r0000111111110000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2187	2r0000110000111000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2188	2r0000000000011000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2189	2r0000000000011000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2190	2r0000000000011000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2191	2r0000000000110000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2192	2r0000000001100000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2193	2r0000000110000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2194	2r0000000110000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2195	2r0000000000000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2196	2r0000000110000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2197	2r0000000110000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2198	2r0000000000000000).
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2199	mask := #(
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2200	2r0000000000000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2201	2r0000011111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2202	2r0000111111100000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2203	2r0001111111111000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2204	2r0001111111111100
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2205	2r0001111000111100
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2206	2r0000000000111100
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2207	2r0000000000111100
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2208	2r0000000001111000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2209	2r0000000011110000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2210	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2211	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2212	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2213	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2214	2r0000001111000000
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2215	2r0000001111000000).
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2216	].
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2217
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	2218	QuestionMarkCursor := (self
3085 83ceb5bf4f10 missing cursors: questionMark & crossHair Claus Gittinger <cg@exept.de> parents: 3071 diff changeset	2219	extent: 16@16
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2220	sourceArray:bits
9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	2221	maskArray:mask
3085 83ceb5bf4f10 missing cursors: questionMark & crossHair Claus Gittinger <cg@exept.de> parents: 3071 diff changeset	2222	offset: -8 @ -8).
83ceb5bf4f10 missing cursors: questionMark & crossHair Claus Gittinger <cg@exept.de> parents: 3071 diff changeset	2223	QuestionMarkCursor setShape:#questionMark.
83ceb5bf4f10 missing cursors: questionMark & crossHair Claus Gittinger <cg@exept.de> parents: 3071 diff changeset	2224
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2225	"/ if possible, preallocate them on the default display
3086 b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2226
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2227	"/ cg: no, do not do this here;
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2228	"/ defaultFG / defaultBG is not yet initialized.
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2229
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2230	"/ device notNil ifTrue:[
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2231	"/ FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2232	"/ LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2233	"/ RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2234	"/ XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2235	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2236	"/ OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2237	"/ CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2238	"/ TopRightCornerCursor notNil ifTrue:[TopRightCornerCursor := TopRightCornerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2239	"/ BottomLeftCornerCursor notNil ifTrue:[BottomLeftCornerCursor := BottomLeftCornerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2240	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2241	"/ LeftLimitCursor notNil ifTrue:[LeftLimitCursor := LeftLimitCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2242	"/ RightLimitCursor notNil ifTrue:[RightLimitCursor := RightLimitCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2243	"/ DownLimitCursor notNil ifTrue:[DownLimitCursor := DownLimitCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2244	"/ UpLimitCursor notNil ifTrue:[UpLimitCursor := UpLimitCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2245	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2246	"/ ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2247	"/ WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2248	"/ WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2249	"/ XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2250	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2251	"/ SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2252	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2253	"/ NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2254	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2255	"/ CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2256	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2257	"/ MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2258	"/ UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2259	"/ DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2260	"/ LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2261	"/ RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2262	"/ XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2263	"/ CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2264	"/
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2265	"/ ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2266	"/ ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2267	"/ StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2268	"/ EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2269	"/ QuestionMarkCursor notNil ifTrue:[QuestionMarkCursor := QuestionMarkCursor onDevice:device].
b1b3bfd40359 dont allocate device cursors in initNewCursors; Claus Gittinger <cg@exept.de> parents: 3085 diff changeset	2270	"/ ].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2271
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	2272	"
3462 ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	2273	HandCursor := nil.
7763 a78c16c0feaf #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7669 diff changeset	2274	self initializeNewCursors.
8092 4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2275
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2276	View new cursor:(Cursor eyeClosed); open
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2277	View new cursor:(Cursor eye); open
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2278	View new cursor:(Cursor bullet); open
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	2279	"
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	2280
8092 4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2281	"Modified: / 22-08-2017 / 22:53:51 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2282	! !
48194c26a46c Initial revision claus parents: diff changeset	2283
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2284	!Cursor class methodsFor:'instance creation'!
0 48194c26a46c Initial revision claus parents: diff changeset	2285
48194c26a46c Initial revision claus parents: diff changeset	2286	extent:extent fromArray:array offset:offset
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2287	"ST-80 compatibility
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2288	create a new bitmap cursor from bits in the array argument.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2289	Here, the offset argument defines the hotSpot, but is given
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2290	as the negative of the hotSpot coordinate within the cursor (sigh - ST80 compatibility)."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2291
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2292	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2293	extent:extent sourceArray:array maskArray:array offset:offset
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2294
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2295	"Modified: 22.10.1997 / 23:59:41 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2296	!
48194c26a46c Initial revision claus parents: diff changeset	2297
48194c26a46c Initial revision claus parents: diff changeset	2298	extent:extent sourceArray:sourceArray maskArray:maskArray offset:offset
48194c26a46c Initial revision claus parents: diff changeset	2299	"create a new bitmap cursor with mask from bits in sourceArray and
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2300	maskArray.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2301	The offset argument defines the hotSpot, but is given as the negative
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2302	of the hotSpots coordinate within the cursor (sigh - ST80 compatibility)"
0 48194c26a46c Initial revision claus parents: diff changeset	2303
48194c26a46c Initial revision claus parents: diff changeset	2304	\|sourceForm maskForm\|
48194c26a46c Initial revision claus parents: diff changeset	2305
48194c26a46c Initial revision claus parents: diff changeset	2306	sourceForm := Form extent:extent fromArray:sourceArray offset:offset.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2307	sourceArray ~~ maskArray ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2308	maskForm := Form extent:extent fromArray:maskArray offset:offset.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2309	] ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2310	maskForm := sourceForm
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2311	].
0 48194c26a46c Initial revision claus parents: diff changeset	2312	^ self sourceForm:sourceForm maskForm:maskForm hotSpot:(offset negated)
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2313
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2314	"Modified: 22.10.1997 / 23:58:36 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2315	!
48194c26a46c Initial revision claus parents: diff changeset	2316
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2317	fileCursorNamed:cursorName
5212 eeb30c6c7880 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 5085 diff changeset	2318	<resource: #obsolete>
6506 0a3773bbfaf7 class: Cursor Claus Gittinger <cg@exept.de> parents: 6207 diff changeset	2319	"return a cursor read from the file's 'cursorName_bits.bit' and
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2320	'cursorName_mask.bit' - return nil if either file does not exist.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2321	This method is going to be obsoleted in the future."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2322
3054 4268251e77a2 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	2323	\|cursorBits maskBits\|
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2324
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2325	self obsoleteMethodWarning.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2326
3099 15596fb4c65d * empty log message * Claus Gittinger <cg@exept.de> parents: 3086 diff changeset	2327	cursorBits := Smalltalk imageFromFileNamed:(cursorName , '_bits.bit') forClass:self.
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2328	cursorBits notNil ifTrue:[
3099 15596fb4c65d * empty log message * Claus Gittinger <cg@exept.de> parents: 3086 diff changeset	2329	maskBits := Smalltalk imageFromFileNamed:(cursorName , '_mask.bit') forClass:self.
3054 4268251e77a2 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	2330	maskBits notNil ifTrue:[
4268251e77a2 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	2331	^ self sourceForm:cursorBits maskForm:maskBits
4268251e77a2 try bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	2332	]
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2333	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2334	^ nil
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2335
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2336	"Modified: 23.10.1997 / 00:02:07 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2337	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2338
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2339	fromImage:anImage
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2340	"return a new cursor.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2341	Source- and (optional) mask-Bits are taken from anImage;
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2342	The cursors hotSpot is the center of the image."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2343
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2344	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2345	fromImage:anImage hotSpot:(anImage center)
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2346
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2347	"
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2348	\|i c\|
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2349
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2350	i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2351	c := Cursor fromImage:i.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2352	WindowGroup activeGroup
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2353	withCursor:c
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2354	do:[(Delay forSeconds:5)wait]
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2355	"
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2356
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2357	"Modified: 22.10.1997 / 23:55:01 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2358	!
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2359
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2360	fromImage:anImage hotSpot:aPoint
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2361	"return a new cursor.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2362	Source- and (optional) mask-Bits are taken from anImage;
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2363	The cursors hotSpot is given as an offset from the top-left."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2364
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2365	\|mask sourceForm maskForm\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2366
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2367	sourceForm := anImage asMonochromeFormOn:Screen current.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2368
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2369	mask := anImage mask.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2370	mask isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2371	maskForm := sourceForm
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2372	] ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2373	maskForm := mask asMonochromeFormOn:Screen current.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2374	].
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2375	^ self sourceForm:sourceForm
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2376	maskForm:maskForm
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2377	hotX:(aPoint x)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2378	hotY:(aPoint y)
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2379
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2380	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2381	\|i c\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2382
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2383	i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2384	c := Cursor fromImage:i hotSpot:(i center).
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2385	WindowGroup activeGroup
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2386	withCursor:c
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2387	do:[(Delay forSeconds:5)wait]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2388	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2389
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2390	"Modified: 22.10.1997 / 23:49:00 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2391	"Created: 22.10.1997 / 23:51:32 / cg"
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2392	!
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	2393
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2394	imageArray:imageBits maskArray:maskBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2395	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2396
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2397	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2398	imageArray:imageBits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2399	maskArray:maskBits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2400	hotSpot:8@8
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2401
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2402	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2403	\|cursor\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2404
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2405	cursor := Cursor
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2406	imageArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2407	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2408	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2409	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2410	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2411	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2412	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2413	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2414	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2415	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2416	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2417	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2418	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2419	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2420	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2421	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2422	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2423	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2424	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2425	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2426	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2427	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2428	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2429	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2430	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2431	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2432	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2433	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2434	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2435	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2436	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2437	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2438	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2439	2r0000001110000000).
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2440
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2441	cursor showWhile:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2442	(Delay forSeconds:10) wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2443	]
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2444	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2445
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2446	"Modified: 23.10.1997 / 00:06:09 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2447	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2448
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2449	imageArray:imageBits maskArray:maskBits hotSpot:hot
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2450	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2451
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2452	^ self
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2453	extent:16@16
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2454	sourceArray:imageBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2455	maskArray:maskBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2456	offset:hot negated
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2457
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2458	"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2459	\|cursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2460
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2461	cursor := Cursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2462	imageArray: #(
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2463	2r0000000000000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2464	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2465	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2466	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2467	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2468	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2469	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2470	2r0111111111111110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2471	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2472	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2473	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2474	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2475	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2476	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2477	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2478	2r0000000000000000)
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2479	maskArray: #(
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2480	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2481	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2482	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2483	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2484	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2485	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2486	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2487	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2488	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2489	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2490	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2491	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2492	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2493	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2494	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2495	2r0000001110000000)
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2496	hotSpot: 8@8.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2497
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2498	WindowGroup activeGroup
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2499	withCursor:cursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2500	do:[(Delay forSeconds:10)wait]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2501	"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2502	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2503
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2504	imageArray:imageBits maskArray:maskBits hotSpot:hot name:aString
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2505	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2506
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2507	"name is ignored ..."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2508
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2509	^ self imageArray:imageBits maskArray:maskBits hotSpot:hot
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2510	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2511
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2512	shape:aShape
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2513	"return one of the standard cursors.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2514	Each display may offer different shapes - see for example XWorkstation
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2515	for details (however a basic minimum set should be supported by all)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2516
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2517	^ self basicNew setShape:aShape.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2518
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2519	"/ \|newCursor\|
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2520	"/
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2521	"/ "first look if not already known"
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2522	"/
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2523	"/ Lobby isNil ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2524	"/ self initialize
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2525	"/ ].
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2526	"/ Lobby do:[:aCursor \|
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2527	"/ (aCursor shape == aShape) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2528	"/ ^ aCursor
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2529	"/ ]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2530	"/ ].
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2531	"/ newCursor := self basicNew setShape:aShape.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2532	"/ Lobby register:newCursor.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2533	"/ ^ newCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2534	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2535
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2536	shape:aShape on:aDevice
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2537	"return one of the standard cursors already associated to aDevice.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2538	This is the same as '(Cursor shape:aShape) on:aDevice' but somwehat faster."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2539
4508 00cc9b6d2f1f * empty log message * Claus Gittinger <cg@exept.de> parents: 4403 diff changeset	2540	\|oldCursor\|
00cc9b6d2f1f * empty log message * Claus Gittinger <cg@exept.de> parents: 4403 diff changeset	2541
2999 5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	2542	aDevice isNil ifTrue:[
5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	2543	^ self basicNew setShape:aShape
5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	2544	].
5e9272beef1b eliminated refs to Display - must use Screen current Stefan Vogel <sv@exept.de> parents: 2980 diff changeset	2545
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2546	"first look if not already known"
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2547
4508 00cc9b6d2f1f * empty log message * Claus Gittinger <cg@exept.de> parents: 4403 diff changeset	2548	oldCursor := aDevice deviceCursors detect:[:aCursor \| aCursor shape == aShape] ifNone:nil.
00cc9b6d2f1f * empty log message * Claus Gittinger <cg@exept.de> parents: 4403 diff changeset	2549	oldCursor notNil ifTrue:[ ^ oldCursor ].
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2550
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	2551	^ (self basicNew setShape:aShape) allocateOnDevice:aDevice
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2552	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2553
0 48194c26a46c Initial revision claus parents: diff changeset	2554	sourceForm:aForm
48194c26a46c Initial revision claus parents: diff changeset	2555	"return a new cursor.
48194c26a46c Initial revision claus parents: diff changeset	2556	Source- and mask-Bits are taken from aForm; hotSpot is center"
48194c26a46c Initial revision claus parents: diff changeset	2557
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2558	^ self sourceForm:aForm maskForm:aForm
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2559
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2560	"Modified: 23.10.1997 / 00:08:37 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2561	!
48194c26a46c Initial revision claus parents: diff changeset	2562
48194c26a46c Initial revision claus parents: diff changeset	2563	sourceForm:sourceForm maskForm:maskForm
48194c26a46c Initial revision claus parents: diff changeset	2564	"return a new cursor. hotSpot is center"
48194c26a46c Initial revision claus parents: diff changeset	2565
48194c26a46c Initial revision claus parents: diff changeset	2566	^ self sourceForm:sourceForm
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2567	maskForm:maskForm
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2568	hotX:(sourceForm width // 2)
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2569	hotY:(sourceForm height // 2)
0 48194c26a46c Initial revision claus parents: diff changeset	2570	!
48194c26a46c Initial revision claus parents: diff changeset	2571
48194c26a46c Initial revision claus parents: diff changeset	2572	sourceForm:sourceForm maskForm:maskForm hotSpot:aPoint
48194c26a46c Initial revision claus parents: diff changeset	2573	"return a new cursor"
48194c26a46c Initial revision claus parents: diff changeset	2574
48194c26a46c Initial revision claus parents: diff changeset	2575	^ self sourceForm:sourceForm
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2576	maskForm:maskForm
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2577	hotX:(aPoint x)
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2578	hotY:(aPoint y)
0 48194c26a46c Initial revision claus parents: diff changeset	2579	!
48194c26a46c Initial revision claus parents: diff changeset	2580
48194c26a46c Initial revision claus parents: diff changeset	2581	sourceForm:sourceForm maskForm:maskForm hotX:hotX hotY:hotY
48194c26a46c Initial revision claus parents: diff changeset	2582	"return a new cursor"
48194c26a46c Initial revision claus parents: diff changeset	2583
35 f1a194c18429 * empty log message * claus parents: 23 diff changeset	2584	(sourceForm isNil or:[maskForm isNil]) ifTrue:[^ nil].
f1a194c18429 * empty log message * claus parents: 23 diff changeset	2585
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2586	^ self basicNew
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2587	setSourceForm:sourceForm
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2588	maskForm:maskForm
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2589	hotX:hotX
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	2590	hotY:hotY.
1224 2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	2591	! !
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	2592
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2593	!Cursor class methodsFor:'default access'!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2594
3282 8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2595	defaultBgColor
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2596	"return the default bg color used for cursors"
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2597
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2598	^ DefaultBgColor
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2599
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2600	!
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2601
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2602	defaultFgColor
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2603	"return the default fg color used for cursors"
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2604
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2605	^ DefaultFgColor
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2606
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2607	!
8abfb786c4e7 checkin from browser Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	2608
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2609	defaultFgColor:fgColor defaultBgColor:bgColor
3284 2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2610	"set the default colors used for new cursors"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2611
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2612	DefaultFgColor := fgColor.
3284 2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2613	DefaultBgColor := bgColor.
2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2614
2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2615	"
2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2616	Cursor defaultFgColor:(Color red) defaultBgColor:(Color white)
2aafcca830bd checkin from browser Claus Gittinger <cg@exept.de> parents: 3282 diff changeset	2617	"
0 48194c26a46c Initial revision claus parents: diff changeset	2618	! !
48194c26a46c Initial revision claus parents: diff changeset	2619
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2620	!Cursor class methodsFor:'standard cursors'!
0 48194c26a46c Initial revision claus parents: diff changeset	2621
48194c26a46c Initial revision claus parents: diff changeset	2622	arrow
48194c26a46c Initial revision claus parents: diff changeset	2623	"return an arrow (up-left-arrow) cursor"
48194c26a46c Initial revision claus parents: diff changeset	2624
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2625	^ self upLeftArrow
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2626
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2627	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2628	Cursor arrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2629	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2630	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2631
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2632	"Modified: 23.10.1997 / 00:28:28 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2633	!
48194c26a46c Initial revision claus parents: diff changeset	2634
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2635	blank
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2636	"Answer the instance of me that is an invisible cursor."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2637
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2638	^ BlankCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2639
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2640	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2641	Cursor blank
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2642	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2643	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2644
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2645	"Modified: 23.10.1997 / 00:27:39 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2646	!
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2647
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2648	bottomLeft
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2649	"return a bottom-left corner cursor"
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2650
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2651	^ BottomLeftCornerCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2652
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2653	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2654	Cursor bottomLeft
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2655	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2656	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2657
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2658	"Modified: 23.10.1997 / 00:27:12 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2659	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2660
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2661	bottomRight
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2662	"return a bottom-right corner cursor"
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2663
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2664	^ self corner
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2665
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2666	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2667	Cursor bottomRight
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2668	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2669	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2670
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2671	"Modified: 23.10.1997 / 00:27:02 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2672	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2673
8092 4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2674	bullet
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2675	"return a bullet cursor"
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2676
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2677	^ BulletCursor
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2678
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2679	"
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2680	Cursor bullet showWhile:[ Delay waitForSeconds:3 ]
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2681
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2682	View new cursor:(Cursor bullet); open
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2683	"
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2684
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2685	"Created: / 22-08-2017 / 22:51:36 / cg"
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2686	!
4eec95c106a1 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7763 diff changeset	2687
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2688	caret
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2689	"return a caret cursor"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2690
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2691	^ CaretCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2692
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2693	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2694	Cursor caret
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2695	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2696	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2697
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2698	"Modified: 23.10.1997 / 00:27:08 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2699	!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2700
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2701	corner
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2702	"return a corner (bottom-right) cursor"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2703
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2704	^ CornerCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2705
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2706	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2707	Cursor corner
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2708	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2709	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2710
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2711	"Modified: 23.10.1997 / 00:26:53 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2712	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2713
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2714	cross
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2715	"return a cross cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2716
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	2717	^ CrossCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2718
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2719	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2720	Cursor cross
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	2721	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2722	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2723
2615 bb4e7db46a6f additional cursor: #cross (for win32) Claus Gittinger <cg@exept.de> parents: 2606 diff changeset	2724	"Modified: / 29.4.1999 / 21:28:42 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	2725	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	2726
0 48194c26a46c Initial revision claus parents: diff changeset	2727	crossHair
48194c26a46c Initial revision claus parents: diff changeset	2728	"return a crossHair cursor"
48194c26a46c Initial revision claus parents: diff changeset	2729
48194c26a46c Initial revision claus parents: diff changeset	2730	^ CrossHairCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2731
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2732	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2733	Cursor crossHair
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2734	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2735	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2736
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2737	"Modified: 23.10.1997 / 00:26:42 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2738	!
48194c26a46c Initial revision claus parents: diff changeset	2739
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2740	document
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2741	"return a document cursor (dragging a document)"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2742
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2743	^ DocumentCursor
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2744
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2745	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2746	Cursor document
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2747	showWhile:[ Delay waitForSeconds:3 ]
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2748	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2749
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2750	"Modified: / 23.10.1997 / 00:27:08 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2751	"Created: / 19.5.1998 / 17:17:53 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2752	!
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2753
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2754	down
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2755	"Answer the instance of me that is the shape of a down-arrow."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2756
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2757	^ DownCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2758
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2759	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2760	Cursor down
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2761	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2762	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2763
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2764	"Modified: 23.10.1997 / 00:26:34 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2765	!
0 48194c26a46c Initial revision claus parents: diff changeset	2766
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2767	downLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2768	"return a down-arrow-to-limit cursor"
0 48194c26a46c Initial revision claus parents: diff changeset	2769
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2770	^ DownLimitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2771
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2772	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2773	Cursor downLimitArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2774	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2775	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2776
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2777	"Modified: 23.10.1997 / 00:26:29 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	2778	!
48194c26a46c Initial revision claus parents: diff changeset	2779
48194c26a46c Initial revision claus parents: diff changeset	2780	execute
157 891eff44c2e7 . claus parents: 151 diff changeset	2781	"return a execute cursor - (the default here is a wait-cursor)"
0 48194c26a46c Initial revision claus parents: diff changeset	2782
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2783	^ XeqCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2784
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2785	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2786	Cursor execute
2482 7e1e4eaa5ce6 fallback for non-existing execute cursorShape is the wait cursorShape. Claus Gittinger <cg@exept.de> parents: 2474 diff changeset	2787	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2788	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2789
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2790	"Modified: 23.10.1997 / 00:26:19 / cg"
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2791	!
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2792
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2793	eye
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2794	"return an eye cursor"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2795
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2796	^ EyeCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2797
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2798	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2799	Cursor eye
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2800	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2801	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2802
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2803	"Modified: 23.10.1997 / 00:26:06 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2804	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2805
3201 ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2806	eyeClosed
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2807	"return an eye cursor"
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2808
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2809	^ ClosedEyeCursor
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2810
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2811	"
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2812	Cursor eyeClosed
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2813	showWhile:[ Delay waitForSeconds:3 ]
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2814	"
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2815
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2816	"Modified: 23.10.1997 / 00:26:06 / cg"
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2817	!
ec73f31280be checkin from browser Claus Gittinger <cg@exept.de> parents: 3115 diff changeset	2818
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2819	folder
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2820	"return a folder cursor (dragging a folder)"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2821
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2822	^ FolderCursor
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2823
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2824	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2825	Cursor folder
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2826	showWhile:[ Delay waitForSeconds:3 ]
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2827	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2828
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2829	"Modified: / 23.10.1997 / 00:27:08 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2830	"Created: / 19.5.1998 / 17:18:17 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2831	!
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2832
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2833	fourWay
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2834	"return a four-way arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2835
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2836	^ FourWayCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2837
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2838	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2839	Cursor fourWay
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2840	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2841	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2842
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2843	"Modified: 23.10.1997 / 00:25:34 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2844	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2845
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2846	hand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2847	"return a hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2848
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2849	^ HandCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2850
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2851	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2852	Cursor hand
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2853	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2854	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2855
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2856	"Modified: 23.10.1997 / 00:25:07 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2857	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2858
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2859	left
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2860	"Answer the instance of me that is the shape of an arrow facing to the left."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2861
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2862	^ LeftCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2863
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2864	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2865	Cursor left
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2866	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2867	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2868
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2869	"Modified: 23.10.1997 / 00:24:51 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2870	!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2871
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2872	leftHand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2873	"return a left-hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2874
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2875	^ LeftHandCursor ? HandCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2876
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2877	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2878	Cursor leftHand
2626 dae14cd01925 fallBack for leftHandCursor Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	2879	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2880	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2881
2626 dae14cd01925 fallBack for leftHandCursor Claus Gittinger <cg@exept.de> parents: 2618 diff changeset	2882	"Modified: / 3.5.1999 / 18:54:52 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2883	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2884
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2885	leftLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2886	"return a left-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2887
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2888	^ LeftLimitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2889
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2890	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2891	Cursor leftLimitArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2892	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2893	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2894
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2895	"Modified: 23.10.1997 / 00:24:14 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2896	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2897
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2898	leftRightArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2899	"return a left-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2900
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2901	^ LeftRightArrowCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2902
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2903	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2904	Cursor leftRightArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2905	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2906	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2907
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2908	"Modified: 23.10.1997 / 00:23:59 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2909	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2910
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2911	marker
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2912	"Answer the instance of me that is the shape of a horizontal arrow."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2913
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2914	^ MarkerCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2915
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2916	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2917	Cursor marker
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2918	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2919	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2920
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2921	"Modified: 23.10.1997 / 00:23:33 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2922	!
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2923
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2924	normal
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2925	"return the normal cursor; an arrow.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2926	for ST-80 compatibility"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2927
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2928	^ NormalCursor
1568 da93fbf75a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 1564 diff changeset	2929
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2930
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2931	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2932	Cursor normal
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2933	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2934	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2935
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2936	"Modified: 23.10.1997 / 00:23:12 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2937	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2938
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2939	origin
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2940	"return an origin cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2941
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2942	^ OriginCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2943
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2944	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2945	Cursor origin
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2946	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2947	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2948
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2949	"Modified: 23.10.1997 / 00:22:58 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2950	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2951
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2952	questionMark
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2953	"return a question-mark cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2954
2616 9e03b6a1e2d0 questionMarkCursor; fixed CrossCursor. Claus Gittinger <cg@exept.de> parents: 2615 diff changeset	2955	^ QuestionMarkCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2956
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2957	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2958	Cursor questionMark
2616 9e03b6a1e2d0 questionMarkCursor; fixed CrossCursor. Claus Gittinger <cg@exept.de> parents: 2615 diff changeset	2959	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2960	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2961
2618 a03aee8c0b4b use eye as replacement for questionmark Claus Gittinger <cg@exept.de> parents: 2616 diff changeset	2962	"Modified: / 30.4.1999 / 10:14:52 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2963	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2964
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2965	read
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2966	"return a reading-file cursor (the default here is a wait-cursor)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2967
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2968	^ ReadCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2969
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2970	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2971	Cursor read
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2972	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2973	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2974
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2975	"Modified: 23.10.1997 / 00:22:23 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2976	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2977
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2978	right
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2979	"Answer the instance of me that is the shape of an arrow facing to the right."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2980
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2981	^ RightCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2982
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2983	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2984	Cursor right
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2985	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2986	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2987
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2988	"Modified: 23.10.1997 / 00:22:05 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2989	!
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2990
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2991	rightLimitArrow
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2992	"return a right-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2993
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2994	^ RightLimitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2995
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2996
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2997	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2998	Cursor rightLimitArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	2999	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3000	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3001
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3002	"Modified: 23.10.1997 / 00:15:12 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3003	"Created: 23.10.1997 / 00:21:21 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3004	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3005
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3006	stop
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3007	"return a stop cursor (the default here is a wait-cursor)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3008
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3009	^ StopCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3010
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3011	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3012	Cursor stop
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3013	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3014	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3015
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3016	"Modified: 23.10.1997 / 00:20:52 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3017	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3018
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3019	text
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3020	"return a text-cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3021
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3022	^ NormalCursor
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3023	"/ ^ TextCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3024
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3025	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3026	Cursor text
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3027	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3028	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3029
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3030	"Modified: 23.10.1997 / 00:20:37 / cg"
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	3031	!
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	3032
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	3033	thumbsDown
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	3034	"return a hand cursor - ST-80 compatibility"
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	3035
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3036	^ ThumbsDownCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3037
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3038	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3039	Cursor thumbsDown
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3040	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3041	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3042
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3043	"Modified: 23.10.1997 / 00:20:20 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3044	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3045
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3046	thumbsUp
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3047	"return a hand cursor - ST-80 compatibility"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3048
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3049	^ ThumbsUpCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3050
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3051	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3052	Cursor thumbsUp
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3053	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3054	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3055
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3056	"Modified: 23.10.1997 / 00:20:04 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3057	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3058
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3059	topLeft
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3060	"return a top-left corner cursor"
0 48194c26a46c Initial revision claus parents: diff changeset	3061
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3062	^ self origin
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3063
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3064	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3065	Cursor topLeft
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	3066	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3067	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3068
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3069	"Modified: 23.10.1997 / 00:19:50 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3070	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3071
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3072	topRight
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3073	"return a top-right corner cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3074
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3075	^ TopRightCornerCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3076
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3077	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3078	Cursor topRight
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3079	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3080	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3081
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3082	"Modified: 23.10.1997 / 00:19:33 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3083	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3084
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3085	up
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3086	"Answer the instance of me that is the shape of an up-arrow."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3087
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3088	^ UpCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3089
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3090	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3091	Cursor up
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	3092	showWhile:[ Delay waitForSeconds:5 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3093	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3094
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3095	"Modified: 23.10.1997 / 00:19:14 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3096	!
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3097
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3098	upDownArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3099	"return an up-down-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3100
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3101	^ UpDownArrowCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3102
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3103	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3104	Cursor upDownArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3105	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3106	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3107
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3108	"Modified: 23.10.1997 / 00:18:53 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3109	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3111	upLeftArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3112	"return an up-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3113
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3114	^ NormalCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3115
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3116	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3117	Cursor upLeftArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3118	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3119	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3120
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3121	"Modified: 23.10.1997 / 00:18:37 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3122	!
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3123
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3124	upLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3125	"return an up-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3126
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3127	^ UpLimitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3128
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3129	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3130	Cursor upLimitArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3131	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3132	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3133
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3134	"Modified: 23.10.1997 / 00:18:19 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3135	!
0 48194c26a46c Initial revision claus parents: diff changeset	3136
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3137	upRightArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3138	"return an up-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3139
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3140	^ NormalCursor
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3141	"/ ^ UpRightArrowCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3142
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3143	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3144	Cursor upRightArrow
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3145	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3146	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3147
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3148	"Modified: 23.10.1997 / 00:18:03 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3149	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3150
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3151	upRightHand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3152	"return an up-right-hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3153
2063 1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	3154	^ UpRightHandCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3155
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3156	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3157	Cursor upRightHand
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3158	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3159	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3160
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3161	"Modified: 23.10.1997 / 00:17:46 / cg"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3162	!
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3163
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3164	wait
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3165	"return a wait cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3166
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3167	^ WaitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3168
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3169	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3170	Cursor wait
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3171	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3172	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3173
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3174	"Modified: 23.10.1997 / 00:17:32 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3175	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3176
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3177	write
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3178	"return a writing-file cursor (the default here is a wait-cursor)"
0 48194c26a46c Initial revision claus parents: diff changeset	3179
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3180	^ WriteCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3181
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3182	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3183	Cursor write
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3184	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3185	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3186
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3187	"Modified: 23.10.1997 / 00:17:22 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3188	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3189
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3190	xMarker
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3191	"Answer the instance of me that is displayed when thumb-scrolling on the x-axis."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3192
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3193	^ XMarkerCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3194
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3195	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3196	Cursor xMarker
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	3197	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3198	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3199
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3200	"Modified: 23.10.1997 / 00:16:44 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	3201	! !
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3202
5085 7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3203	!Cursor class methodsFor:'styles'!
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3204
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3205	disableThumbsCursors
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3206
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3207	ThumbsUpCursor := NormalCursor.
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3208	ThumbsDownCursor := NormalCursor.
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3209
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3210	"
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3211	self initializeNewCursors.
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3212	self disableThumbsCursors.
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3213	"
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3214	! !
7b63e9809c64 disableThumbsCursors fm parents: 4518 diff changeset	3215
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3216	!Cursor methodsFor:'ST-80 displaying'!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3217
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3218	displayOn:aGC at:origin clippingBox:aRectangle rule:aRule mask:aMask
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3219	"ST-80 compatibility;
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3220	limited functionality: can only display bitmap cursors (yet)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3221
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3222	sourceForm notNil ifTrue:[
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3223	sourceForm displayOn:aGC at:origin clippingBox:aRectangle
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3224	rule:aRule mask:aMask
0 48194c26a46c Initial revision claus parents: diff changeset	3225	]
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3226	!
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3227
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3228	show
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3229	"ST-80 mimicri: change cursors in active groups views to the receiver."
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3230
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3231	\|wg\|
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3232
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3233	(wg := WindowGroup activeGroup) notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	3234	wg showCursor:self
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3235	]
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3236
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3237	"Modified: 13.1.1997 / 20:10:01 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3238	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3239
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3240	showIn:aView
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3241	"ST-80 mimicri: install the receiver as aViews cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3242
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3243	aView cursor:self
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3244	!
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3245
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3246	showIn:aView while:aBlock
7353 6a68e2c8ba60 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7205 diff changeset	3247	"ST-80 mimicri: change aView's cursors to the receiver, while evaluationg aBlock.
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3248	Return the value as returned by aBlock."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3249
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3250	\|savedCursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3251
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3252	savedCursor := aView cursor.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3253	aView cursor:self.
3607 62e5a818d378 #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3462 diff changeset	3254	^ aBlock ensure:[aView cursor:savedCursor]
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3255	!
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3256
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3257	showWhile:aBlock
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3258	"ST-80 mimicri: change all views cursors to the receiver.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3259	Return the value as returned by aBlock."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3260
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3261	\|wg\|
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3262
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	3263	(wg := WindowGroup activeGroup) notNil ifTrue:[
2372 e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	3264	^ wg withCursor:self do:aBlock
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	3265	].
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	3266	^ aBlock value
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	3267
e84fd06f8d2d added example showing all standard cursors Claus Gittinger <cg@exept.de> parents: 2370 diff changeset	3268	"Modified: / 28.9.1998 / 12:56:59 / cg"
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3269	! !
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3270
0 48194c26a46c Initial revision claus parents: diff changeset	3271	!Cursor methodsFor:'accessing'!
48194c26a46c Initial revision claus parents: diff changeset	3272
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3273	device
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3274	"return the device I am associated with"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3275
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3276	^ device
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3277	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3278
3462 ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	3279	extent
ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	3280	sourceForm notNil ifTrue:[^ sourceForm extent].
ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	3281	^ 16@16
ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	3282	!
ede5f10f87eb checkin from browser Claus Gittinger <cg@exept.de> parents: 3428 diff changeset	3283
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3284	foreground:fgColor background:bgColor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3285	"set the cursor colors"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3286
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3287	device colorCursor:cursorId foreground:fgColor background:bgColor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3288	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3289
733 131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3290	graphicsDevice
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3291	"same as #device, for ST-80 compatibility naming.
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3292	Return the device I am associated with."
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3293
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3294	^ device
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3295
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3296	"Created: 28.5.1996 / 18:39:01 / cg"
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3297	!
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3298
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3299	hotX
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3300	"return the hotspots x-coordinate of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3301
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3302	^ hotX
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3303	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3304
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3305	hotY
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3306	"return the hotspots y-coordinate of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3307
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3308	^ hotY
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3309	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3310
0 48194c26a46c Initial revision claus parents: diff changeset	3311	id
48194c26a46c Initial revision claus parents: diff changeset	3312	"return the cursors deviceId"
48194c26a46c Initial revision claus parents: diff changeset	3313
48194c26a46c Initial revision claus parents: diff changeset	3314	^ cursorId
48194c26a46c Initial revision claus parents: diff changeset	3315	!
48194c26a46c Initial revision claus parents: diff changeset	3316
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3317	maskForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3318	"return the mask-form of the receiver"
0 48194c26a46c Initial revision claus parents: diff changeset	3319
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3320	^ maskForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3321	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3322
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3323	maskForm:aForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3324	"set the mask-form of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3325
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3326	maskForm := aForm
0 48194c26a46c Initial revision claus parents: diff changeset	3327	!
48194c26a46c Initial revision claus parents: diff changeset	3328
48194c26a46c Initial revision claus parents: diff changeset	3329	shape
48194c26a46c Initial revision claus parents: diff changeset	3330	"return the shape"
48194c26a46c Initial revision claus parents: diff changeset	3331
48194c26a46c Initial revision claus parents: diff changeset	3332	^ shape
48194c26a46c Initial revision claus parents: diff changeset	3333	!
48194c26a46c Initial revision claus parents: diff changeset	3334
48194c26a46c Initial revision claus parents: diff changeset	3335	sourceForm
48194c26a46c Initial revision claus parents: diff changeset	3336	"return the source-form of the receiver"
48194c26a46c Initial revision claus parents: diff changeset	3337
48194c26a46c Initial revision claus parents: diff changeset	3338	^ sourceForm
48194c26a46c Initial revision claus parents: diff changeset	3339	!
48194c26a46c Initial revision claus parents: diff changeset	3340
48194c26a46c Initial revision claus parents: diff changeset	3341	sourceForm:aForm
48194c26a46c Initial revision claus parents: diff changeset	3342	"set the source-form of the receiver"
48194c26a46c Initial revision claus parents: diff changeset	3343
48194c26a46c Initial revision claus parents: diff changeset	3344	sourceForm := aForm
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3345	! !
0 48194c26a46c Initial revision claus parents: diff changeset	3346
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3347	!Cursor methodsFor:'copying'!
0 48194c26a46c Initial revision claus parents: diff changeset	3348
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3349	postCopy
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3350	sourceForm := sourceForm copy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3351	maskForm := maskForm copy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3352	device := cursorId := nil
4403 3342601d3fed +postDeepCopy Claus Gittinger <cg@exept.de> parents: 4216 diff changeset	3353	!
3342601d3fed +postDeepCopy Claus Gittinger <cg@exept.de> parents: 4216 diff changeset	3354
3342601d3fed +postDeepCopy Claus Gittinger <cg@exept.de> parents: 4216 diff changeset	3355	postDeepCopy
3342601d3fed +postDeepCopy Claus Gittinger <cg@exept.de> parents: 4216 diff changeset	3356	device := cursorId := nil
0 48194c26a46c Initial revision claus parents: diff changeset	3357	! !
48194c26a46c Initial revision claus parents: diff changeset	3358
48194c26a46c Initial revision claus parents: diff changeset	3359	!Cursor methodsFor:'creating a device cursor'!
48194c26a46c Initial revision claus parents: diff changeset	3360
48194c26a46c Initial revision claus parents: diff changeset	3361	on:aDevice
48194c26a46c Initial revision claus parents: diff changeset	3362	"create a new Cursor representing the same cursor as
48194c26a46c Initial revision claus parents: diff changeset	3363	myself on aDevice; if one already exists, return the one"
48194c26a46c Initial revision claus parents: diff changeset	3364
3623 16665d9b7263 #on: -> #onDevice Claus Gittinger <cg@exept.de> parents: 3611 diff changeset	3365	"/ send out a warning: #on: is typically used to create views
1741 b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	3366	"/ operating on a model.
b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	3367	"/ Please use #onDevice: to avoid confusion.
b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	3368
3428 188cd692f871 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3284 diff changeset	3369	<resource:#obsolete>
188cd692f871 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3284 diff changeset	3370
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3371	self obsoleteMethodWarning:'use #onDevice:'.
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3372	^ self onDevice:aDevice
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3373
1741 b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	3374	"Modified: 5.6.1997 / 21:04:35 / cg"
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3375	!
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3376
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3377	onDevice:aDevice
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3378	"create a new Cursor representing the same cursor as
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3379	myself on aDevice; if one already exists, return the one"
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3380
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3381	\|newCursor\|
0 48194c26a46c Initial revision claus parents: diff changeset	3382
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3383	"if I am already assigned to that device ..."
0 48194c26a46c Initial revision claus parents: diff changeset	3384	(device == aDevice) ifTrue:[^ self].
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3385
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3386	aDevice isNil ifTrue:[
2980 409e9547a45c ignore nil device in #onDevice: Claus Gittinger <cg@exept.de> parents: 2845 diff changeset	3387	^ self
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3388	].
0 48194c26a46c Initial revision claus parents: diff changeset	3389
48194c26a46c Initial revision claus parents: diff changeset	3390	"first look if not already there"
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3391	aDevice deviceCursors do:[:aCursor \|
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3392	shape notNil ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3393	(aCursor shape == shape) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3394	^ aCursor
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3395	]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3396	] ifFalse:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3397	(aCursor sourceForm == sourceForm) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3398	(aCursor maskForm == maskForm) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3399	(aCursor hotX == hotX) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3400	(aCursor hotY == hotY) ifTrue:[
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3401	^ aCursor
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3402	]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3403	]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3404	]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3405	]
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3406	]
0 48194c26a46c Initial revision claus parents: diff changeset	3407	].
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3408
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3409	device isNil ifTrue:[
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3410	newCursor := self
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3411	] ifFalse:[
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3412	newCursor := self shallowCopy.
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3413	newCursor setDevice:nil id:nil.
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3414	].
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3415	^ newCursor allocateOnDevice:aDevice
927 c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	3416
c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	3417	"Modified: 5.7.1996 / 17:58:00 / cg"
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3418	"Created: 28.3.1997 / 13:46:38 / cg"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3419	! !
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3420
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3421	!Cursor methodsFor:'instance release'!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3422
3611 8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3423	executor
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3424	"redefined to return a lightweight copy
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3425	- all we need is the device handle"
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3426
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3427	^ self class basicNew setDevice:device id:cursorId
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3428
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3429	"Modified: 20.4.1996 / 23:23:19 / cg"
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3430	!
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3431
8b4384c9e660 Use #finalize instead of #disposed Stefan Vogel <sv@exept.de> parents: 3607 diff changeset	3432	finalize
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	3433	"some Cursor has been collected - tell it to the display"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3434
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3435	\|id dev\|
2096 f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	3436
f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	3437	(id := cursorId) notNil ifTrue:[
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3438	(dev := device) notNil ifTrue:[
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3439	cursorId := device := nil.
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3440	dev destroyCursor:id.
4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3441	]
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3442	]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3443	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3444
2845 0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	3445	releaseFromDevice
0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	3446	"I am no longer available on the device"
0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	3447
4216 0a6a150d2c03 Release also the cursors forms when releasing a cursor. Stefan Vogel <sv@exept.de> parents: 3877 diff changeset	3448	sourceForm notNil ifTrue:[sourceForm releaseFromDevice].
0a6a150d2c03 Release also the cursors forms when releasing a cursor. Stefan Vogel <sv@exept.de> parents: 3877 diff changeset	3449	maskForm notNil ifTrue:[maskForm releaseFromDevice].
2845 0794fef6db4a checkin from browser Claus Gittinger <cg@exept.de> parents: 2844 diff changeset	3450	cursorId := device := nil.
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3451	! !
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3452
4518 b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3453	!Cursor methodsFor:'printing'!
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3454
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3455	printOn:aStream
5265 fb533d955844 comment Claus Gittinger <cg@exept.de> parents: 5264 diff changeset	3456	"append a printed representation to aStream"
fb533d955844 comment Claus Gittinger <cg@exept.de> parents: 5264 diff changeset	3457
4518 b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3458	self className printOn:aStream.
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3459	aStream nextPut:$(.
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3460	shape printOn:aStream.
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3461	aStream nextPut:$).
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3462	! !
b6eec5a4632b pretty #printOn: Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	3463
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3464	!Cursor methodsFor:'private'!
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3465
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3466	allocateOnDevice:aDevice
2844 4cdd25ab106e checkin from browser Claus Gittinger <cg@exept.de> parents: 2841 diff changeset	3467	"allocate a device-cursor-resource for me on aDevice"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3468
3743 12d5921402b3 Use #error: insead of #halt. Stefan Vogel <sv@exept.de> parents: 3643 diff changeset	3469	\|id sF mF w h deviceSf deviceMf\|
0 48194c26a46c Initial revision claus parents: diff changeset	3470
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3471	device notNil ifTrue:[
4216 0a6a150d2c03 Release also the cursors forms when releasing a cursor. Stefan Vogel <sv@exept.de> parents: 3877 diff changeset	3472	self error:'cursor is already assigned to a device' mayProceed:true.
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3473	device unregisterCursor:self.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3474	device := cursorId := nil.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3475	].
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3476
0 48194c26a46c Initial revision claus parents: diff changeset	3477	"ask that device for the cursor"
48194c26a46c Initial revision claus parents: diff changeset	3478	shape notNil ifTrue:[
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3479	id := aDevice createCursorShape:shape.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3480	id isNil ifTrue:[
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3481	sourceForm isNil ifTrue:[
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3482	"/ no fallBack form provided ...
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3483	'Cursor [warning]: no cursor with shape:' errorPrint.
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3484	shape errorPrint. ' on device ' errorPrint. aDevice errorPrintCR.
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3485	^ self
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3486	]
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3487	].
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3488	].
1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3489	id isNil ifTrue:[
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3490	aDevice needDeviceFormsForCursor ifTrue:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3491	sourceForm notNil ifTrue:[
2474 bddae0850c56 dont mix deviceBitmaps with my deviceId Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	3492	sF := deviceSf := sourceForm asFormOn:aDevice.
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3493	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3494	maskForm notNil ifTrue:[
2474 bddae0850c56 dont mix deviceBitmaps with my deviceId Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	3495	mF := deviceMf := maskForm asFormOn:aDevice.
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3496	] ifFalse:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3497	mF := sF
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3498	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3499	] ifFalse:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3500	sourceForm notNil ifTrue:[
2474 bddae0850c56 dont mix deviceBitmaps with my deviceId Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	3501	sF := sourceForm bits.
bddae0850c56 dont mix deviceBitmaps with my deviceId Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	3502	deviceSf := sourceForm.
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3503	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3504	maskForm notNil ifTrue:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3505	mF := maskForm bits.
2474 bddae0850c56 dont mix deviceBitmaps with my deviceId Claus Gittinger <cg@exept.de> parents: 2473 diff changeset	3506	deviceMf := maskForm.
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3507	] ifFalse:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3508	mF := sF
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3509	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3510	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3511	(sF isNil or:[mF isNil]) ifTrue:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3512	'Cursor [warning]: cursor has no form' errorPrintCR.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3513	^ self
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3514	].
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3515	w := sourceForm width.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3516	h := sourceForm height.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3517	id := aDevice
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3518	createCursorSourceForm:sF
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3519	maskForm:mF
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3520	hotX:hotX hotY:hotY
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3521	width:w height:h.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3522
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3523	id isNil ifTrue:[
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3524	'Cursor [warning]: cannot create pixmap cursor' errorPrintCR.
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3525	^ self
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3526	].
0 48194c26a46c Initial revision claus parents: diff changeset	3527	].
48194c26a46c Initial revision claus parents: diff changeset	3528
48194c26a46c Initial revision claus parents: diff changeset	3529	"goody for IRIXs red cursor"
48194c26a46c Initial revision claus parents: diff changeset	3530	DefaultFgColor notNil ifTrue:[
2473 2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3531	aDevice colorCursor:id foreground:DefaultFgColor
2d4b51e6eb48 checkin from browser Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	3532	background:DefaultBgColor
0 48194c26a46c Initial revision claus parents: diff changeset	3533	].
48194c26a46c Initial revision claus parents: diff changeset	3534
2841 d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3535	device := aDevice.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3536	cursorId := id.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3537	sourceForm := deviceSf.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3538	maskForm := deviceMf.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3539
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3540	"must register"
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3541	device registerCursor:self.
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3542	^ self
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3543	!
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3544
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3545	device:aDevice
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3546	"set the cursors device"
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3547
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3548	device := aDevice
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3549	!
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3550
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3551	id:anId
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3552	"set the cursors id"
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3553
d6894d63291f register device cursors in the device. Claus Gittinger <cg@exept.de> parents: 2626 diff changeset	3554	cursorId := anId
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	3555	!
0 48194c26a46c Initial revision claus parents: diff changeset	3556
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	3557	restored
0 48194c26a46c Initial revision claus parents: diff changeset	3558	"set both device and id"
48194c26a46c Initial revision claus parents: diff changeset	3559
48194c26a46c Initial revision claus parents: diff changeset	3560	device := nil.
48194c26a46c Initial revision claus parents: diff changeset	3561	cursorId := nil
48194c26a46c Initial revision claus parents: diff changeset	3562	! !
48194c26a46c Initial revision claus parents: diff changeset	3563
3877 89fcd4d6d527 method category rename Claus Gittinger <cg@exept.de> parents: 3743 diff changeset	3564	!Cursor methodsFor:'private-accessing'!
0 48194c26a46c Initial revision claus parents: diff changeset	3565
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3566	setDevice:aDevice id:anId
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3567	"set the device and deviceId of the receiver"
160 f7d9126b3c0b . claus parents: 157 diff changeset	3568
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3569	device := aDevice.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3570	cursorId := anId
0 48194c26a46c Initial revision claus parents: diff changeset	3571	!
48194c26a46c Initial revision claus parents: diff changeset	3572
5351 e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3573	setHotX:hx hotY:hy
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3574	"set the hotspot"
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3575
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3576	hotX := hx.
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3577	hotY := hy.
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3578	!
e6de62cf6b71 added: #setHotX:hotY: Claus Gittinger <cg@exept.de> parents: 5265 diff changeset	3579
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3580	setShape:aShapeSymbol
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3581	"set the shape"
160 f7d9126b3c0b . claus parents: 157 diff changeset	3582
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3583	shape := aShapeSymbol.
0 48194c26a46c Initial revision claus parents: diff changeset	3584	!
48194c26a46c Initial revision claus parents: diff changeset	3585
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3586	setSourceForm:sForm maskForm:mForm hotX:hx hotY:hy
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3587	"set the forms and hotspot"
0 48194c26a46c Initial revision claus parents: diff changeset	3588
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3589	sourceForm := sForm.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3590	maskForm := mForm.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3591	hotX := hx.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3592	hotY := hy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3593	! !
157 891eff44c2e7 . claus parents: 151 diff changeset	3594
1811 6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3595	!Cursor methodsFor:'queries'!
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3596
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3597	isAnimatedCursor
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3598	^ false
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3599
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3600	"Created: 26.6.1997 / 11:12:48 / cg"
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3601	! !
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	3602
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	3603	!Cursor class methodsFor:'documentation'!
0 48194c26a46c Initial revision claus parents: diff changeset	3604
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	3605	version
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	3606	^ '$Header$'
5356 b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	3607	!
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	3608
b1b849f034e9 changed: #examples Claus Gittinger <cg@exept.de> parents: 5351 diff changeset	3609	version_CVS
7205 9c759d20a69f #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	3610	^ '$Header$'
0 48194c26a46c Initial revision claus parents: diff changeset	3611	! !
3743 12d5921402b3 Use #error: insead of #halt. Stefan Vogel <sv@exept.de> parents: 3643 diff changeset	3612
6207 265c0bb79b00 Replace references to Diplay with "Screen current" - where appropriate Stefan Vogel <sv@exept.de> parents: 5356 diff changeset	3613
3065 1faf4c6717d8 shape cursor handling fixed (I hope) Claus Gittinger <cg@exept.de> parents: 3064 diff changeset	3614	Cursor initialize!

author	matilk
	Wed, 13 Sep 2017 09:40:34 +0200
changeset 8174	2704c965b97b
parent 8092	4eec95c106a1
child 8689	51268a5327d0
permissions	-rw-r--r--