hg/stx-libview: Cursor.st@5f45f0d30fba (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	"
48194c26a46c Initial revision claus parents: diff changeset	12
48194c26a46c Initial revision claus parents: diff changeset	13	Object subclass:#Cursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	14	instanceVariableNames:'shape sourceForm maskForm hotX hotY device cursorId'
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	15	classVariableNames:'Lobby DefaultFgColor DefaultBgColor NormalCursor HandCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	16	ArrowCursor WaitCursor CrossHairCursor OriginCursor CornerCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	17	SquareCursor FourWayCursor UpDownArrowCursor LeftRightArrowCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	18	ThumbsUpCursor ThumbsDownCursor ReadCursor WriteCursor XeqCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	19	StopCursor EyeCursor BlankCursor MarkerCursor UpCursor DownCursor
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	20	LeftCursor RightCursor XMarkerCursor CaretCursor
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	21	UpRightHandCursor DocumentCursor FolderCursor'
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	22	poolDictionaries:''
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	23	category:'Graphics-Support'
0 48194c26a46c Initial revision claus parents: diff changeset	24	!
48194c26a46c Initial revision claus parents: diff changeset	25
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	26	!Cursor class methodsFor:'documentation'!
0 48194c26a46c Initial revision claus parents: diff changeset	27
46 7b331e9012fd * empty log message * claus parents: 38 diff changeset	28	copyright
7b331e9012fd * empty log message * claus parents: 38 diff changeset	29	"
7b331e9012fd * empty log message * claus parents: 38 diff changeset	30	COPYRIGHT (c) 1992 by Claus Gittinger
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	31	All Rights Reserved
46 7b331e9012fd * empty log message * claus parents: 38 diff changeset	32
7b331e9012fd * empty log message * claus parents: 38 diff changeset	33	This software is furnished under a license and may be used
7b331e9012fd * empty log message * claus parents: 38 diff changeset	34	only in accordance with the terms of that license and with the
7b331e9012fd * empty log message * claus parents: 38 diff changeset	35	inclusion of the above copyright notice. This software may not
7b331e9012fd * empty log message * claus parents: 38 diff changeset	36	be provided or otherwise made available to, or used by, any
7b331e9012fd * empty log message * claus parents: 38 diff changeset	37	other person. No title to or ownership of the software is
7b331e9012fd * empty log message * claus parents: 38 diff changeset	38	hereby transferred.
7b331e9012fd * empty log message * claus parents: 38 diff changeset	39	"
7b331e9012fd * empty log message * claus parents: 38 diff changeset	40	!
7b331e9012fd * empty log message * claus parents: 38 diff changeset	41
0 48194c26a46c Initial revision claus parents: diff changeset	42	documentation
38 2652fc96e660 * empty log message * claus parents: 35 diff changeset	43	"
2652fc96e660 * empty log message * claus parents: 35 diff changeset	44	I represents cursors in a device independent manner.
144 cf645a1ebbb3 . claus parents: 133 diff changeset	45	Normally, cursors are defined at view creation time,
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	46	via
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	47	'aView cursor:aCursor'.
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	48
2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	49	[Instance variables:]
0 48194c26a46c Initial revision claus parents: diff changeset	50
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	51	shape <Symbol> a shape (i.e. #arrow, #hand, ...) or nil
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	52	sourceForm <Form> if shape is nil, the source bits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	53	maskForm <Form> if shape is nil, the mask bits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	54	hotX <SmallInteger> if shape is nil, the hotSpot x of the cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	55	hotY <SmallInteger> if shape is nil, the hotSpot y of the cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	56	device <aDevice> the device, if associated to one
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	57	cursorId <anObject> the device-specific id if device is nonNil
0 48194c26a46c Initial revision claus parents: diff changeset	58
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	59	[class variables:]
2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	60
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	61	Lobby <Registry> keeps track of known device cursors
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	62	(dont use it: this will be moved to the device)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	63
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	64	DefaultFgColor <Color> default foreground color for cursors (usually black)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	65	DefaultBgColor <Color> default background color for cursors (usually white)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	66
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	67	NormalCursor <Cursor> cached instance of normal (arrow) cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	68	...
0 48194c26a46c Initial revision claus parents: diff changeset	69
601 2c4c1e797909 commentary Claus Gittinger <cg@exept.de> parents: 577 diff changeset	70	[see also:]
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	71	DeviceWorkstation
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	72	DisplaySurface
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	73	Font Color Image Form
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	74	( introduction to view programming :html: programming/viewintro.html#CURSOR )
611 e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 601 diff changeset	75
e0442439a3c6 documentation Claus Gittinger <cg@exept.de> parents: 601 diff changeset	76	[author:]
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	77	Claus Gittinger
38 2652fc96e660 * empty log message * claus parents: 35 diff changeset	78	"
144 cf645a1ebbb3 . claus parents: 133 diff changeset	79	!
cf645a1ebbb3 . claus parents: 133 diff changeset	80
cf645a1ebbb3 . claus parents: 133 diff changeset	81	examples
cf645a1ebbb3 . claus parents: 133 diff changeset	82	"
cf645a1ebbb3 . claus parents: 133 diff changeset	83	get a standard cursor:
cf645a1ebbb3 . claus parents: 133 diff changeset	84
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	85	Cursor wait
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	86	Cursor stop
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	87	Cursor normal
144 cf645a1ebbb3 . claus parents: 133 diff changeset	88
cf645a1ebbb3 . claus parents: 133 diff changeset	89	create a custom cursor:
cf645a1ebbb3 . claus parents: 133 diff changeset	90
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	91	Cursor extent:16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	92	fromArray:#[ 2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	93	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	94	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	95	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	96	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	97	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	98	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	99	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	100	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	101	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	102	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	103	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	104	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	105	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	106	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	107	2r00000000 2r00000000]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	108	offset:-8 @ -8
619 a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	109
a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	110
144 cf645a1ebbb3 . claus parents: 133 diff changeset	111
cf645a1ebbb3 . claus parents: 133 diff changeset	112	define a cursor for a view:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	113	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	114	\|v\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	115
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	116	v := StandardSystemView extent:100@100.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	117	v cursor:Cursor stop.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	118	v open.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	119	[exEnd]
619 a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	120
144 cf645a1ebbb3 . claus parents: 133 diff changeset	121
cf645a1ebbb3 . claus parents: 133 diff changeset	122	with above custom cursor:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	123	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	124	\|v\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	125
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	126	v := StandardSystemView extent:100@100.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	127	v cursor:(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	128	Cursor extent:16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	129	fromArray:#[ 2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	130	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	131	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	132	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	133	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	134	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	135	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	136	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	137	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	138	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	139	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	140	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	141	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	142	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	143	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	144	2r00000000 2r00000000]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	145	offset:-8 @ -8).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	146	v open.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	147	[exEnd]
1929 e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	148
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	149
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	150	a custom cursor with mask:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	151	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	152	\|v\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	153
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	154	v := StandardSystemView extent:100@100.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	155	v cursor:(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	156	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	157	extent:16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	158	sourceArray:#[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	159	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	160	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	161	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	162	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	163	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	164	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	165	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	166	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	167	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	168	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	169	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	170	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	171	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	172	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	173	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	174	2r00000000 2r00000000]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	175	maskArray:#[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	176	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	177	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	178	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	179	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	180	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	181	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	182	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	183	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	184	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	185	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	186	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	187	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	188	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	189	2r11111111 2r11111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	190	2r00000000 2r00000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	191	2r00000000 2r00000000]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	192	offset:-8 @ -8).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	193	v open.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	194	[exEnd]
1929 e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	195
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	196
e500fcf94969 * empty log message * Claus Gittinger <cg@exept.de> parents: 1811 diff changeset	197	a cursor from an image read from a file:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	198	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	199	\|v img\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	200
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	201	v := StandardSystemView extent:100@100.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	202	img := Image fromFile:'bitmaps/xpmBitmaps/cursors/mouse.xpm'.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	203	v cursor:(Cursor fromImage:img).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	204	v open.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	205	[exEnd]
619 a46cb2ef56bf examples Claus Gittinger <cg@exept.de> parents: 611 diff changeset	206
144 cf645a1ebbb3 . claus parents: 133 diff changeset	207
cf645a1ebbb3 . claus parents: 133 diff changeset	208	with multiple views:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	209	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	210	\|v1 v2 top\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	211
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	212	top := StandardSystemView new.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	213	top extent:300@300.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	214	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	215	v1 viewBackground:(Color grey:75).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	216	v1 cursor:Cursor thumbsUp.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	217	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	218	v2 viewBackground:(Color white).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	219	v2 cursor:Cursor wait.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	220	top open.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	221	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	222
cf645a1ebbb3 . claus parents: 133 diff changeset	223
702 f4c27eed129a doku Claus Gittinger <cg@exept.de> parents: 627 diff changeset	224	show a cursor (in the active ST/X view) for a while:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	225	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	226
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	227	Cursor wait
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	228	showWhile:[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	229	Delay waitForSeconds:5
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	230	]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	231	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	232
cf645a1ebbb3 . claus parents: 133 diff changeset	233
151 8123ec03c52f . claus parents: 145 diff changeset	234	show a cursor in all views belonging to a windowGroup:
8123ec03c52f . claus parents: 145 diff changeset	235	(have to wait until top is visible to access windowGroup)
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	236	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	237	\|v1 v2 top\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	238
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	239	top := StandardSystemView new.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	240	top extent:300@300.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	241	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	242	v1 viewBackground:(Color grey:75).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	243	v1 cursor:(Cursor normal).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	244
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	245	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	246	v2 viewBackground:(Color white).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	247	v2 cursor:(Cursor crossHair).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	248	top openAndWait.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	249
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	250	Delay waitForSeconds:3.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	251
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	252	top windowGroup
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	253	withCursor:Cursor wait
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	254	do:[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	255	Delay waitForSeconds:5
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	256	]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	257	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	258
8123ec03c52f . claus parents: 145 diff changeset	259
144 cf645a1ebbb3 . claus parents: 133 diff changeset	260	show a cursor in a single view for a while:
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	261	[exBegin]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	262	\|v1 v2 top\|
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	263
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	264	top := StandardSystemView new.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	265	top extent:300@300.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	266	v1 := View origin:0.0@0.0 corner:1.0@0.5 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	267	v1 viewBackground:(Color grey:75).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	268	v1 cursor:(Cursor normal).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	269
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	270	v2 := View origin:0.0@0.5 corner:1.0@1.0 in:top.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	271	v2 viewBackground:(Color white).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	272	v2 cursor:(Cursor crossHair).
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	273
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	274	top openAndWait.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	275
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	276	Delay waitForSeconds:3.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	277
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	278	v1 withCursor:Cursor wait
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	279	do:[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	280	Delay waitForSeconds:5
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	281	]
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	282	[exEnd]
144 cf645a1ebbb3 . claus parents: 133 diff changeset	283	"
0 48194c26a46c Initial revision claus parents: diff changeset	284	! !
48194c26a46c Initial revision claus parents: diff changeset	285
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	286	!Cursor class methodsFor:'initialization'!
0 48194c26a46c Initial revision claus parents: diff changeset	287
48194c26a46c Initial revision claus parents: diff changeset	288	flushDeviceCursors
48194c26a46c Initial revision claus parents: diff changeset	289	"unassign all cursors from their device"
48194c26a46c Initial revision claus parents: diff changeset	290
223 fd68b1e7bde0 init Lobby Claus Gittinger <cg@exept.de> parents: 219 diff changeset	291	Lobby notNil ifTrue:[
499 be87d609a62e * empty log message * Claus Gittinger <cg@exept.de> parents: 363 diff changeset	292	Lobby do:[:aCursor \|
223 fd68b1e7bde0 init Lobby Claus Gittinger <cg@exept.de> parents: 219 diff changeset	293	aCursor restored.
fd68b1e7bde0 init Lobby Claus Gittinger <cg@exept.de> parents: 219 diff changeset	294	Lobby registerChange:aCursor
499 be87d609a62e * empty log message * Claus Gittinger <cg@exept.de> parents: 363 diff changeset	295	]
0 48194c26a46c Initial revision claus parents: diff changeset	296	]
48194c26a46c Initial revision claus parents: diff changeset	297	!
48194c26a46c Initial revision claus parents: diff changeset	298
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	299	initialize
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	300	Lobby isNil ifTrue:[
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	301	Lobby := Registry new.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	302
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	303	"want to be informed when returning from snapshot"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	304	ObjectMemory addDependent:self
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	305	]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	306	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	307
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	308	initializeNewCursors
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	309	"Create the new cursors
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	310	Cursor blank
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	311	Cursor down
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	312	Cursor execute
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	313	Cursor left
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	314	Cursor marker
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	315	Cursor normal
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	316	Cursor read
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	317	Cursor right
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	318	Cursor square
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	319	Cursor up
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	320	Cursor wait
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	321	Cursor write
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	322	Cursor thumbsUp
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	323	Cursor thumbsDown
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	324	Cursor xMarker
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	325	Cursor caret
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	326	Cursor stop
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	327	Cursor eye"
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	328
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	329	\|device builtIn bits isWindows\|
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	330
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	331	device := Display.
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	332	isWindows := device platformName = 'WIN32'.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	333	builtIn := device builtInCursorShapes.
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	334
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	335	(builtIn includes:#folder) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	336	FolderCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	337	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	338	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	339	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	340	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	341	2r0011111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	342	2r0100000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	343	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	344	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	345	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	346	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	347	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	348	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	349	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	350	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	351	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	352	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	353	2r1010101010101011
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	354	2r0111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	355	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	356	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	357	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	358	2r0011111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	359	2r0111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	360	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	361	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	362	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	363	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	364	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	365	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	366	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	367	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	368	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	369	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	370	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	371	2r0111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	372	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	373	offset: 0@ -3).
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	374	].
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	375	(builtIn includes:#document) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	376	DocumentCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	377	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	378	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	379	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	380	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	381	2r0011111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	382	2r0010000000110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	383	2r0010000000101000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	384	2r0010000000111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	385	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	386	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	387	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	388	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	389	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	390	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	391	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	392	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	393	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	394	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	395	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	396	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	397	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	398	2r0011111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	399	2r0011111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	400	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	401	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	402	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	403	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	404	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	405	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	406	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	407	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	408	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	409	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	410	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	411	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	412	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	413	offset: -2@ -1).
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	414	].
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	415
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	416	(builtIn includes:#origin) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	417	OriginCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	418	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	419	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	420	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	421	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	422	2r0111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	423	2r0111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	424	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	425	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	426	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	427	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	428	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	429	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	430	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	431	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	432	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	433	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	434	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	435	2r0110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	436	2r0110000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	437	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	438	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	439	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	440	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	441	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	442	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	443	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	444	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	445	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	446	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	447	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	448	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	449	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	450	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	451	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	452	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	453	2r1111000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	454	offset: -1@ -1).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	455	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	456
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	457	(builtIn includes:#corner) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	458	CornerCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	459	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	460	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	461	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	462	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	463	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	464	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	465	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	466	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	467	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	468	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	469	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	470	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	471	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	472	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	473	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	474	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	475	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	476	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	477	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	478	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	479	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	480	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	481	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	482	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	483	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	484	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	485	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	486	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	487	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	488	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	489	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	490	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	491	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	492	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	493	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	494	2r1111111111111111)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	495	offset: -14@ -14).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	496	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	497
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	498	(builtIn includes:#read) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	499	ReadCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	500	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	501	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	502	2r0
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	503	2r0000110000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	504	2r0001001000001001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	505	2r0001001000001001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	506	2r0010000000010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	507	2r0100000000100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	508	2r1111101111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	509	2r1000010000100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	510	2r1000010000100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	511	2r1011010110100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	512	2r0111101111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	513	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	514	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	515	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	516	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	517	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	518	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	519	2r0001111000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	520	2r0001111000011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	521	2r0011111000011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	522	2r0011100000111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	523	2r0111000000111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	524	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	525	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	526	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	527	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	528	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	529	2r1111111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	530	2r0111111111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	531	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	532	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	533	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	534	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	535	offset: -5 @ -7).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	536	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	537
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	538	(builtIn includes:#write) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	539	WriteCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	540	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	541	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	542	2r0000000000000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	543	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	544	2r0000000000010110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	545	2r0000000000100100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	546	2r0000000001001000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	547	2r0000000010010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	548	2r0000000100100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	549	2r0000001001000011
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	550	2r0000010010000010
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	551	2r0000100100000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	552	2r0001001000001000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	553	2r0010010000001000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	554	2r0111100001001000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	555	2r0101000010111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	556	2r0110000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	557	2r1111111100000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	558	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	559	2r0000000000000111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	560	2r0000000000001111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	561	2r0000000000011110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	562	2r0000000000111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	563	2r0000000001111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	564	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	565	2r0000000111100001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	566	2r0000001111000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	567	2r0000011110000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	568	2r0000111100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	569	2r0001111000001100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	570	2r0011110001001100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	571	2r0111100011111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	572	2r0111000110111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	573	2r0111111110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	574	2r1111111100000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	575	offset: 0@ -15).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	576	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	577
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	578	(builtIn includes:#wait) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	579	WaitCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	580	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	581	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	582	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	583	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	584	2r1000000000000001
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	585	2r0100000000000010
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	586	2r0010000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	587	2r0001110000111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	588	2r0000111101110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	589	2r0000011011100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	590	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	591	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	592	2r0000010110100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	593	2r0000100010010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	594	2r0001000110001000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	595	2r0010001101000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	596	2r0100111111110010
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	597	2r1011111111111101
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	598	2r1111111111111111)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	599	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	600	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	601	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	602	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	603	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	604	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	605	2r0001111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	606	2r0000111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	607	2r0000011111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	608	2r0000011111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	609	2r0000111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	610	2r0001111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	611	2r0011111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	612	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	613	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	614	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	615	2r1111111111111111)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	616	offset: -8@ -8).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	617	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	618
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	619	(builtIn includes:#blank) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	620	BlankCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	621	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	622	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	623	fromArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	624	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	625	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	626	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	627	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	628	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	629	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	630	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	631	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	632	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	633	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	634	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	635	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	636	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	637	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	638	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	639	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	640	offset: 0@0).
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	641	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	642
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	643	(builtIn includes:#execute) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	644	XeqCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	645	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	646	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	647	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	648	2r1000000000010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	649	2r1100000000010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	650	2r1110000000111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	651	2r1111000111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	652	2r1111100011000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	653	2r1111110001000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	654	2r1111111001111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	655	2r1111000001101100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	656	2r1101100011000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	657	2r1001100010000010
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	658	2r0000110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	659	2r0000110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	660	2r0000011000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	661	2r0000011000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	662	2r0000001100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	663	2r0000001100000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	664	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	665	2r1100000000111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	666	2r1110000000111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	667	2r1111000111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	668	2r1111100111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	669	2r1111110011111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	670	2r1111111001111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	671	2r1111111101111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	672	2r1111100001111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	673	2r1101110011100111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	674	2r1001110011000010
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	675	2r0000111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	676	2r0000111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	677	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	678	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	679	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	680	2r0000001110000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	681	offset: 0@0).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	682	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	683
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	684	(builtIn includes:#square) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	685	SquareCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	686	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	687	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	688	fromArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	689	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	690	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	691	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	692	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	693	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	694	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	695	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	696	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	697	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	698	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	699	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	700	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	701	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	702	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	703	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	704	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	705	offset: -8@ -8).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	706	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	707
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	708	(builtIn includes:#upLeftArrow) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	709	NormalCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	710	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	711	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	712	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	713	2r1000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	714	2r1100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	715	2r1110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	716	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	717	2r1111100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	718	2r1111110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	719	2r1111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	720	2r1111100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	721	2r1111100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	722	2r1001100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	723	2r0000110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	724	2r0000110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	725	2r0000011000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	726	2r0000011000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	727	2r0000001100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	728	2r0000001100000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	729	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	730	2r1100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	731	2r1110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	732	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	733	2r1111100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	734	2r1111110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	735	2r1111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	736	2r1111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	737	2r1111110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	738	2r1111110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	739	2r1001110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	740	2r0000111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	741	2r0000111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	742	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	743	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	744	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	745	2r0000001110000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	746	offset: 0@0).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	747	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	748
d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	749
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	750	(builtIn includes:#crossHair) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	751	CrossHairCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	752	(Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	753	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	754	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	755	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	756	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	757	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	758	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	759	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	760	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	761	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	762	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	763	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	764	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	765	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	766	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	767	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	768	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	769	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	770	2r0)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	771	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	772	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	773	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	774	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	775	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	776	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	777	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	778	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	779	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	780	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	781	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	782	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	783	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	784	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	785	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	786	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	787	2r0)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	788	offset: -7@ -7).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	789	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	790
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	791	(builtIn includes:#scrollMarkerH) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	792	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	793	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	794	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	795	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	796	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	797	2r1111110111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	798	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	799	2r1111110000011111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	800	2r1000000000000111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	801	2r1000000000000001
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	802	2r1000000000000111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	803	2r1111110000011111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	804	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	805	2r1111110111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	806	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	807	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	808	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	809	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	810	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	811	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	812	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	813	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	814	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	815	2r0000001000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	816	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	817	2r0000001111100000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	818	2r0111111111111000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	819	2r0111111111111110
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	820	2r0111111111111000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	821	2r0000001111100000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	822	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	823	2r0000001000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	824	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	825	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	826	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	827	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	828	].
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	829
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	830	MarkerCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	831	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	832	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	833	sourceArray:bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	834	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	835	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	836	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	837	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	838	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	839	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	840	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	841	2r1111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	842	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	843	2r1111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	844	2r1111111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	845	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	846	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	847	2r0000011000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	848	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	849	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	850	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	851	offset: -14@ -7.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	852	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	853
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	854	(builtIn includes:#scrollUp) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	855	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	856	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	857	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	858	2r1011111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	859	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	860	2r1000111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	861	2r1000011111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	862	2r1000001111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	863	2r1000000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	864	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	865	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	866	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	867	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	868	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	869	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	870	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	871	2r1001111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	872	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	873	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	874	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	875	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	876	2r0100000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	877	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	878	2r0111000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	879	2r0111100000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	880	2r0111110000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	881	2r0111111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	882	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	883	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	884	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	885	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	886	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	887	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	888	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	889	2r0110000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	890	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	891	].
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	892	UpCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	893	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	894	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	895	sourceArray:bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	896	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	897	2r1100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	898	2r1110000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	899	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	900	2r1111100000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	901	2r1111110000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	902	2r1111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	903	2r1111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	904	2r1111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	905	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	906	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	907	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	908	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	909	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	910	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	911	2r1111000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	912	2r1111000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	913	offset: -1@ -1.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	914	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	915
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	916	(builtIn includes:#scrollDown) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	917	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	918	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	919	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	920	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	921	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	922	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	923	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	924	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	925	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	926	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	927	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	928	2r1000000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	929	2r1100000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	930	2r1110000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	931	2r1111000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	932	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	933	2r1111110111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	934	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	935	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	936	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	937	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	938	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	939	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	940	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	941	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	942	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	943	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	944	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	945	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	946	2r0111111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	947	2r0011111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	948	2r0001111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	949	2r0000111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	950	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	951	2r0000001000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	952	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	953	].
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	954
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	955	DownCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	956	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	957	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	958	sourceArray:bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	959	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	960	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	961	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	962	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	963	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	964	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	965	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	966	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	967	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	968	2r1111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	969	2r1111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	970	2r0111111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	971	2r0011111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	972	2r0001111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	973	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	974	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	975	2r0000001100000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	976	offset: -7@ -15.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	977	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	978
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	979	(builtIn includes:#scrollLeft) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	980	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	981	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	982	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	983	2r1000000000000001
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	984	2r1100000000000001
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	985	2r1110000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	986	2r1111000111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	987	2r1111100111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	988	2r1111110111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	989	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	990	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	991	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	992	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	993	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	994	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	995	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	996	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	997	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	998	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	999	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1000	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1001	2r0111111111111110
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1002	2r0011111111111110
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1003	2r0001111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1004	2r0000111000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1005	2r0000011000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1006	2r0000001000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1007	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1008	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1009	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1010	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1011	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1012	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1013	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1014	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1015	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1016	].
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1017
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1018	LeftCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1019	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1020	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1021	sourceArray:bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1022	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1023	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1024	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1025	2r0111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1026	2r0011111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1027	2r0001111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1028	2r0000111100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1029	2r0000011100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1030	2r0000001100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1031	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1032	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1033	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1034	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1035	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1036	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1037	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1038	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1039	offset: -1 @ -1.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1040	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1041
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1042	(builtIn includes:#scrollRight) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1043	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1044	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1045	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1046	2r1111111110111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1047	2r1111111110011111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1048	2r1111111110001111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1049	2r1111111110000111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1050	2r1000000000000011
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1051	2r1000000000000001
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1052	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1053	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1054	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1055	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1056	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1057	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1058	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1059	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1060	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1061	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1062	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1063	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1064	2r0000000001000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1065	2r0000000001100000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1066	2r0000000001110000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1067	2r0000000001111000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1068	2r0111111111111100
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1069	2r0111111111111110
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1070	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1071	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1072	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1073	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1074	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1075	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1076	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1077	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1078	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1079	].
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1080
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1081	RightCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1082	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1083	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1084	sourceArray: bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1085	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1086	2r0000000011000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1087	2r0000000011100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1088	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1089	2r0000000011111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1090	2r1111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1091	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1092	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1093	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1094	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1095	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1096	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1097	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1098	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1099	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1100	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1101	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1102	offset: -15@ -6.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1103	].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1104
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1105	(builtIn includes:#scrollMarkerV) ifFalse:[
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1106	isWindows ifTrue:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1107	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1108	2r1111111111111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1109	2r1111111011111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1110	2r1111111011111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1111	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1112	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1113	2r1111100000111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1114	2r1111100000111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1115	2r1111000000011111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1116	2r1111000000011111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1117	2r1110000000001111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1118	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1119	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1120	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1121	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1122	2r1111110001111111
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1123	2r1111111111111111).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1124	] ifFalse:[
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1125	bits := #(
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1126	2r0000000000000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1127	2r0000000100000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1128	2r0000000100000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1129	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1130	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1131	2r0000011111000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1132	2r0000011111000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1133	2r0000111111100000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1134	2r0000111111100000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1135	2r0001111111110000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1136	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1137	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1138	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1139	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1140	2r0000001110000000
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1141	2r0000000000000000).
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1142	].
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1143
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1144	XMarkerCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1145	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1146	extent: 16@16
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1147	sourceArray: bits
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1148	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1149	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1150	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1151	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1152	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1153	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1154	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1155	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1156	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1157	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1158	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1159	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1160	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1161	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1162	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1163	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1164	2r0000011111000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1165	offset: -7@ -1.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1166	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1167
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1168	(builtIn includes:#fourWay) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1169	FourWayCursor :=
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1170	Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1171	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1172	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1173	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1174	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1175	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1176	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1177	2r0001001110010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1178	2r0011001110011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1179	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1180	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1181	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1182	2r0011001110011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1183	2r0001001110010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1184	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1185	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1186	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1187	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1188	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1189	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1190	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1191	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1192	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1193	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1194	2r0010111111101000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1195	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1196	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1197	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1198	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1199	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1200	2r0010111111101000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1201	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1202	2r0000111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1203	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1204	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1205	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1206	offset: -7@ -7.
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1207	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1208
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1209	(builtIn includes:#thumbsUp) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1210	ThumbsUpCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1211	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1212	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1213	2r0000000000100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1214	2r0000000001010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1215	2r0000000010010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1216	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1217	2r0000000100010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1218	2r0000000100010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1219	2r0001111100011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1220	2r0010000100000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1221	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1222	2r0111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1223	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1224	2r0111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1225	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1226	2r0011111000001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1227	2r0001000000010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1228	2r0001111111100000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1229	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1230	2r0000000000100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1231	2r0000000001110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1232	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1233	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1234	2r0000000111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1235	2r0000000111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1236	2r0001111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1237	2r0011111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1238	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1239	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1240	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1241	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1242	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1243	2r0011111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1244	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1245	2r0001111111100000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1246	offset: -8@ 0).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1247	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1248
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1249	(builtIn includes:#caret) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1250	CaretCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1251	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1252	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1253	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1254	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1255	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1256	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1257	2r0000011111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1258	2r0000011001100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1259	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1260	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1261	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1262	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1263	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1264	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1265	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1266	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1267	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1268	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1269	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1270	2r0000000110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1271	2r0000001111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1272	2r0000001111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1273	2r0000011111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1274	2r0000111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1275	2r0000111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1276	2r0000011001100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1277	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1278	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1279	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1280	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1281	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1282	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1283	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1284	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1285	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1286	offset: -8@0).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1287	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1288
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1289	(builtIn includes:#thumbsDown) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1290	ThumbsDownCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1291	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1292	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1293	2r0001111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1294	2r0001000000010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1295	2r0011111000001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1296	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1297	2r0111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1298	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1299	2r0111111000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1300	2r0100000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1301	2r0010000100000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1302	2r0001111100011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1303	2r0000000100010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1304	2r0000000100010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1305	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1306	2r0000000010010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1307	2r0000000001010000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1308	2r0000000000100000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1309
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1310	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1311	2r0001111111100000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1312	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1313	2r0011111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1314	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1315	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1316	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1317	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1318	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1319	2r0011111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1320	2r0001111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1321	2r0000000111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1322	2r0000000111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1323	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1324	2r0000000011110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1325	2r0000000001110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1326	2r0000000000100000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1327	offset: -8@ -16).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1328	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1329
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1330	(builtIn includes:#stop) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1331	StopCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1332	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1333	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1334	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1335	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1336	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1337	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1338	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1339	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1340	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1341	2r0100000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1342	2r0100000000000100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1343	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1344	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1345	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1346	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1347	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1348	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1349	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1350	)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1351	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1352	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1353	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1354	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1355	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1356	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1357	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1358	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1359	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1360	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1361	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1362	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1363	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1364	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1365	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1366	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1367	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1368	)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1369	offset: -8 @ -8).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1370	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1371
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1372	(builtIn includes:#eyeBullet) ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1373	EyeCursor := (Cursor
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1374	extent: 16@16
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1375	sourceArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1376	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1377	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1378	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1379	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1380	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1381	2r0011000000011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1382	2r0110001110001100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1383	2r1100011111000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1384	2r1100011111000110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1385	2r0110001110001100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1386	2r0011000000011000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1387	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1388	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1389	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1390	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1391	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1392	)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1393	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1394	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1395	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1396	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1397	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1398	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1399	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1400	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1401	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1402	2r1111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1403	2r0111111111111100
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1404	2r0011111111111000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1405	2r0001111111110000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1406	2r0000011111000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1407	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1408	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1409	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1410	)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1411	offset: -8 @ -8).
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1412	].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1413
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1414	FourWayCursor notNil ifTrue:[FourWayCursor := FourWayCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1415	LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1416	RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1417	XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1418
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1419	OriginCursor notNil ifTrue:[OriginCursor := OriginCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1420	CornerCursor notNil ifTrue:[CornerCursor := CornerCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1421
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1422	ReadCursor notNil ifTrue:[ReadCursor := ReadCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1423	WriteCursor notNil ifTrue:[WriteCursor := WriteCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1424	WaitCursor notNil ifTrue:[WaitCursor := WaitCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1425	XeqCursor notNil ifTrue:[XeqCursor := XeqCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1426
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1427	SquareCursor notNil ifTrue:[SquareCursor := SquareCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1428
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1429	NormalCursor notNil ifTrue:[NormalCursor := NormalCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1430
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1431	CrossHairCursor notNil ifTrue:[CrossHairCursor := CrossHairCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1432
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1433	MarkerCursor notNil ifTrue:[MarkerCursor := MarkerCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1434	UpCursor notNil ifTrue:[UpCursor := UpCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1435	DownCursor notNil ifTrue:[DownCursor := DownCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1436	LeftCursor notNil ifTrue:[LeftCursor := LeftCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1437	RightCursor notNil ifTrue:[RightCursor := RightCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1438	XMarkerCursor notNil ifTrue:[XMarkerCursor := XMarkerCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1439	CaretCursor notNil ifTrue:[CaretCursor := CaretCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1440
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1441	ThumbsUpCursor notNil ifTrue:[ThumbsUpCursor := ThumbsUpCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1442	ThumbsDownCursor notNil ifTrue:[ThumbsDownCursor := ThumbsDownCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1443	StopCursor notNil ifTrue:[StopCursor := StopCursor onDevice:device].
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1444	EyeCursor notNil ifTrue:[EyeCursor := EyeCursor onDevice:device].
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1445
1564 676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1446	"
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1447	Cursor initializeNewCursors
676244aa61cd checkin from browser Claus Gittinger <cg@exept.de> parents: 1495 diff changeset	1448	"
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1449
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	1450	"Modified: / 27.9.1998 / 22:23:08 / cg"
1495 d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1451	!
d1934d676421 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	1452
864 dfd625885d59 checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	1453	update:something with:aParameter from:changedObject
0 48194c26a46c Initial revision claus parents: diff changeset	1454	"sent when restarted after a snapIn"
48194c26a46c Initial revision claus parents: diff changeset	1455
48194c26a46c Initial revision claus parents: diff changeset	1456	(something == #restarted) ifTrue:[
974 12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1457	self flushDeviceCursors
0 48194c26a46c Initial revision claus parents: diff changeset	1458	]
864 dfd625885d59 checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	1459
dfd625885d59 checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	1460	"Created: 15.6.1996 / 15:18:47 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1461	! !
48194c26a46c Initial revision claus parents: diff changeset	1462
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	1463	!Cursor class methodsFor:'instance creation'!
0 48194c26a46c Initial revision claus parents: diff changeset	1464
48194c26a46c Initial revision claus parents: diff changeset	1465	extent:extent fromArray:array offset:offset
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1466	"ST-80 compatibility
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1467	create a new bitmap cursor from bits in the array argument.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1468	Here, the offset argument defines the hotSpot, but is given
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1469	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	1470
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1471	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1472	extent:extent sourceArray:array maskArray:array offset:offset
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1473
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1474	"Modified: 22.10.1997 / 23:59:41 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1475	!
48194c26a46c Initial revision claus parents: diff changeset	1476
48194c26a46c Initial revision claus parents: diff changeset	1477	extent:extent sourceArray:sourceArray maskArray:maskArray offset:offset
48194c26a46c Initial revision claus parents: diff changeset	1478	"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	1479	maskArray.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1480	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	1481	of the hotSpots coordinate within the cursor (sigh - ST80 compatibility)"
0 48194c26a46c Initial revision claus parents: diff changeset	1482
48194c26a46c Initial revision claus parents: diff changeset	1483	\|sourceForm maskForm\|
48194c26a46c Initial revision claus parents: diff changeset	1484
48194c26a46c Initial revision claus parents: diff changeset	1485	sourceForm := Form extent:extent fromArray:sourceArray offset:offset.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1486	sourceArray ~~ maskArray ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1487	maskForm := Form extent:extent fromArray:maskArray offset:offset.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1488	] ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1489	maskForm := sourceForm
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1490	].
0 48194c26a46c Initial revision claus parents: diff changeset	1491	^ self sourceForm:sourceForm maskForm:maskForm hotSpot:(offset negated)
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1492
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1493	"Modified: 22.10.1997 / 23:58:36 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1494	!
48194c26a46c Initial revision claus parents: diff changeset	1495
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1496	fileCursorNamed:cursorName
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1497	"return a cursor read from the files 'cursorName_bits.bit' and
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1498	'cursorName_mask.bit' - return nil if either file does not exist.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1499	This method is going to be obsoleted in the future."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1500
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1501	\|cursorBits maskBits fileNamePrefix\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1502
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1503	self obsoleteMethodWarning.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1504
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1505	fileNamePrefix := 'bitmaps/' , cursorName.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1506
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1507	cursorBits := Image fromFile:(fileNamePrefix , '_bits.bit').
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1508	cursorBits notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1509	maskBits := Image fromFile:(fileNamePrefix , '_mask.bit').
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1510	maskBits notNil ifTrue:[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1511	^ self sourceForm:cursorBits maskForm:maskBits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1512	]
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1513	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1514	^ nil
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	1515
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1516	"Modified: 23.10.1997 / 00:02:07 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1517	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1518
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1519	fromImage:anImage
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1520	"return a new cursor.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1521	Source- and (optional) mask-Bits are taken from anImage;
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1522	The cursors hotSpot is the center of the image."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1523
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1524	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1525	fromImage:anImage hotSpot:(anImage center)
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1526
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1527	"
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1528	\|i c\|
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1529
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1530	i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1531	c := Cursor fromImage:i.
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1532	WindowGroup activeGroup
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1533	withCursor:c
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1534	do:[(Delay forSeconds:5)wait]
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1535	"
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1536
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1537	"Modified: 22.10.1997 / 23:55:01 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1538	!
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1539
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1540	fromImage:anImage hotSpot:aPoint
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1541	"return a new cursor.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1542	Source- and (optional) mask-Bits are taken from anImage;
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1543	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	1544
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1545	\|mask sourceForm maskForm\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1546
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1547	sourceForm := anImage asMonochromeFormOn:Screen current.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1548
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1549	mask := anImage mask.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1550	mask isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1551	maskForm := sourceForm
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1552	] ifFalse:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1553	maskForm := mask asMonochromeFormOn:Screen current.
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1554	].
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1555	^ self sourceForm:sourceForm
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1556	maskForm:maskForm
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1557	hotX:(aPoint x)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1558	hotY:(aPoint y)
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1559
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1560	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1561	\|i c\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1562
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1563	i := Image fromFile:'bitmaps/xpmBitmaps/cursors/ul_br_arrow.xpm'.
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1564	c := Cursor fromImage:i hotSpot:(i center).
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1565	WindowGroup activeGroup
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1566	withCursor:c
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1567	do:[(Delay forSeconds:5)wait]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1568	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1569
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1570	"Modified: 22.10.1997 / 23:49:00 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1571	"Created: 22.10.1997 / 23:51:32 / cg"
1414 492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1572	!
492ba3d77d92 added cursor #fromImage: Claus Gittinger <cg@exept.de> parents: 1228 diff changeset	1573
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1574	imageArray:imageBits maskArray:maskBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1575	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1576
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1577	^ self
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1578	imageArray:imageBits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1579	maskArray:maskBits
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1580	hotSpot:8@8
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1581
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1582	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1583	\|cursor\|
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1584
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1585	cursor := Cursor
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1586	imageArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1587	2r0000000000000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1588	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1589	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1590	2r0000000100001110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1591	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1592	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1593	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1594	2r0111111111111110
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1595	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1596	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1597	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1598	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1599	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1600	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1601	2r0000000100000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1602	2r0000000000000000)
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1603	maskArray: #(
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1604	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1605	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1606	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1607	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1608	2r0000001110011111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1609	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1610	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1611	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1612	2r1111111111111111
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1613	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1614	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1615	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1616	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1617	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1618	2r0000001110000000
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1619	2r0000001110000000).
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1620
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1621	cursor showWhile:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1622	(Delay forSeconds:10) wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1623	]
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1624	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1625
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1626	"Modified: 23.10.1997 / 00:06:09 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1627	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1628
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1629	imageArray:imageBits maskArray:maskBits hotSpot:hot
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1630	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1631
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1632	^ self
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1633	extent:16@16
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1634	sourceArray:imageBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1635	maskArray:maskBits
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1636	offset:hot negated
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1637
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1638	"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1639	\|cursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1640
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1641	cursor := Cursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1642	imageArray: #(
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1643	2r0000000000000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1644	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1645	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1646	2r0000000100001110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1647	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1648	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1649	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1650	2r0111111111111110
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1651	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1652	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1653	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1654	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1655	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1656	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1657	2r0000000100000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1658	2r0000000000000000)
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1659	maskArray: #(
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1660	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1661	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1662	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1663	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1664	2r0000001110011111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1665	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1666	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1667	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1668	2r1111111111111111
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1669	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1670	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1671	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1672	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1673	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1674	2r0000001110000000
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1675	2r0000001110000000)
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1676	hotSpot: 8@8.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1677
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1678	WindowGroup activeGroup
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1679	withCursor:cursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1680	do:[(Delay forSeconds:10)wait]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1681	"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1682	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1683
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1684	imageArray:imageBits maskArray:maskBits hotSpot:hot name:aString
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1685	"ST-80 compatible cursor creation - the extent is fixed to 16@16"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1686
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1687	"name is ignored ..."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1688
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1689	^ self imageArray:imageBits maskArray:maskBits hotSpot:hot
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1690	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1691
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1692	shape:aShape
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1693	"return one of the standard cursors.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1694	Each display may offer different shapes - see for example XWorkstation
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1695	for details (however a basic minimum set should be supported by all)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1696
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1697	\|newCursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1698
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1699	"first look if not already known"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1700	Lobby isNil ifTrue:[
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1701	self initialize
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1702	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1703	Lobby do:[:aCursor \|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1704	(aCursor shape == aShape) ifTrue:[
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1705	^ aCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1706	]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1707	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1708	newCursor := self basicNew setShape:aShape.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1709	Lobby register:newCursor.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1710	^ newCursor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1711	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1712
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1713	shape:aShape on:aDevice
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1714	"return one of the standard cursors already associated to aDevice.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1715	This is the same as '(Cursor shape:aShape) on:aDevice' but somwehat faster."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1716
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1717	\|newCursor oldCursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1718
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1719	"first look if not already known"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1720	Lobby isNil ifTrue:[
974 12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1721	self initialize
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1722	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1723	Lobby do:[:aCursor \|
974 12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1724	(aCursor shape == aShape) ifTrue:[
12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1725	(aCursor graphicsDevice == aDevice) ifTrue:[^ aCursor].
12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1726	oldCursor := aCursor
12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1727	].
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1728	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1729
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1730	"found one with same shape, but different device"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1731	oldCursor notNil ifTrue:[
974 12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	1732	^ oldCursor newOn:aDevice
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1733	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1734
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1735	newCursor := self basicNew setShape:aShape.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1736	Lobby register:newCursor.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1737	^ newCursor
927 c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	1738
c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	1739	"Modified: 5.7.1996 / 17:58:06 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1740	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1741
0 48194c26a46c Initial revision claus parents: diff changeset	1742	sourceForm:aForm
48194c26a46c Initial revision claus parents: diff changeset	1743	"return a new cursor.
48194c26a46c Initial revision claus parents: diff changeset	1744	Source- and mask-Bits are taken from aForm; hotSpot is center"
48194c26a46c Initial revision claus parents: diff changeset	1745
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1746	^ self sourceForm:aForm maskForm:aForm
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1747
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1748	"Modified: 23.10.1997 / 00:08:37 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1749	!
48194c26a46c Initial revision claus parents: diff changeset	1750
48194c26a46c Initial revision claus parents: diff changeset	1751	sourceForm:sourceForm maskForm:maskForm
48194c26a46c Initial revision claus parents: diff changeset	1752	"return a new cursor. hotSpot is center"
48194c26a46c Initial revision claus parents: diff changeset	1753
48194c26a46c Initial revision claus parents: diff changeset	1754	^ self sourceForm:sourceForm
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1755	maskForm:maskForm
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1756	hotX:(sourceForm width // 2)
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1757	hotY:(sourceForm height // 2)
0 48194c26a46c Initial revision claus parents: diff changeset	1758	!
48194c26a46c Initial revision claus parents: diff changeset	1759
48194c26a46c Initial revision claus parents: diff changeset	1760	sourceForm:sourceForm maskForm:maskForm hotSpot:aPoint
48194c26a46c Initial revision claus parents: diff changeset	1761	"return a new cursor"
48194c26a46c Initial revision claus parents: diff changeset	1762
48194c26a46c Initial revision claus parents: diff changeset	1763	^ self sourceForm:sourceForm
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1764	maskForm:maskForm
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1765	hotX:(aPoint x)
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1766	hotY:(aPoint y)
0 48194c26a46c Initial revision claus parents: diff changeset	1767	!
48194c26a46c Initial revision claus parents: diff changeset	1768
48194c26a46c Initial revision claus parents: diff changeset	1769	sourceForm:sourceForm maskForm:maskForm hotX:hotX hotY:hotY
48194c26a46c Initial revision claus parents: diff changeset	1770	"return a new cursor"
48194c26a46c Initial revision claus parents: diff changeset	1771
48194c26a46c Initial revision claus parents: diff changeset	1772	\|newCursor\|
48194c26a46c Initial revision claus parents: diff changeset	1773
48194c26a46c Initial revision claus parents: diff changeset	1774	"first look if not already known"
223 fd68b1e7bde0 init Lobby Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1775	Lobby isNil ifTrue:[
499 be87d609a62e * empty log message * Claus Gittinger <cg@exept.de> parents: 363 diff changeset	1776	self initialize
223 fd68b1e7bde0 init Lobby Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1777	].
115 1d93fd8c5371 * empty log message * claus parents: 89 diff changeset	1778	Lobby do:[:aCursor \|
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1779	(aCursor sourceForm == sourceForm) ifTrue:[
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1780	(aCursor maskForm == maskForm) ifTrue:[
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1781	(aCursor hotX == hotX) ifTrue:[
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1782	(aCursor hotY == hotY) ifTrue:[
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1783	^ aCursor
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1784	]
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1785	]
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1786	]
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1787	]
0 48194c26a46c Initial revision claus parents: diff changeset	1788	].
35 f1a194c18429 * empty log message * claus parents: 23 diff changeset	1789	(sourceForm isNil or:[maskForm isNil]) ifTrue:[^ nil].
f1a194c18429 * empty log message * claus parents: 23 diff changeset	1790
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	1791	newCursor := self basicNew setSourceForm:sourceForm
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1792	maskForm:maskForm
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1793	hotX:hotX
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1794	hotY:hotY.
23 4a7e02de7b72 * empty log message * claus parents: 12 diff changeset	1795	Lobby register:newCursor.
0 48194c26a46c Initial revision claus parents: diff changeset	1796	^ newCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1797	! !
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1798
1224 2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1799	!Cursor class methodsFor:'cleanup'!
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1800
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1801	releaseResourcesOnDevice:aDevice
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1802	"this is sent when a display connection is closed,
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1803	to release all cached Cursors from that device"
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1804
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1805	Lobby unregisterAllForWhich:[:aCursor \| aCursor graphicsDevice == aDevice]
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1806
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1807	"Created: 16.1.1997 / 16:43:59 / cg"
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1808	! !
2a2270ec4236 added #releaseResourcesOnDevice:, to allow cleanup when Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	1809
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	1810	!Cursor class methodsFor:'default access'!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1811
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1812	defaultFgColor:fgColor defaultBgColor:bgColor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1813	"set the default colors used for cursors"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1814
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1815	DefaultFgColor := fgColor.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1816	DefaultBgColor := bgColor
0 48194c26a46c Initial revision claus parents: diff changeset	1817	! !
48194c26a46c Initial revision claus parents: diff changeset	1818
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	1819	!Cursor class methodsFor:'standard cursors'!
0 48194c26a46c Initial revision claus parents: diff changeset	1820
48194c26a46c Initial revision claus parents: diff changeset	1821	arrow
48194c26a46c Initial revision claus parents: diff changeset	1822	"return an arrow (up-left-arrow) cursor"
48194c26a46c Initial revision claus parents: diff changeset	1823
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	1824	^ self shape:#upLeftArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1825
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1826	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1827	Cursor arrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1828	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1829	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1830
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1831	"Modified: 23.10.1997 / 00:28:28 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1832	!
48194c26a46c Initial revision claus parents: diff changeset	1833
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1834	blank
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1835	"Answer the instance of me that is an invisible cursor."
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1836
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1837	^ BlankCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1838
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1839	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1840	Cursor blank
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1841	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1842	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1843
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1844	"Modified: 23.10.1997 / 00:27:39 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1845	!
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1846
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1847	bottomLeft
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1848	"return a bottom-left corner cursor"
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1849
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1850	^ self shape:#bottomLeft on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1851
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1852	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1853	Cursor bottomLeft
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1854	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1855	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1856
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1857	"Modified: 23.10.1997 / 00:27:12 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1858	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1859
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1860	bottomRight
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1861	"return a bottom-right corner cursor"
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1862
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1863	^ self corner
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1864
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1865	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1866	Cursor bottomRight
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1867	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1868	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1869
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1870	"Modified: 23.10.1997 / 00:27:02 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1871	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1872
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1873	caret
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1874	"return a caret cursor"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1875
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1876	^ CaretCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1877
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1878	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1879	Cursor caret
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1880	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1881	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1882
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1883	"Modified: 23.10.1997 / 00:27:08 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1884	!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1885
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1886	corner
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1887	"return a corner (bottom-right) cursor"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1888
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1889	CornerCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1890	CornerCursor := self shape:#corner on:Display
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1891	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1892	^ CornerCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1893
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1894	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1895	Cursor corner
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1896	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1897	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1898
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1899	"Modified: 23.10.1997 / 00:26:53 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1900	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1901
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1902	cross
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1903	"return a cross cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1904
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1905	^ self shape:#cross on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1906
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1907	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1908	Cursor cross
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1909	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1910	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1911
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1912	"Modified: 23.10.1997 / 00:26:49 / cg"
80 eb8373679a9f * empty log message * claus parents: 71 diff changeset	1913	!
eb8373679a9f * empty log message * claus parents: 71 diff changeset	1914
0 48194c26a46c Initial revision claus parents: diff changeset	1915	crossHair
48194c26a46c Initial revision claus parents: diff changeset	1916	"return a crossHair cursor"
48194c26a46c Initial revision claus parents: diff changeset	1917
48194c26a46c Initial revision claus parents: diff changeset	1918	CrossHairCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1919	CrossHairCursor := self shape:#crossHair on:Display
0 48194c26a46c Initial revision claus parents: diff changeset	1920	].
48194c26a46c Initial revision claus parents: diff changeset	1921	^ CrossHairCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1922
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1923	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1924	Cursor crossHair
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1925	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1926	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1927
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1928	"Modified: 23.10.1997 / 00:26:42 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1929	!
48194c26a46c Initial revision claus parents: diff changeset	1930
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1931	document
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1932	"return a document cursor (dragging a document)"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1933
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1934	^ DocumentCursor
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1935
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1936	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1937	Cursor document
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1938	showWhile:[ Delay waitForSeconds:3 ]
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1939	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1940
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1941	"Modified: / 23.10.1997 / 00:27:08 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1942	"Created: / 19.5.1998 / 17:17:53 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1943	!
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	1944
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1945	down
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1946	"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	1947
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1948	^ DownCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1949
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1950	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1951	Cursor down
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1952	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1953	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1954
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1955	"Modified: 23.10.1997 / 00:26:34 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1956	!
0 48194c26a46c Initial revision claus parents: diff changeset	1957
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1958	downLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1959	"return a down-arrow-to-limit cursor"
0 48194c26a46c Initial revision claus parents: diff changeset	1960
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1961	^ self shape:#downLimitArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1962
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1963	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1964	Cursor downLimitArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1965	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1966	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1967
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1968	"Modified: 23.10.1997 / 00:26:29 / cg"
0 48194c26a46c Initial revision claus parents: diff changeset	1969	!
48194c26a46c Initial revision claus parents: diff changeset	1970
48194c26a46c Initial revision claus parents: diff changeset	1971	execute
157 891eff44c2e7 . claus parents: 151 diff changeset	1972	"return a execute cursor - (the default here is a wait-cursor)"
0 48194c26a46c Initial revision claus parents: diff changeset	1973
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1974	XeqCursor isNil ifTrue:[
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1975	XeqCursor := self shape:#execute on:Display.
e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1976	].
157 891eff44c2e7 . claus parents: 151 diff changeset	1977	XeqCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1978	^ XeqCursor
157 891eff44c2e7 . claus parents: 151 diff changeset	1979	].
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1980
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	1981	^ self wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1982
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1983	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1984	Cursor execute
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1985	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1986	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1987
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1988	"Modified: 23.10.1997 / 00:26:19 / cg"
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	1989	!
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	1990
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	1991	eye
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1992	"return an eye cursor"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1993
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1994	^ EyeCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1995
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1996	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1997	Cursor eye
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1998	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	1999	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2000
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2001	"Modified: 23.10.1997 / 00:26:06 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2002	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2003
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2004	folder
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2005	"return a folder cursor (dragging a folder)"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2006
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2007	^ FolderCursor
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2008
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2009	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2010	Cursor folder
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2011	showWhile:[ Delay waitForSeconds:3 ]
2121 376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2012	"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2013
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2014	"Modified: / 23.10.1997 / 00:27:08 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2015	"Created: / 19.5.1998 / 17:18:17 / cg"
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2016	!
376a0d47257a two new standardCursors: #document & #folder Claus Gittinger <cg@exept.de> parents: 2096 diff changeset	2017
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2018	fourWay
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2019	"return a four-way arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2020
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2021	FourWayCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2022	FourWayCursor := self shape:#fourWay on:Display
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2023	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2024	^ FourWayCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2025
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2026	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2027	Cursor fourWay
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2028	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2029	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2030
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2031	"Modified: 23.10.1997 / 00:25:34 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2032	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2033
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2034	hand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2035	"return a hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2036
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2037	HandCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2038	HandCursor := self shape:#upRightHand on:Display.
2063 1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2039	HandCursor isNil ifTrue:[
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2040	HandCursor := self normal.
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2041	]
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2042	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2043	^ HandCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2044
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2045	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2046	Cursor hand
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2047	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2048	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2049
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2050	"Modified: 23.10.1997 / 00:25:07 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2051	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2052
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2053	left
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2054	"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	2055
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2056	^ LeftCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2057
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2058	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2059	Cursor left
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2060	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2061	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2062
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2063	"Modified: 23.10.1997 / 00:24:51 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2064	!
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2065
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2066	leftHand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2067	"return a left-hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2068
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2069	^ self shape:#leftHand
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2070
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2071	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2072	Cursor leftHand
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2073	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2074	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2075
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2076	"Modified: 23.10.1997 / 00:24:31 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2077	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2078
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2079	leftLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2080	"return a left-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2081
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2082	^ self shape:#leftLimitArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2083
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2084	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2085	Cursor leftLimitArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2086	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2087	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2088
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2089	"Modified: 23.10.1997 / 00:24:14 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2090	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2091
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2092	leftRightArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2093	"return a left-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2094
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2095	LeftRightArrowCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2096	LeftRightArrowCursor := self shape:#leftRightArrow on:Display
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2097	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2098	^ LeftRightArrowCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2099
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2100	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2101	Cursor leftRightArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2102	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2103	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2104
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2105	"Modified: 23.10.1997 / 00:23:59 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2106	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2107
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2108	marker
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2109	"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	2110
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2111	^ MarkerCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2112
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2113	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2114	Cursor marker
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2115	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2116	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2117
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2118	"Modified: 23.10.1997 / 00:23:33 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2119	!
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2120
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2121	normal
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2122	"return the normal cursor; an arrow.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2123	for ST-80 compatibility"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2124
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2125	NormalCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2126	NormalCursor := self arrow
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2127	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2128	^ NormalCursor
1568 da93fbf75a36 * empty log message * Claus Gittinger <cg@exept.de> parents: 1564 diff changeset	2129
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2130
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2131	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2132	Cursor normal
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2133	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2134	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2135
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2136	"Modified: 23.10.1997 / 00:23:12 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2137	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2138
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2139	origin
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2140	"return an origin cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2141
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2142	OriginCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2143	OriginCursor := self shape:#origin on:Display
157 891eff44c2e7 . claus parents: 151 diff changeset	2144	].
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2145	^ OriginCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2146
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2147	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2148	Cursor origin
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2149	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2150	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2151
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2152	"Modified: 23.10.1997 / 00:22:58 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2153	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2154
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2155	questionMark
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2156	"return a question-mark cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2157
2194 9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2158	\|crsr\|
9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2159
9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2160	crsr := self shape:#questionMark on:Display.
9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2161	(crsr isNil
9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2162	or:[crsr id isNil]) ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2163	crsr := self wait
2194 9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2164	].
9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2165	^ crsr
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2166
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2167	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2168	Cursor questionMark
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2169	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2170	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2171
2194 9a1006b2d9de care for nil qustionMark shape. Claus Gittinger <cg@exept.de> parents: 2121 diff changeset	2172	"Modified: / 27.7.1998 / 20:20:44 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2173	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2174
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2175	read
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2176	"return a reading-file cursor (the default here is a wait-cursor)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2177
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2178	ReadCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2179	^ ReadCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2180	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2181	^ self wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2182
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2183	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2184	Cursor read
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2185	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2186	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2187
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2188	"Modified: 23.10.1997 / 00:22:23 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2189	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2190
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2191	right
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2192	"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	2193
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2194	^ RightCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2195
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2196	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2197	Cursor right
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2198	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2199	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2200
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2201	"Modified: 23.10.1997 / 00:22:05 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2202	!
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2203
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2204	rightLimitArrow
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2205	"return a right-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2206
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2207	^ self shape:#rightLimitArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2208
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2209
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2210	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2211	Cursor rightLimitArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2212	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2213	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2214
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2215	"Modified: 23.10.1997 / 00:15:12 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2216	"Created: 23.10.1997 / 00:21:21 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2217	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2218
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2219	stop
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2220	"return a stop cursor (the default here is a wait-cursor)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2221
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2222	StopCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2223	^ StopCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2224	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2225	^ self wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2226
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2227	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2228	Cursor stop
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2229	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2230	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2231
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2232	"Modified: 23.10.1997 / 00:20:52 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2233	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2234
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2235	text
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2236	"return a text-cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2237
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2238	^ self shape:#text on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2239
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2240	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2241	Cursor text
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2242	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2243	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2244
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2245	"Modified: 23.10.1997 / 00:20:37 / cg"
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2246	!
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2247
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2248	thumbsDown
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2249	"return a hand cursor - ST-80 compatibility"
cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2250
157 891eff44c2e7 . claus parents: 151 diff changeset	2251	ThumbsDownCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2252	^ ThumbsDownCursor
157 891eff44c2e7 . claus parents: 151 diff changeset	2253	].
56 cc69f5a6a51d thumbsUp/Down for compatibility claus parents: 54 diff changeset	2254	^ self hand
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2255
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2256	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2257	Cursor thumbsDown
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2258	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2259	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2260
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2261	"Modified: 23.10.1997 / 00:20:20 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2262	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2263
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2264	thumbsUp
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2265	"return a hand cursor - ST-80 compatibility"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2266
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2267	ThumbsUpCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2268	^ ThumbsUpCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2269	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2270	^ self hand
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2271
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2272	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2273	Cursor thumbsUp
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2274	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2275	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2276
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2277	"Modified: 23.10.1997 / 00:20:04 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2278	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2279
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2280	topLeft
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2281	"return a top-left corner cursor"
0 48194c26a46c Initial revision claus parents: diff changeset	2282
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2283	^ self origin
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2284
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2285	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2286	Cursor topLeft
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2287	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2288	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2289
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2290	"Modified: 23.10.1997 / 00:19:50 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2291	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2292
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2293	topRight
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2294	"return a top-right corner cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2295
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2296	^ self shape:#topRight on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2297
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2298	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2299	Cursor topRight
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2300	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2301	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2302
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2303	"Modified: 23.10.1997 / 00:19:33 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2304	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2305
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2306	up
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2307	"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	2308
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2309	^ UpCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2310
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2311	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2312	Cursor up
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2313	showWhile:[ Delay waitForSeconds:5 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2314	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2315
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2316	"Modified: 23.10.1997 / 00:19:14 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2317	!
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2318
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2319	upDownArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2320	"return an up-down-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2321
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2322	UpDownArrowCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2323	UpDownArrowCursor := self shape:#upDownArrow on:Display
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2324	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2325	^ UpDownArrowCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2326
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2327	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2328	Cursor upDownArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2329	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2330	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2331
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2332	"Modified: 23.10.1997 / 00:18:53 / cg"
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
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2335	upLeftArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2336	"return an up-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2337
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2338	^ self shape:#upLeftArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2339
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2340	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2341	Cursor upLeftArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2342	showWhile:[ Delay waitForSeconds:3 ]
1934 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
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2345	"Modified: 23.10.1997 / 00:18:37 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2346	!
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2347
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2348	upLimitArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2349	"return an up-arrow-to-limit cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2350
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2351	^ self shape:#upLimitArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2352
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2353	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2354	Cursor upLimitArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2355	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2356	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2357
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2358	"Modified: 23.10.1997 / 00:18:19 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2359	!
0 48194c26a46c Initial revision claus parents: diff changeset	2360
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2361	upRightArrow
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2362	"return an up-right-arrow cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2363
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2364	^ self shape:#upRightArrow on:Display
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2365
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	Cursor upRightArrow
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2368	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2369	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2370
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2371	"Modified: 23.10.1997 / 00:18:03 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2372	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2373
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2374	upRightHand
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2375	"return an up-right-hand cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2376
2063 1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2377	UpRightHandCursor isNil ifTrue:[
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2378	UpRightHandCursor := self shape:#upRightHand on:Display.
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2379	UpRightHandCursor isNil ifTrue:[
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2380	UpRightHandCursor := self normal
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2381	]
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2382	].
1c05343eab43 md's changes for WIN32 Claus Gittinger <cg@exept.de> parents: 1934 diff changeset	2383	^ UpRightHandCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2384
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2385	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2386	Cursor upRightHand
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2387	showWhile:[ Delay waitForSeconds:3 ]
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: 23.10.1997 / 00:17:46 / cg"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2391	!
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2392
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2393	wait
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2394	"return a wait cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2395
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2396	WaitCursor isNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2397	WaitCursor := self shape:#wait on:Display
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2398	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2399	^ WaitCursor
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2400
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	Cursor wait
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2403	showWhile:[ Delay waitForSeconds:3 ]
1934 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
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2406	"Modified: 23.10.1997 / 00:17:32 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2407	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2408
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2409	write
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2410	"return a writing-file cursor (the default here is a wait-cursor)"
0 48194c26a46c Initial revision claus parents: diff changeset	2411
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2412	WriteCursor notNil ifTrue:[
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2413	^ WriteCursor
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2414	].
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2415	^ self wait
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2416
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2417	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2418	Cursor write
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2419	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2420	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2421
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2422	"Modified: 23.10.1997 / 00:17:22 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2423	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2424
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2425	xMarker
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2426	"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	2427
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2428	^ XMarkerCursor
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2429
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2430	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2431	Cursor xMarker
2362 e391d80efdb5 execute cursor under windows Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	2432	showWhile:[ Delay waitForSeconds:3 ]
1934 fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2433	"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2434
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2435	"Modified: 23.10.1997 / 00:16:44 / cg"
fe7d73fe0df4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1929 diff changeset	2436	! !
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2437
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2438	!Cursor methodsFor:'ST-80 displaying'!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2439
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2440	displayOn:aGC at:origin clippingBox:aRectangle rule:aRule mask:aMask
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2441	"ST-80 compatibility;
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2442	limited functionality: can only display bitmap cursors (yet)"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2443
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2444	sourceForm notNil ifTrue:[
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2445	sourceForm displayOn:aGC at:origin clippingBox:aRectangle
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2446	rule:aRule mask:aMask
0 48194c26a46c Initial revision claus parents: diff changeset	2447	]
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2448	!
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2449
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2450	show
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2451	"ST-80 mimicri: change cursors in active groups views to the receiver."
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2452
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2453	\|wg\|
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2454
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2455	(wg := WindowGroup activeGroup) notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2456	wg showCursor:self
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2457	]
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2458
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2459	"Modified: 13.1.1997 / 20:10:01 / cg"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2460	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2461
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2462	showIn:aView
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2463	"ST-80 mimicri: install the receiver as aViews cursor"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2464
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2465	aView cursor:self
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2466	!
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2467
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2468	showIn:aView while:aBlock
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2469	"ST-80 mimicri: change aViews cursors to the receiver, while evaluationg aBlock.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2470	Return the value as returned by aBlock."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2471
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2472	\|savedCursor\|
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2473
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2474	savedCursor := aView cursor.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2475	aView cursor:self.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2476	^ aBlock valueNowOrOnUnwindDo:[aView cursor:savedCursor]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2477	!
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2478
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2479	showWhile:aBlock
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2480	"ST-80 mimicri: change all views cursors to the receiver.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2481	Return the value as returned by aBlock."
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2482
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2483	\|wg\|
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2484
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2485	(wg := WindowGroup activeGroup) notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2486	^ wg withCursor:self do:aBlock
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2487	] ifFalse:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2488	aBlock value
1188 2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2489	]
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2490
2a4d644e8828 care for nil-windowGroup in #show and #showWhile: Claus Gittinger <cg@exept.de> parents: 1181 diff changeset	2491	"Modified: 13.1.1997 / 20:10:25 / cg"
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2492	! !
b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2493
0 48194c26a46c Initial revision claus parents: diff changeset	2494	!Cursor methodsFor:'accessing'!
48194c26a46c Initial revision claus parents: diff changeset	2495
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2496	device
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2497	"return the device I am associated with"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2498
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2499	^ device
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2500	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2501
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2502	foreground:fgColor background:bgColor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2503	"set the cursor colors"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2504
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2505	device colorCursor:cursorId foreground:fgColor background:bgColor
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2506	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2507
733 131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2508	graphicsDevice
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2509	"same as #device, for ST-80 compatibility naming.
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2510	Return the device I am associated with."
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2511
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2512	^ device
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2513
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2514	"Created: 28.5.1996 / 18:39:01 / cg"
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2515	!
131299fba292 checkin from browser Claus Gittinger <cg@exept.de> parents: 727 diff changeset	2516
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2517	hotX
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2518	"return the hotspots x-coordinate of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2519
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2520	^ hotX
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2521	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2522
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2523	hotY
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2524	"return the hotspots y-coordinate of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2525
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2526	^ hotY
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2527	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2528
0 48194c26a46c Initial revision claus parents: diff changeset	2529	id
48194c26a46c Initial revision claus parents: diff changeset	2530	"return the cursors deviceId"
48194c26a46c Initial revision claus parents: diff changeset	2531
48194c26a46c Initial revision claus parents: diff changeset	2532	^ cursorId
48194c26a46c Initial revision claus parents: diff changeset	2533	!
48194c26a46c Initial revision claus parents: diff changeset	2534
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2535	maskForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2536	"return the mask-form of the receiver"
0 48194c26a46c Initial revision claus parents: diff changeset	2537
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2538	^ maskForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2539	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2540
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2541	maskForm:aForm
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2542	"set the mask-form of the receiver"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2543
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2544	maskForm := aForm
0 48194c26a46c Initial revision claus parents: diff changeset	2545	!
48194c26a46c Initial revision claus parents: diff changeset	2546
48194c26a46c Initial revision claus parents: diff changeset	2547	shape
48194c26a46c Initial revision claus parents: diff changeset	2548	"return the shape"
48194c26a46c Initial revision claus parents: diff changeset	2549
48194c26a46c Initial revision claus parents: diff changeset	2550	^ shape
48194c26a46c Initial revision claus parents: diff changeset	2551	!
48194c26a46c Initial revision claus parents: diff changeset	2552
48194c26a46c Initial revision claus parents: diff changeset	2553	sourceForm
48194c26a46c Initial revision claus parents: diff changeset	2554	"return the source-form of the receiver"
48194c26a46c Initial revision claus parents: diff changeset	2555
48194c26a46c Initial revision claus parents: diff changeset	2556	^ sourceForm
48194c26a46c Initial revision claus parents: diff changeset	2557	!
48194c26a46c Initial revision claus parents: diff changeset	2558
48194c26a46c Initial revision claus parents: diff changeset	2559	sourceForm:aForm
48194c26a46c Initial revision claus parents: diff changeset	2560	"set the source-form of the receiver"
48194c26a46c Initial revision claus parents: diff changeset	2561
48194c26a46c Initial revision claus parents: diff changeset	2562	sourceForm := aForm
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2563	! !
0 48194c26a46c Initial revision claus parents: diff changeset	2564
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2565	!Cursor methodsFor:'copying'!
0 48194c26a46c Initial revision claus parents: diff changeset	2566
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2567	postCopy
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2568	sourceForm := sourceForm copy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2569	maskForm := maskForm copy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2570	device := cursorId := nil
0 48194c26a46c Initial revision claus parents: diff changeset	2571	! !
48194c26a46c Initial revision claus parents: diff changeset	2572
48194c26a46c Initial revision claus parents: diff changeset	2573	!Cursor methodsFor:'creating a device cursor'!
48194c26a46c Initial revision claus parents: diff changeset	2574
48194c26a46c Initial revision claus parents: diff changeset	2575	on:aDevice
48194c26a46c Initial revision claus parents: diff changeset	2576	"create a new Cursor representing the same cursor as
48194c26a46c Initial revision claus parents: diff changeset	2577	myself on aDevice; if one already exists, return the one"
48194c26a46c Initial revision claus parents: diff changeset	2578
1741 b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	2579	"/ send out a warning: #on: is typically used to create viewa
b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	2580	"/ operating on a model.
b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	2581	"/ Please use #onDevice: to avoid confusion.
b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	2582
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2583	self obsoleteMethodWarning:'use #onDevice:'.
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2584	^ self onDevice:aDevice
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2585
1741 b84a2f4317e9 warn #on: vs. #onDevice: Claus Gittinger <cg@exept.de> parents: 1698 diff changeset	2586	"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	2587	!
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2588
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2589	onDevice:aDevice
4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2590	"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	2591	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	2592
0 48194c26a46c Initial revision claus parents: diff changeset	2593	aDevice isNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2594	"this may not happen"
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2595	self error:'nil device'
0 48194c26a46c Initial revision claus parents: diff changeset	2596	].
48194c26a46c Initial revision claus parents: diff changeset	2597
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2598	"if I am already assigned to that device ..."
0 48194c26a46c Initial revision claus parents: diff changeset	2599	(device == aDevice) ifTrue:[^ self].
48194c26a46c Initial revision claus parents: diff changeset	2600
48194c26a46c Initial revision claus parents: diff changeset	2601	"first look if not already there"
115 1d93fd8c5371 * empty log message * claus parents: 89 diff changeset	2602	Lobby do:[:aCursor \|
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2603	(aCursor graphicsDevice == aDevice) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2604	shape notNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2605	(aCursor shape == shape) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2606	^ aCursor
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2607	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2608	] ifFalse:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2609	(aCursor sourceForm == sourceForm) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2610	(aCursor maskForm == maskForm) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2611	(aCursor hotX == hotX) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2612	(aCursor hotY == hotY) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2613	^ aCursor
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2614	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2615	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2616	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2617	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2618	]
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2619	]
0 48194c26a46c Initial revision claus parents: diff changeset	2620	].
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2621	^ self newOn:aDevice
927 c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	2622
c4bc2a7ff733 use #graphicsDevice instead of #device. Claus Gittinger <cg@exept.de> parents: 864 diff changeset	2623	"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	2624	"Created: 28.3.1997 / 13:46:38 / cg"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2625	! !
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2626
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2627	!Cursor methodsFor:'instance release'!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2628
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2629	disposed
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2630	"some Cursor has been collected - tell it to the display"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2631
2096 f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2632	\|id\|
f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2633
f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2634	(id := cursorId) notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2635	cursorId := nil.
2096 f3f0d358239f * empty log message * Claus Gittinger <cg@exept.de> parents: 2063 diff changeset	2636	device destroyCursor:id.
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2637	]
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2638	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2639
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2640	shallowCopyForFinalization
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2641	"redefined to return a lightweight copy
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2642	- all we need is the device handle"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2643
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2644	^ self class basicNew setDevice:device id:cursorId
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2645
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2646	"Modified: 20.4.1996 / 23:23:19 / cg"
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2647	! !
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2648
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2649	!Cursor methodsFor:'private'!
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2650
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2651	device:aDevice
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2652	"set the cursors device"
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2653
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2654	device := aDevice
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2655	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2656
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2657	id:anId
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2658	"set the cursors id"
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2659
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2660	cursorId := anId
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2661	!
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2662
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2663	newOn:aDevice
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2664	"create a new Cursor representing the same cursor as
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2665	myself on aDevice. Dont search the lobby."
6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2666
974 12797746a1f7 WIN32 changes Claus Gittinger <cg@exept.de> parents: 927 diff changeset	2667	\|newCursor id sF mF w h\|
0 48194c26a46c Initial revision claus parents: diff changeset	2668
48194c26a46c Initial revision claus parents: diff changeset	2669	"ask that device for the cursor"
48194c26a46c Initial revision claus parents: diff changeset	2670	shape notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2671	id := aDevice createCursorShape:shape.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2672	id isNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2673	'Cursor [warning]: no cursor with shape:' errorPrint. shape errorPrintCR.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2674	^ self
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2675	].
0 48194c26a46c Initial revision claus parents: diff changeset	2676	] ifFalse:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2677	aDevice needDeviceFormsForCursor ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2678	sourceForm notNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2679	sF := sourceForm asFormOn:aDevice.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2680	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2681	maskForm notNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2682	mF := maskForm asFormOn:aDevice.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2683	] ifFalse:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2684	mF := sF
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2685	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2686	(sF notNil and:[mF notNil]) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2687	sourceForm := sF.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2688	maskForm := mF.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2689	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2690	] ifFalse:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2691	sourceForm notNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2692	sF := sourceForm bits
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2693	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2694	maskForm notNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2695	mF := maskForm bits.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2696	] ifFalse:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2697	mF := sF
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2698	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2699	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2700	(sF isNil or:[mF isNil]) ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2701	'Cursor [warning]: cursor has no form' errorPrintCR.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2702	^ self
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2703	].
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2704	w := sourceForm width.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2705	h := sourceForm height.
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2706	id := aDevice
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2707	createCursorSourceForm:sF
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2708	maskForm:mF
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2709	hotX:hotX hotY:hotY
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2710	width:w height:h.
5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2711
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2712	id isNil ifTrue:[
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2713	'Cursor [warning]: cannot create pixmap cursor' errorPrintCR.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2714	^ self
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2715	].
0 48194c26a46c Initial revision claus parents: diff changeset	2716	].
48194c26a46c Initial revision claus parents: diff changeset	2717
48194c26a46c Initial revision claus parents: diff changeset	2718	"goody for IRIXs red cursor"
48194c26a46c Initial revision claus parents: diff changeset	2719	DefaultFgColor notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2720	aDevice colorCursor:id foreground:DefaultFgColor
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2721	background:DefaultBgColor
0 48194c26a46c Initial revision claus parents: diff changeset	2722	].
48194c26a46c Initial revision claus parents: diff changeset	2723
48194c26a46c Initial revision claus parents: diff changeset	2724	device isNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2725	"receiver was not associated - do it now"
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2726	device := aDevice.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2727	cursorId := id.
0 48194c26a46c Initial revision claus parents: diff changeset	2728
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2729	"must re-register, the old registration had a nil cursorId in it"
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2730	Lobby registerChange:self.
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2731	^ self
0 48194c26a46c Initial revision claus parents: diff changeset	2732	].
48194c26a46c Initial revision claus parents: diff changeset	2733
48194c26a46c Initial revision claus parents: diff changeset	2734	"receiver was already associated to another device - need a new cursor"
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2735	newCursor := self class basicNew.
0 48194c26a46c Initial revision claus parents: diff changeset	2736	shape notNil ifTrue:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2737	newCursor setShape:shape.
0 48194c26a46c Initial revision claus parents: diff changeset	2738	] ifFalse:[
1698 dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2739	newCursor setSourceForm:sourceForm
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2740	maskForm:maskForm
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2741	hotX:hotX
dbe81b9c195e * empty log message * Claus Gittinger <cg@exept.de> parents: 1568 diff changeset	2742	hotY:hotY
0 48194c26a46c Initial revision claus parents: diff changeset	2743	].
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2744	newCursor setDevice:aDevice id:id.
23 4a7e02de7b72 * empty log message * claus parents: 12 diff changeset	2745	Lobby register:newCursor.
0 48194c26a46c Initial revision claus parents: diff changeset	2746	^ newCursor
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2747
1181 c413283ca28f checkin from browser Claus Gittinger <cg@exept.de> parents: 1178 diff changeset	2748	"Modified: 10.1.1997 / 19:08:20 / cg"
71 6a42b2b115f8 * empty log message * claus parents: 56 diff changeset	2749	!
0 48194c26a46c Initial revision claus parents: diff changeset	2750
2 b35336ab0de3 * empty log message * claus parents: 0 diff changeset	2751	restored
0 48194c26a46c Initial revision claus parents: diff changeset	2752	"set both device and id"
48194c26a46c Initial revision claus parents: diff changeset	2753
48194c26a46c Initial revision claus parents: diff changeset	2754	device := nil.
48194c26a46c Initial revision claus parents: diff changeset	2755	cursorId := nil
48194c26a46c Initial revision claus parents: diff changeset	2756	! !
48194c26a46c Initial revision claus parents: diff changeset	2757
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2758	!Cursor methodsFor:'private accessing'!
0 48194c26a46c Initial revision claus parents: diff changeset	2759
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2760	setDevice:aDevice id:anId
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2761	"set the device and deviceId of the receiver"
160 f7d9126b3c0b . claus parents: 157 diff changeset	2762
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2763	device := aDevice.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2764	cursorId := anId
0 48194c26a46c Initial revision claus parents: diff changeset	2765	!
48194c26a46c Initial revision claus parents: diff changeset	2766
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2767	setShape:aShapeSymbol
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2768	"set the shape"
160 f7d9126b3c0b . claus parents: 157 diff changeset	2769
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2770	shape := aShapeSymbol.
0 48194c26a46c Initial revision claus parents: diff changeset	2771	!
48194c26a46c Initial revision claus parents: diff changeset	2772
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2773	setSourceForm:sForm maskForm:mForm hotX:hx hotY:hy
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2774	"set the forms and hotspot"
0 48194c26a46c Initial revision claus parents: diff changeset	2775
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2776	sourceForm := sForm.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2777	maskForm := mForm.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2778	hotX := hx.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2779	hotY := hy.
13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2780	! !
157 891eff44c2e7 . claus parents: 151 diff changeset	2781
1811 6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2782	!Cursor methodsFor:'queries'!
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2783
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2784	isAnimatedCursor
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2785	^ false
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2786
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2787	"Created: 26.6.1997 / 11:12:48 / cg"
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2788	! !
6b10d567fb89 added #isAnimatedCursor Claus Gittinger <cg@exept.de> parents: 1741 diff changeset	2789
1140 e0e5da9b080b use Image instead of Form Claus Gittinger <cg@exept.de> parents: 974 diff changeset	2790	!Cursor class methodsFor:'documentation'!
0 48194c26a46c Initial revision claus parents: diff changeset	2791
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2792	version
2370 5f45f0d30fba inverted some cursors for win32 (looks better) Claus Gittinger <cg@exept.de> parents: 2362 diff changeset	2793	^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.61 1998-09-28 09:27:16 cg Exp $'
0 48194c26a46c Initial revision claus parents: diff changeset	2794	! !
577 13095d631a2a commentary Claus Gittinger <cg@exept.de> parents: 499 diff changeset	2795	Cursor initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 28 Sep 1998 11:27:16 +0200
changeset 2370	5f45f0d30fba
parent 2362	e391d80efdb5
child 2372	e84fd06f8d2d
permissions	-rw-r--r--