hg/stx-libview: WindowEvent.st@fd4bf9d73cac (annotated)

26 ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	1	"
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
72 3e84121988c3 * empty log message * claus parents: 54 diff changeset	3	All Rights Reserved
26 ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	4
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	5	This software is furnished under a license and may be used
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	6	only in accordance with the terms of that license and with the
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	7	inclusion of the above copyright notice. This software may not
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	8	be provided or otherwise made available to, or used by, any
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	9	other person. No title to or ownership of the software is
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	10	hereby transferred.
ac9f66dc8f53 * empty log message * claus parents: 23 diff changeset	11	"
3294 6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	12	"{ Package: 'stx:libview' }"
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	13
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	14	MessageSend subclass:#WindowEvent
3936 4291abc997ed added timeStamp Claus Gittinger <cg@exept.de> parents: 3879 diff changeset	15	instanceVariableNames:'delegatedFrom consumed timeStamp'
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	16	classVariableNames:''
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	17	poolDictionaries:''
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	18	category:'Interface-Support'
11 bc3949e465a0 Initial revision claus parents: diff changeset	19	!
bc3949e465a0 Initial revision claus parents: diff changeset	20
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	21	WindowEvent subclass:#ApplicationEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	22	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	23	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	24	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	25	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	26	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	27
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	28	WindowEvent subclass:#InputEvent
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	29	instanceVariableNames:'modifierFlags'
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	30	classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3'
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	31	poolDictionaries:''
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	32	privateIn:WindowEvent
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	33	!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	34
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	35	WindowEvent::InputEvent subclass:#ButtonEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	36	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	37	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	38	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	39	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	40	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	41
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	42	WindowEvent::ButtonEvent subclass:#ButtonPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	43	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	44	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	45	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	46	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	47	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	48
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	49	WindowEvent::ButtonPressEvent subclass:#ButtonMultiPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	50	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	51	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	52	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	53	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	54	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	55
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	56	WindowEvent::ButtonEvent subclass:#ButtonReleaseEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	57	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	58	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	59	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	60	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	61	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	62
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	63	WindowEvent subclass:#ClientEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	64	instanceVariableNames:'eventData'
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	65	classVariableNames:''
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	66	poolDictionaries:''
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	67	privateIn:WindowEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	68	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	69
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	70	WindowEvent subclass:#ConfigureEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	71	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	72	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	73	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	74	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	75	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	76
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	77	WindowEvent subclass:#DamageEvent
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	78	instanceVariableNames:''
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	79	classVariableNames:''
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	80	poolDictionaries:''
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	81	privateIn:WindowEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	82	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	83
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	84	WindowEvent::InputEvent subclass:#DropEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	85	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	86	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	87	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	88	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	89	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	90
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	91	WindowEvent::InputEvent subclass:#EnterLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	92	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	93	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	94	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	95	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	96	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	97
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	98	WindowEvent::InputEvent subclass:#FocusEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	99	instanceVariableNames:''
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	100	classVariableNames:''
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	101	poolDictionaries:''
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	102	privateIn:WindowEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	103	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	104
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	105	WindowEvent::ButtonEvent subclass:#ButtonMotionEvent
3294 6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	106	instanceVariableNames:''
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	107	classVariableNames:''
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	108	poolDictionaries:''
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	109	privateIn:WindowEvent
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	110	!
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	111
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	112	WindowEvent::InputEvent subclass:#KeyboardEvent
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	113	instanceVariableNames:'rawKey'
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	114	classVariableNames:''
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	115	poolDictionaries:''
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	116	privateIn:WindowEvent
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	117	!
6bcc3e052d34 checkin from browser Claus Gittinger <cg@exept.de> parents: 3138 diff changeset	118
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	119	WindowEvent::KeyboardEvent subclass:#KeyReleaseEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	120	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	121	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	122	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	123	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	124	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	125
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	126	WindowEvent::KeyboardEvent subclass:#KeyPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	127	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	128	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	129	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	130	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	131	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	132
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	133	WindowEvent::InputEvent subclass:#KeyboardFocusEvent
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	134	instanceVariableNames:''
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	135	classVariableNames:''
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	136	poolDictionaries:''
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	137	privateIn:WindowEvent
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	138	!
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	139
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	140	WindowEvent subclass:#MessageSendEvent
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	141	instanceVariableNames:''
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	142	classVariableNames:''
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	143	poolDictionaries:''
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	144	privateIn:WindowEvent
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	145	!
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	146
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	147	WindowEvent::ButtonEvent subclass:#MouseWheelMotionEvent
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	148	instanceVariableNames:''
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	149	classVariableNames:''
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	150	poolDictionaries:''
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	151	privateIn:WindowEvent
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	152	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	153
4144 42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	154	WindowEvent::InputEvent subclass:#NativeWidgetCommandEvent
4233 088575f01a8a native stuff ca parents: 4144 diff changeset	155	instanceVariableNames:''
4144 42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	156	classVariableNames:''
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	157	poolDictionaries:''
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	158	privateIn:WindowEvent
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	159	!
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	160
4044 dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	161	WindowEvent subclass:#NewDamageEvent
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	162	instanceVariableNames:''
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	163	classVariableNames:''
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	164	poolDictionaries:''
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	165	privateIn:WindowEvent
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	166	!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	167
3758 c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	168	WindowEvent subclass:#SelectionEvent
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	169	instanceVariableNames:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	170	classVariableNames:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	171	poolDictionaries:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	172	privateIn:WindowEvent
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	173	!
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	174
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	175	WindowEvent::SelectionEvent subclass:#SelectionClearEvent
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	176	instanceVariableNames:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	177	classVariableNames:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	178	poolDictionaries:''
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	179	privateIn:WindowEvent
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	180	!
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	181
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	182	WindowEvent subclass:#TerminateEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	183	instanceVariableNames:''
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	184	classVariableNames:''
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	185	poolDictionaries:''
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	186	privateIn:WindowEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	187	!
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	188
4817 2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	189	WindowEvent::InputEvent subclass:#TrayActionEvent
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	190	instanceVariableNames:''
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	191	classVariableNames:''
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	192	poolDictionaries:''
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	193	privateIn:WindowEvent
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	194	!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	195
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	196	WindowEvent subclass:#WindowMapUnmapEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	197	instanceVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	198	classVariableNames:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	199	poolDictionaries:''
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	200	privateIn:WindowEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	201	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	202
46 7b331e9012fd * empty log message * claus parents: 28 diff changeset	203	!WindowEvent class methodsFor:'documentation'!
7b331e9012fd * empty log message * claus parents: 28 diff changeset	204
7b331e9012fd * empty log message * claus parents: 28 diff changeset	205	copyright
7b331e9012fd * empty log message * claus parents: 28 diff changeset	206	"
7b331e9012fd * empty log message * claus parents: 28 diff changeset	207	COPYRIGHT (c) 1993 by Claus Gittinger
72 3e84121988c3 * empty log message * claus parents: 54 diff changeset	208	All Rights Reserved
46 7b331e9012fd * empty log message * claus parents: 28 diff changeset	209
7b331e9012fd * empty log message * claus parents: 28 diff changeset	210	This software is furnished under a license and may be used
7b331e9012fd * empty log message * claus parents: 28 diff changeset	211	only in accordance with the terms of that license and with the
7b331e9012fd * empty log message * claus parents: 28 diff changeset	212	inclusion of the above copyright notice. This software may not
7b331e9012fd * empty log message * claus parents: 28 diff changeset	213	be provided or otherwise made available to, or used by, any
7b331e9012fd * empty log message * claus parents: 28 diff changeset	214	other person. No title to or ownership of the software is
7b331e9012fd * empty log message * claus parents: 28 diff changeset	215	hereby transferred.
7b331e9012fd * empty log message * claus parents: 28 diff changeset	216	"
7b331e9012fd * empty log message * claus parents: 28 diff changeset	217	!
7b331e9012fd * empty log message * claus parents: 28 diff changeset	218
7b331e9012fd * empty log message * claus parents: 28 diff changeset	219	documentation
7b331e9012fd * empty log message * claus parents: 28 diff changeset	220	"
7b331e9012fd * empty log message * claus parents: 28 diff changeset	221	Instances of WindowEvent are created for every event coming from
144 cf645a1ebbb3 . claus parents: 143 diff changeset	222	the graphics device.
cf645a1ebbb3 . claus parents: 143 diff changeset	223	Usually, they are enqueued by the event dispatcher process into
cf645a1ebbb3 . claus parents: 143 diff changeset	224	a sensors input queue, and dequeued & processed by a windowGroup process
cf645a1ebbb3 . claus parents: 143 diff changeset	225	in its event loop.
cf645a1ebbb3 . claus parents: 143 diff changeset	226
cf645a1ebbb3 . claus parents: 143 diff changeset	227	WindowEvents hold the event type and additional information (such as key,
cf645a1ebbb3 . claus parents: 143 diff changeset	228	x/y coordinates etc). Also, windowEvents know how to send themself to some
cf645a1ebbb3 . claus parents: 143 diff changeset	229	destination. To provide a common (single) place where event dispatching is
1421 0f7c6d4ba280 checkin from browser Claus Gittinger <cg@exept.de> parents: 1420 diff changeset	230	implemented, this forwarding is done by a class method here (i.e. not by the
144 cf645a1ebbb3 . claus parents: 143 diff changeset	231	window group itself).
cf645a1ebbb3 . claus parents: 143 diff changeset	232
cf645a1ebbb3 . claus parents: 143 diff changeset	233	The algorithm for event dispatching is:
cf645a1ebbb3 . claus parents: 143 diff changeset	234
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	235	- if the destination view has a keyboard focus set,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	236	AND the event is a keyboard event,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	237	THEN recursively invoke the event dispatching method,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	238	sending the event to the focus view (or its delegate, as below)
144 cf645a1ebbb3 . claus parents: 143 diff changeset	239
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	240	- if the destination view has a delegate,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	241	AND its a keyboard, button or pointer event,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	242	AND the delegate is interested in that event
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	243	(i.e. implements & responds to #handlesXXX with true)
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	244	THEN send the event to the delegate, passing the original view
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	245	as additional argument
144 cf645a1ebbb3 . claus parents: 143 diff changeset	246
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	247	- if the view has a nonNil controller,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	248	AND its a key, button or pointer event,
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	249	THEN send the event to the controller
144 cf645a1ebbb3 . claus parents: 143 diff changeset	250
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	251	- otherwise send the event to the view
144 cf645a1ebbb3 . claus parents: 143 diff changeset	252
cf645a1ebbb3 . claus parents: 143 diff changeset	253
cf645a1ebbb3 . claus parents: 143 diff changeset	254	If the view has a non-nil transformation, the event is sent as a
cf645a1ebbb3 . claus parents: 143 diff changeset	255	#deviceXXX message, passing device coordinates. Typically, subclasses
cf645a1ebbb3 . claus parents: 143 diff changeset	256	of view do not redefine this method and the inherited default method
cf645a1ebbb3 . claus parents: 143 diff changeset	257	translates these device coordinates into logical coordinates and resends
cf645a1ebbb3 . claus parents: 143 diff changeset	258	an XXX message.
cf645a1ebbb3 . claus parents: 143 diff changeset	259	If the view has no transformation, the XXX message is directly sent here.
cf645a1ebbb3 . claus parents: 143 diff changeset	260
cf645a1ebbb3 . claus parents: 143 diff changeset	261	For example, a 'buttonPress:button x:x y:y' event leads to sending of
cf645a1ebbb3 . claus parents: 143 diff changeset	262	'aView deviceButtonPress:button x:x y:y' which resends
cf645a1ebbb3 . claus parents: 143 diff changeset	263	'aView buttonPress:button x:(x-logical) y:(y-logical)'
cf645a1ebbb3 . claus parents: 143 diff changeset	264
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 251 diff changeset	265	This allows views which are interested in deviceCoordinates to get them
144 cf645a1ebbb3 . claus parents: 143 diff changeset	266	(by redefining #deviceXXX) and other views to transparently get & use
cf645a1ebbb3 . claus parents: 143 diff changeset	267	logical coordinates.
cf645a1ebbb3 . claus parents: 143 diff changeset	268
cf645a1ebbb3 . claus parents: 143 diff changeset	269	Therefore, for a delegated keyPress messages, the flow is:
cf645a1ebbb3 . claus parents: 143 diff changeset	270
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	271	sendEvent
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	272	view has delegate
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	273	------> ask delegate via 'handlesKeyPress:key inView:view'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	274	<------ returns true
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	275	------> 'delegate keyPress:key x:x y:y view:view'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	276	-----> delegate does whatever it wants to do
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	277	(typically sends the event to some other view)
144 cf645a1ebbb3 . claus parents: 143 diff changeset	278
cf645a1ebbb3 . claus parents: 143 diff changeset	279	for an undelegated message:
cf645a1ebbb3 . claus parents: 143 diff changeset	280
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	281	sendEvent
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	282	view has delegate
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	283	------> ask delegate via 'handlesKeyPress:key inView:view'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	284	<------ returns false
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	285	view has controller
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	286	------> 'controller keyPress:key x:x y:y'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	287	view has no controller
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	288	view has transformation
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	289	----> 'view deviceKeyPress:key x:x y:y'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	290	inverse transform x/y
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	291	----> 'self keyPress:key x:xLogical y:yLogical'
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	292	view has no transformation
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	293	----> 'view keyPress:key x:x y:y'
598 1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 511 diff changeset	294
612 8758d0c9933e documentation Claus Gittinger <cg@exept.de> parents: 598 diff changeset	295	[author:]
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	296	Claus Gittinger
612 8758d0c9933e documentation Claus Gittinger <cg@exept.de> parents: 598 diff changeset	297
598 1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 511 diff changeset	298	[see also:]
1982 55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	299	WindowGroup WindowSensor
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	300	DeviceWorkstation View
55d0357449c2 oops - pointerLeave events did not return true for the #isPointerXXX query Claus Gittinger <cg@exept.de> parents: 1947 diff changeset	301	KeyboardMap KeyboardForwarder EventListener
598 1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 511 diff changeset	302
46 7b331e9012fd * empty log message * claus parents: 28 diff changeset	303	"
7b331e9012fd * empty log message * claus parents: 28 diff changeset	304	! !
7b331e9012fd * empty log message * claus parents: 28 diff changeset	305
11 bc3949e465a0 Initial revision claus parents: diff changeset	306	!WindowEvent class methodsFor:'instance creation'!
bc3949e465a0 Initial revision claus parents: diff changeset	307
4960 9c4c152bb058 * empty log message * Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	308	buttonMotion:buttonAndModifierState x:x y:y view:aView
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	309	^ (ButtonMotionEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	310	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	311	type:#buttonMotion:x:y:
4960 9c4c152bb058 * empty log message * Claus Gittinger <cg@exept.de> parents: 4842 diff changeset	312	arguments:(Array with:buttonAndModifierState with:x with:y)
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	313	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	314
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	315	buttonMultiPress:button x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	316	^ (ButtonMultiPressEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	317	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	318	type:#buttonMultiPress:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	319	arguments:(Array with:button with:x with:y)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	320	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	321
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	322	buttonPress:button x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	323	^ (ButtonPressEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	324	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	325	type:#buttonPress:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	326	arguments:(Array with:button with:x with:y)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	327	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	328
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	329	buttonRelease:button x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	330	^ (ButtonReleaseEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	331	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	332	type:#buttonRelease:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	333	arguments:(Array with:button with:x with:y)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	334	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	335
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	336	clientMessageEvent:type format:format eventData:data view:aView
5000 e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	337	"this one is only used with X-Windows"
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	338
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	339	^ ClientEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	340	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	341	type:#clientMessage:format:eventData:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	342	arguments:(Array with:type with:format with:data)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	343	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	344
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	345	configureX:x y:y width:w height:h view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	346	^ ConfigureEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	347	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	348	type:#configureX:y:width:height:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	349	arguments:(Array with:x with:y with:w with:h)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	350	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	351
5020 f8ba55bc9b95 changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5000 diff changeset	352	copyDataEvent:parameter eventData:data view:aView
5000 e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	353	"this one is only used with Win32"
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	354
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	355	^ ClientEvent
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	356	for:aView
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	357	type:#copyDataEvent:eventData:
5020 f8ba55bc9b95 changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5000 diff changeset	358	arguments:(Array with:parameter with:data)
5000 e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	359	!
e0ec909988e9 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4991 diff changeset	360
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	361	coveredBy:coveringSiblingView view:coveredView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	362	^ (WindowEvent basicNew)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	363	for:coveredView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	364	type:#coveredBy:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	365	arguments:(Array with:coveringSiblingView)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	366	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	367
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	368	damageFor:aView rectangle:aRectangle
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	369	"create and return a new damage Event for aRectangle
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	370	in aView"
11 bc3949e465a0 Initial revision claus parents: diff changeset	371
4044 dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	372	^ DamageEvent for:aView type:#damage arguments:aRectangle
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	373	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	374
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	375	destroyedView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	376	^ (self basicNew)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	377	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	378	type:#destroyed
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	379	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	380
4459 8b13d9f5d3b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4458 diff changeset	381	dropFiles:files view:view position:dropPositionOrNil handle:dropHandleOrNil
4648 87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	382	^ self
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	383	dropMessage:(self dropType_files)
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	384	data:files
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	385	view:view
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	386	position:dropPositionOrNil
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	387	handle:dropHandleOrNil
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	388
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	389	"Modified: / 13-10-2006 / 10:11:47 / cg"
4456 f44dc25bf77b drop Claus Gittinger <cg@exept.de> parents: 4233 diff changeset	390	!
f44dc25bf77b drop Claus Gittinger <cg@exept.de> parents: 4233 diff changeset	391
4459 8b13d9f5d3b5 * empty log message * Claus Gittinger <cg@exept.de> parents: 4458 diff changeset	392	dropMessage:dropTypeSymbol data:dropValue view:aView position:positionOrNil handle:dropHandleOrNil
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	393	^ DropEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	394	for:aView
4461 adecf2db552f drag and drop Claus Gittinger <cg@exept.de> parents: 4459 diff changeset	395	type:#dropMessage:data:position:handle:
4458 9289b34fcea3 * empty log message * Claus Gittinger <cg@exept.de> parents: 4456 diff changeset	396	arguments:(Array with:dropTypeSymbol with:dropValue with:positionOrNil with:dropHandleOrNil)
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	397	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	398
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	399	focusInView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	400	^ FocusEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	401	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	402	type:#focusIn
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	403	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	404
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	405	focusOutView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	406	^ FocusEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	407	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	408	type:#focusOut
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	409	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	410
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	411	keyPress:key rawKey:untranslatedKey
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	412	hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	413	button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	414	x:x y:y view:aView
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	415
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	416	\|ev\|
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	417
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	418	ev := self keyPress:key x:x y:y view:aView.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	419	ev rawKey:untranslatedKey.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	420	ev hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	421	button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	422	^ ev
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	423	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	424
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	425	keyPress:key x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	426	^ (KeyPressEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	427	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	428	type:#keyPress:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	429	arguments:(Array with:key with:x with:y)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	430	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	431
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	432	keyRelease:key rawKey:untranslatedKey
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	433	hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	434	button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	435	x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	436
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	437	\|ev\|
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	438
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	439	ev := self keyRelease:key x:x y:y view:aView.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	440	ev rawKey:untranslatedKey.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	441	ev hasShift:shiftDown ctrl:ctrlDown alt:altDown meta:metaDown
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	442	button1:leftButtonDown button2:middleButtonDown button3:rightButtonDown.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	443	^ ev
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	444	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	445
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	446	keyRelease:key x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	447	^ (KeyReleaseEvent new)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	448	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	449	type:#keyRelease:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	450	arguments:(Array with:key with:x with:y)
46 7b331e9012fd * empty log message * claus parents: 28 diff changeset	451	!
7b331e9012fd * empty log message * claus parents: 28 diff changeset	452
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	453	keyboardFocus:arg view:aView
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	454
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	455	^ KeyboardFocusEvent
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	456	for:aView type:#hasKeyboardFocus: arguments:(Array with:arg).
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	457	!
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	458
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	459	mappedView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	460	^ WindowMapUnmapEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	461	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	462	type:#mapped
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	463	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	464
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	465	messageSend:receiver selector:aSelector arguments:arguments
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	466	^ MessageSendEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	467	for:receiver
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	468	type:aSelector
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	469	arguments:arguments
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	470	!
72 3e84121988c3 * empty log message * claus parents: 54 diff changeset	471
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	472	mouseWheelMotion:state x:x y:y amount:amount deltaTime:deltaTime view:aView
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	473	^ MouseWheelMotionEvent
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	474	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	475	type:#mouseWheelMotion:x:y:amount:deltaTime:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	476	arguments:(Array with:state with:x with:y with:amount with:deltaTime).
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	477	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	478
4233 088575f01a8a native stuff ca parents: 4144 diff changeset	479	nativeWidgetCommand:command arguments:argVector view:aView
4144 42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	480	^ (NativeWidgetCommandEvent new)
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	481	for:aView
4233 088575f01a8a native stuff ca parents: 4144 diff changeset	482	type:command
088575f01a8a native stuff ca parents: 4144 diff changeset	483	arguments:argVector
4144 42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	484	!
42b7f6e01565 preps for native widgets ca parents: 4044 diff changeset	485
4044 dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	486	newDamageFor:aView
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	487	"create and return a new damage Event for aView"
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	488
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	489	^ NewDamageEvent for:aView type:#newDamage
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	490	!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	491
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	492	pasteFromClipBoard:something view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	493	^ (self basicNew)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	494	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	495	type:#pasteFromClipBoard:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	496	arguments:(Array with:something).
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	497	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	498
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	499	pointerEnter:state x:x y:y view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	500	^ EnterLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	501	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	502	type:#pointerEnter:x:y:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	503	arguments:(Array with:state with:x with:y).
72 3e84121988c3 * empty log message * claus parents: 54 diff changeset	504	!
3e84121988c3 * empty log message * claus parents: 54 diff changeset	505
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	506	pointerLeave:state view:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	507	^ EnterLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	508	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	509	type:#pointerLeave:
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	510	arguments:(Array with:state).
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	511	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	512
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	513	postViewCreateNotification:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	514	^ (self basicNew)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	515	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	516	type:#postCreateView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	517	!
28 3879ff2138f1 * empty log message * claus parents: 26 diff changeset	518
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	519	preViewCreateNotification:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	520	^ (self basicNew)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	521	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	522	type:#preCreateView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	523	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	524
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	525	saveAndTerminateView:aView
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	526	^ (TerminateEvent basicNew)
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	527	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	528	type:#saveAndTerminate
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	529	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	530
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	531	terminateView:aView
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	532	^ (TerminateEvent basicNew)
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	533	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	534	type:#terminate
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	535	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	536
4817 2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	537	trayAction:event arguments:argVector view:aView
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	538	^ (TrayActionEvent new)
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	539	for:aView
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	540	type:event
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	541	arguments:argVector
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	542
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	543	"Created: / 31-10-2007 / 01:23:53 / cg"
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	544	!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	545
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	546	unmappedView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	547	^ WindowMapUnmapEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	548	for:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	549	type:#unmapped
28 3879ff2138f1 * empty log message * claus parents: 26 diff changeset	550	! !
3879ff2138f1 * empty log message * claus parents: 26 diff changeset	551
4648 87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	552	!WindowEvent class methodsFor:'constants'!
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	553
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	554	dropType_directory
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	555	^ #directory
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	556
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	557	"Created: / 13-10-2006 / 10:08:59 / cg"
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	558	!
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	559
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	560	dropType_file
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	561	^ #file
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	562
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	563	"Created: / 13-10-2006 / 10:08:52 / cg"
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	564	!
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	565
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	566	dropType_files
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	567	^ #files
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	568
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	569	"Created: / 13-10-2006 / 10:09:04 / cg"
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	570	!
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	571
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	572	dropType_text
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	573	^ #text
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	574
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	575	"Created: / 13-10-2006 / 10:09:36 / cg"
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	576	! !
87368f2f69fc eliminated magic symbol constants Claus Gittinger <cg@exept.de> parents: 4628 diff changeset	577
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	578	!WindowEvent class methodsFor:'instance creation basic'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	579
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	580	for:aView type:aSymbol
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	581	"create and return a new windowEvent for sending
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	582	aSymbol-message with no arguments to aView"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	583
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	584	^ self new for:aView type:aSymbol
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	585	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	586
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	587	for:aView type:aSymbol arguments:argArray
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	588	"create and return a new windowEvent for sending
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	589	aSymbol-message with arguments to aView"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	590
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3773 diff changeset	591	^ self new for:aView type:aSymbol arguments:argArray
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	592	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	593
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	594	new
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	595	self == WindowEvent ifTrue:[
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	596	'----------------' errorPrint.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	597	'WindowEvent is abstract - use/add explicit creation message' errorPrintCR.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	598	thisContext fullPrintAll.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	599	].
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	600	^ super new
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	601	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	602
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	603	!WindowEvent methodsFor:'accessing'!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	604
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	605	consumed
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	606	"return the value of the instance variable 'consumed' (automatically generated)"
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	607
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	608	^ consumed
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	609	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	610
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	611	consumed:aBoolean
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	612	"set the value of the instance variable 'consumed' (automatically generated)"
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	613
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	614	consumed := aBoolean.
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	615	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	616
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	617	delegatedFrom
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	618	"return the value of the instance variable 'delegatedFrom' (automatically generated)"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	619
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	620	^ delegatedFrom
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	621	!
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	622
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	623	delegatedFrom:something
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	624	"set the value of the instance variable 'delegatedFrom' (automatically generated)"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	625
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	626	delegatedFrom := something.
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	627	!
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	628
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	629	key
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	630	"return the key - nil is returned here.
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	631	This is redefined in KeyboardEvent."
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	632
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	633	^ nil
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	634
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	635	"Created: 1.8.1997 / 13:56:21 / cg"
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	636	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	637
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	638	rectangle
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	639	"return the damage rectangle"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	640
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	641	^ args "consider this a kludge"
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	642	!
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	643
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	644	target
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	645	"return the target, for which the event is for"
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	646
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	647	^ receiver
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	648	!
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	649
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	650	target:anObject
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	651	"set the target, for which the event is for"
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	652
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	653	receiver := anObject
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	654	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	655
4740 782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	656	timeStamp
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	657	^ timeStamp
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	658	!
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	659
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	660	timeStamp:aTimestamp
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	661	timeStamp := aTimestamp.
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	662	!
782e611d6808 accessing timeStamp ca parents: 4648 diff changeset	663
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	664	type
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	665	"return the type of the event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	666
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	667	^ selector
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	668	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	669
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	670	view
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	671	"return the view, for which the event is for"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	672
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	673	^ receiver
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	674	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	675
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	676	view:aView
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	677	"set the view, for which the event is for"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	678
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	679	receiver := aView
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	680	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	681
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	682	x
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	683	"the x coordinate - if any.
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	684	nil returned for all but button- and keyEvents"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	685
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	686	^ nil
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	687	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	688
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	689	x:ignoredInteger
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	690	"set the x coordinate - ignored here.
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	691	only for button- and keyEvents"
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	692	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	693
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	694	y
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	695	"the y coordinate - if any.
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	696	nil returned for all but button- and keyEvents"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	697
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	698	^ nil
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	699	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	700
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	701	y:ignoredInteger
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	702	"set the y coordinate - ignored here.
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	703	only for button- and keyEvents"
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	704	! !
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	705
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	706	!WindowEvent methodsFor:'dispatching'!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	707
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	708	dispatchTo:anObject
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	709	"send this event to anObject"
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	710
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	711	^ anObject perform:selector withArguments:args
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	712	!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	713
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	714	dispatchWithViewArgumentTo:anObject
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	715	"send this event to anObject, and pass an additional view argument"
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	716
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	717	args size = 0 ifTrue:[
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	718	^ anObject
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	719	perform:(selector , ':') asSymbol
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	720	with:receiver
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	721	].
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	722
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	723	^ anObject
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	724	perform:(selector , 'view:') asSymbol
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	725	withArguments:(args copyWith:receiver)
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	726	! !
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	727
511 233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	728	!WindowEvent methodsFor:'printing & storing'!
233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	729
233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	730	displayString
1905 5bf0b9628c80 comment Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	731	"return a string for display in inspectors etc."
5bf0b9628c80 comment Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	732
511 233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	733	^ self className
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	734	, '(' , selector storeString
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	735	, ' view: ' , receiver className
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	736	, ' args: ' , args displayString
511 233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	737	, ')'
233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	738
233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	739	"Created: 7.3.1996 / 14:55:50 / cg"
1905 5bf0b9628c80 comment Claus Gittinger <cg@exept.de> parents: 1886 diff changeset	740	"Modified: 20.9.1997 / 11:42:11 / cg"
511 233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	741	! !
233dabfcc81c added #displayString (for eventTracing) Claus Gittinger <cg@exept.de> parents: 356 diff changeset	742
3879 cfb631c31105 method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	743	!WindowEvent methodsFor:'private-accessing'!
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	744
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	745	for:aView type:aSymbol
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	746	"set the instance variables of the event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	747
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	748	receiver := aView.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	749	selector := aSymbol.
4991 81bcff26caf3 set timestamp in creation fm parents: 4988 diff changeset	750	args := #().
81bcff26caf3 set timestamp in creation fm parents: 4988 diff changeset	751	timeStamp := Timestamp now.
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	752	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	753
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	754	for:aView type:aSymbol arguments:argArray
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	755	"set the instance variables of the event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	756
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	757	receiver := aView.
84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	758	selector := aSymbol.
4991 81bcff26caf3 set timestamp in creation fm parents: 4988 diff changeset	759	args := argArray.
81bcff26caf3 set timestamp in creation fm parents: 4988 diff changeset	760	timeStamp := Timestamp now.
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	761	! !
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	762
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	763	!WindowEvent methodsFor:'queries'!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	764
1588 8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	765	hasAlt
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	766	"return true, if this is a keyboard event, with ALT pressed"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	767
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	768	^ false
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	769
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	770	"Created: 12.4.1997 / 11:04:10 / cg"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	771	!
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	772
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	773	hasCtrl
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	774	"return true, if this is a keyboard event, with CTRL pressed"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	775
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	776	^ false
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	777
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	778	"Created: 12.4.1997 / 11:04:03 / cg"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	779	!
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	780
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	781	hasMeta
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	782	"return true, if this is a keyboard event, with META pressed"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	783
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	784	^ false
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	785
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	786	"Created: 12.4.1997 / 11:04:16 / cg"
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	787	!
8f9468059ef7 keep modifierKey information in keyboardEvents Claus Gittinger <cg@exept.de> parents: 1541 diff changeset	788
1590 18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	789	hasShift
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	790	"return true, if this is a keyboard event, with SHIFT pressed"
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	791
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	792	^ false
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	793
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	794	"Created: 12.4.1997 / 11:30:59 / cg"
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	795	!
18ca787fd066 checkin from browser Claus Gittinger <cg@exept.de> parents: 1588 diff changeset	796
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	797	isApplicationEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	798	"return true, if this event is application related (i.e. not for a particular view)"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	799
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	800	^ false
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	801	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	802
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	803	isButtonEvent
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	804	"return true, if this event is a button event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	805
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	806	^ false
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	807	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	808
1730 484d0d28f4c7 added: ca parents: 1590 diff changeset	809	isButtonMotionEvent
484d0d28f4c7 added: ca parents: 1590 diff changeset	810	"return true, if this event is a buttonMotion event"
484d0d28f4c7 added: ca parents: 1590 diff changeset	811
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	812	^ false
1730 484d0d28f4c7 added: ca parents: 1590 diff changeset	813
484d0d28f4c7 added: ca parents: 1590 diff changeset	814	"Created: 5.3.1997 / 12:25:43 / cg"
484d0d28f4c7 added: ca parents: 1590 diff changeset	815	!
484d0d28f4c7 added: ca parents: 1590 diff changeset	816
4628 ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	817	isButtonMultiPressEvent
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	818	"return true, if this event is a buttonMulti-Press event"
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	819
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	820	^ false
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	821
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	822	"Created: 5.3.1997 / 12:25:43 / cg"
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	823	!
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	824
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	825	isButtonPressEvent
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	826	"return true, if this event is a buttonPress event"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	827
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	828	^ false
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	829
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	830	"Created: 5.3.1997 / 12:25:43 / cg"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	831	!
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	832
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	833	isButtonReleaseEvent
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	834	"return true, if this event is a buttonPress event"
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	835
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	836	^ false
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	837
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	838	"Created: 5.3.1997 / 12:25:43 / cg"
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	839	!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	840
2811 7460f7225d79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	841	isConfigureEvent
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	842	"return true, if this is a window geometry change event"
2811 7460f7225d79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	843
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	844	^ false.
2811 7460f7225d79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	845	!
7460f7225d79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2761 diff changeset	846
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	847	isDamage
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	848	"return true, if this is a damage event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	849
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	850	^ false.
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	851	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	852
2471 4bc7d82df319 + isDamageForView: Claus Gittinger <cg@exept.de> parents: 2399 diff changeset	853	isDamageForView:aView
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	854	"return true, if this is a damage event for a View"
2471 4bc7d82df319 + isDamageForView: Claus Gittinger <cg@exept.de> parents: 2399 diff changeset	855
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	856	^ false.
2471 4bc7d82df319 + isDamageForView: Claus Gittinger <cg@exept.de> parents: 2399 diff changeset	857	!
4bc7d82df319 + isDamageForView: Claus Gittinger <cg@exept.de> parents: 2399 diff changeset	858
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	859	isFocusEvent
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	860	"return true, if this event is a focusIn/focusOut event"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	861
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	862	^ false
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	863
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	864	"Created: 5.3.1997 / 12:12:37 / cg"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	865	!
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	866
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	867	isFocusInEvent
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	868	"return true, if this event is a focusIn event"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	869
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	870	^ false
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	871
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	872	"Created: 5.3.1997 / 12:18:10 / cg"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	873	!
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	874
4980 b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	875	isFocusOutEvent
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	876	"return true, if this event is a focusOut event"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	877
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	878	^ false
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	879
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	880	"Created: 5.3.1997 / 12:18:10 / cg"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	881	!
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	882
2707 cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	883	isInputEvent
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	884	"return true, if this event is an input (pointer, key or button) event"
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	885
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	886	^ false
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	887
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	888	"Created: / 21.5.1999 / 19:49:42 / cg"
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	889	"Modified: / 21.5.1999 / 19:50:11 / cg"
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	890	!
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	891
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	892	isKeyEvent
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	893	"return true, if this event is a keyboard event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	894
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	895	^ false
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	896
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	897	"Modified: / 28.1.1998 / 00:03:17 / cg"
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	898	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	899
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	900	isKeyPressEvent
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	901	"return true, if this event is a keyboard press event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	902
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	903	^ false
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	904
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	905	"Modified: / 28.1.1998 / 00:03:24 / cg"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	906	!
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	907
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	908	isKeyReleaseEvent
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	909	"return true, if this event is a keyboard release event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	910
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	911	^ false
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	912
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	913	"Modified: / 28.1.1998 / 00:03:31 / cg"
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	914	!
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	915
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	916	isKeyboardFocusEvent
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	917	"return true, if this event is a keyboard focus event"
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	918
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	919	^ false
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	920	!
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	921
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	922	isMapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	923	"return true, if this is a map event"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	924
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	925	^ false
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	926
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	927	"Created: / 29-01-1998 / 21:52:54 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	928	"Modified: / 09-11-2007 / 13:10:25 / cg"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	929	!
9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	930
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	931	isMessageSendEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	932	"return true, if this event is a general messageSend event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	933
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	934	^ false
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	935	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	936
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	937	isMouseWheelEvent
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	938	^ false
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	939	!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	940
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	941	isPointerEnterEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	942	"return true, if this event is a pointer-enter event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	943
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	944	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	945
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	946	"Created: 9.1.1996 / 15:51:24 / cg"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	947	"Modified: 9.1.1996 / 15:51:40 / cg"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	948	!
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	949
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	950	isPointerEnterLeaveEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	951	"return true, if this event is a pointer-enter/leave event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	952
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	953	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	954
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	955	"Created: 9.1.1996 / 15:51:18 / cg"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	956	!
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	957
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	958	isPointerLeaveEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	959	"return true, if this event is a pointer-leave event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	960
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	961	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	962
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	963	"Created: 9.1.1996 / 15:51:36 / cg"
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	964	!
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	965
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	966	isTerminateEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	967	^ false
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	968	!
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	969
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	970	isTrayEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	971	"return true, if this is an event from the tray (WIN32 only, for now)"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	972
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	973	^ false
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	974
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	975	"Created: / 09-11-2007 / 13:09:29 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	976	!
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	977
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	978	isUnmapEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	979	"return true, if this is an unmap event"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	980
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	981	^ false
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	982
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	983	"Modified: / 09-11-2007 / 13:10:07 / cg"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	984	!
9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	985
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	986	isUserEvent
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	987	"return true, if this event is a user event (i.e. mouse, keyboard or button)"
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	988
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	989	self isButtonEvent ifTrue:[^ true].
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	990	self isKeyEvent ifTrue:[^ true].
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	991	self isTerminateEvent ifTrue:[^ true].
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	992
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	993	self isPointerEnterEvent ifTrue:[^ true].
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	994	"/ self isPointerLeaveEvent ifTrue:[^ true]. -- why disabled ?
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	995
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	996	^ false
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	997
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	998	"Modified: 5.3.1997 / 11:27:40 / cg"
3654 91f60b377f68 +targetView penk parents: 3465 diff changeset	999	!
91f60b377f68 +targetView penk parents: 3465 diff changeset	1000
91f60b377f68 +targetView penk parents: 3465 diff changeset	1001	targetView
91f60b377f68 +targetView penk parents: 3465 diff changeset	1002	"return the view which will eventually handle the event;
91f60b377f68 +targetView penk parents: 3465 diff changeset	1003	for most events, this is the same as the view, for which the event was
91f60b377f68 +targetView penk parents: 3465 diff changeset	1004	originally generated.
91f60b377f68 +targetView penk parents: 3465 diff changeset	1005	Except, if an explicit focus has been assigned (i.e. tabbed into a component),
91f60b377f68 +targetView penk parents: 3465 diff changeset	1006	AND the event is a keyboard event. In this case, the targetView might be different.
91f60b377f68 +targetView penk parents: 3465 diff changeset	1007	Notice: this method might return nil, for synthetic (app-related) or display screen related
91f60b377f68 +targetView penk parents: 3465 diff changeset	1008	events"
91f60b377f68 +targetView penk parents: 3465 diff changeset	1009
5201 fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1010	^ self view.
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1011	! !
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1012
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1013	!WindowEvent::ApplicationEvent methodsFor:'blocked'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1014
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1015	view
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1016	^ nil
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1017	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1018
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1019	!WindowEvent::ApplicationEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1020
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1021	isApplicationEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1022	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1023	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1024
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1025	!WindowEvent::InputEvent class methodsFor:'class initialization'!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1026
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1027	initialize
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1028	F_SHIFT := 16r001.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1029	F_CTRL := 16r002.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1030	F_ALT := 16r004.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1031	F_META := 16r008.
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1032
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1033	F_BUTTON1 := 16r100.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1034	F_BUTTON2 := 16r200.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1035	F_BUTTON3 := 16r400.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1036
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1037	"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1038	self initialize
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1039	"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1040
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1041	"Modified: 13.8.1997 / 22:16:17 / cg"
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1042	! !
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1043
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1044	!WindowEvent::InputEvent methodsFor:'accessing'!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1045
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1046	hasShift:shift ctrl:ctrl alt:alt meta:meta button1:b1 button2:b2 button3:b3
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1047	\|f "{ Class: SmallInteger }"\|
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1048
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1049	f := 0.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1050	shift ifTrue:[f := f bitOr:F_SHIFT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1051	ctrl ifTrue:[f := f bitOr:F_CTRL].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1052	alt ifTrue:[f := f bitOr:F_ALT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1053	meta ifTrue:[f := f bitOr:F_META].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1054	b1 ifTrue:[f := f bitOr:F_BUTTON1].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1055	b2 ifTrue:[f := f bitOr:F_BUTTON2].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1056	b3 ifTrue:[f := f bitOr:F_BUTTON3].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1057	modifierFlags := f.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1058
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1059	"Created: 13.8.1997 / 22:17:56 / cg"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1060	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1061
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1062	hasShift:shift hasCtrl:ctrl hasAlt:alt hasMeta:meta
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1063	\|f "{ Class: SmallInteger }"\|
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1064
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1065	f := 0.
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1066	shift ifTrue:[f := f bitOr:F_SHIFT].
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1067	ctrl ifTrue:[f := f bitOr:F_CTRL].
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1068	alt ifTrue:[f := f bitOr:F_ALT].
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1069	meta ifTrue:[f := f bitOr:F_META].
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1070	modifierFlags := f.
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1071
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1072	"Created: 13.8.1997 / 22:02:09 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1073	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1074
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1075	hasShift:shift hasCtrl:ctrl hasAlt:alt hasMeta:meta hasButton1:b1 hasButton2:b2 hasButton3:b3
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1076	\|f "{ Class: SmallInteger }"\|
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1077
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1078	f := 0.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1079	shift ifTrue:[f := f bitOr:F_SHIFT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1080	ctrl ifTrue:[f := f bitOr:F_CTRL].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1081	alt ifTrue:[f := f bitOr:F_ALT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1082	meta ifTrue:[f := f bitOr:F_META].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1083	b1 ifTrue:[f := f bitOr:F_BUTTON1].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1084	b2 ifTrue:[f := f bitOr:F_BUTTON2].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1085	b3 ifTrue:[f := f bitOr:F_BUTTON3].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1086	modifierFlags := f.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1087
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1088	"Created: 13.8.1997 / 22:17:25 / cg"
2761 accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1089	!
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1090
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1091	modifierFlags
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1092	^ modifierFlags
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1093	!
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1094
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1095	modifierFlags:flagBits
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1096	modifierFlags := flagBits
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1097	! !
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1098
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1099	!WindowEvent::InputEvent methodsFor:'queries'!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1100
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1101	hasAlt
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1102	"return true, if this is an event, with ALT pressed"
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1103
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1104	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1105	^ (modifierFlags bitAnd:F_ALT) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1106
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1107	"Created: 13.8.1997 / 22:02:23 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1108	"Modified: 21.8.1997 / 19:41:11 / cg"
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1109	!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1110
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1111	hasButton1
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1112	"return true, if this is an event, with the left mouse button pressed"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1113
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1114	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1115	^ (modifierFlags bitAnd:F_BUTTON1) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1116
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1117	"Created: 13.8.1997 / 22:16:35 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1118	"Modified: 21.8.1997 / 19:41:40 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1119	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1120
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1121	hasButton2
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1122	"return true, if this is an event, with the middle mouse button pressed"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1123
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1124	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1125	^ (modifierFlags bitAnd:F_BUTTON2) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1126
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1127	"Created: 13.8.1997 / 22:16:43 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1128	"Modified: 21.8.1997 / 19:41:47 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1129	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1130
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1131	hasButton3
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1132	"return true, if this is an event, with the right mouse button pressed"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1133
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1134	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1135	^ (modifierFlags bitAnd:F_BUTTON3) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1136
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1137	"Created: 13.8.1997 / 22:16:49 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1138	"Modified: 21.8.1997 / 19:41:52 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1139	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1140
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1141	hasCtrl
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1142	"return true, if this is an event, with CTRL pressed"
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1143
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1144	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1145	^ (modifierFlags bitAnd:F_CTRL) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1146
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1147	"Created: 13.8.1997 / 22:02:29 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1148	"Modified: 21.8.1997 / 19:41:21 / cg"
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1149	!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1150
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1151	hasMeta
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1152	"return true, if this is an event, with META pressed"
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1153
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1154	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1155	^ (modifierFlags bitAnd:F_META) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1156
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1157	"Created: 13.8.1997 / 22:02:59 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1158	"Modified: 21.8.1997 / 19:41:27 / cg"
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1159	!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1160
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1161	hasShift
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1162	"return true, if this is an event, with SHIFT pressed"
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1163
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1164	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1165	^ (modifierFlags bitAnd:F_SHIFT) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1166
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1167	"Created: 13.8.1997 / 22:03:09 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1168	"Modified: 21.8.1997 / 19:41:34 / cg"
2707 cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1169	!
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1170
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1171	isInputEvent
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1172	^ true
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1173
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1174	"Created: / 21.5.1999 / 19:49:30 / cg"
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1175	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1176
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1177	isMouseWheelEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1178	^ selector == #mouseWheelMotion:x:y:amount:deltaTime:
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1179	! !
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1180
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1181	!WindowEvent::ButtonEvent methodsFor:'accessing'!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1182
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1183	button
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1184	"return the button nr of the button-event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1185
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1186	^ args at:1
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1187	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1188
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1189	state
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1190	"return the button state of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1191	(mouse button bits at the time of the event)."
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1192
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1193	^ args at:1
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1194
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1195	"Created: / 12.11.1998 / 16:21:18 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1196	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1197
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1198	x
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1199	"return the x coordinate of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1200	(mouse position at the time of the event)."
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1201
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1202	^ args at:2
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1203
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1204	"Created: 1.8.1997 / 13:58:15 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1205	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1206
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1207	x:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1208	"change the x coordinate of the button-event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1209
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1210	args at:2 put:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1211
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1212	"Created: 1.8.1997 / 13:58:15 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1213	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1214
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1215	y
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1216	"return the y coordinate of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1217	(mouse position at the time of the event)."
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1218
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1219	^ args at:3
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1220
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1221	"Created: 1.8.1997 / 13:58:07 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1222	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1223
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1224	y:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1225	"change the y coordinate of the button-event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1226
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1227	^ args at:3 put:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1228
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1229	"Created: 1.8.1997 / 13:58:15 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1230	! !
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1231
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1232	!WindowEvent::ButtonEvent methodsFor:'queries'!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1233
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1234	isButtonEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1235	"return true, if this event is a button event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1236
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1237	^ true
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1238
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1239	"Created: 4.4.1997 / 13:44:11 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1240	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1241
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1242	!WindowEvent::ButtonPressEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1243
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1244	isButtonPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1245	"return true, if this event is a buttonPress event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1246
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1247	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1248	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1249
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1250	!WindowEvent::ButtonMultiPressEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1251
4628 ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1252	isButtonMultiPressEvent
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1253	^ true
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1254	!
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1255
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1256	isButtonPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1257	"/ ATTENTION: temporary for bw. compatibility, since due to a bug,
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1258	"/ multi-presses returned false to this query
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1259
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1260	"/'----------------' errorPrint.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1261	"/'oops multipressEvent asked for isButtonPress' errorPrintCR.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1262	"/thisContext fullPrintAll.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1263	^ false
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1264	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1265
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1266	!WindowEvent::ButtonReleaseEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1267
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1268	isButtonReleaseEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1269	"return true, if this event is a buttonRelease event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1270
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1271	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1272	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1273
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1274	!WindowEvent::ClientEvent methodsFor:'accessing'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1275
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1276	eventData
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1277	"return the value of the instance variable 'eventData' (automatically generated)"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1278
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1279	^ eventData
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1280
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1281	"Created: 4.4.1997 / 17:41:50 / cg"
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1282	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1283
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1284	eventData:something
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1285	"set the value of the instance variable 'eventData' (automatically generated)"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1286
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1287	eventData := something.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1288
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1289	"Created: 4.4.1997 / 17:41:57 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1290	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1291
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1292	!WindowEvent::ConfigureEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1293
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1294	isConfigureEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1295	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1296	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1297
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1298	!WindowEvent::DamageEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1299
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1300	isDamage
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1301	"return true, if this is a damage event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1302
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1303	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1304	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1305
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1306	isDamageForView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1307	"return true, if this is a damage event for aView"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1308
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1309	^ (receiver == aView)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1310	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1311
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1312	!WindowEvent::EnterLeaveEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1313
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1314	state
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1315
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1316	^ args at:1
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1317	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1318
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1319	x
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1320
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1321	^ args at:2 ifAbsent:nil
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1322	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1323
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1324	y
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1325
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1326	^ args at:3 ifAbsent:nil
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1327	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1328
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1329	!WindowEvent::EnterLeaveEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1330
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1331	isPointerEnterEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1332	"return true, if this event is a pointer-enter event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1333
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1334	^ (selector == #'pointerEnter:x:y:')
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1335
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1336	"Created: 9.1.1996 / 15:51:24 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1337	"Modified: 9.1.1996 / 15:51:40 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1338	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1339
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1340	isPointerEnterLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1341	"return true, if this event is a pointer-enter/leave event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1342
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1343	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1344
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1345	"Created: 9.1.1996 / 15:51:18 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1346	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1347
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1348	isPointerLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1349	"return true, if this event is a pointer-leave event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1350
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1351	^ selector == #'pointerLeave:'
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1352
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1353	"Created: 9.1.1996 / 15:51:36 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1354	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1355
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1356	!WindowEvent::FocusEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1357
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1358	isFocusEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1359	"return true, if this event is a focus event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1360
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1361	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1362
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1363	"Created: / 21.5.1999 / 19:44:47 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1364	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1365
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1366	isFocusInEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1367	"return true, if this event is a focusIn event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1368
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1369	^ (selector == #focusIn)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1370
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1371	"Created: / 21.5.1999 / 19:45:04 / cg"
4980 b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1372	!
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1373
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1374	isFocusOutEvent
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1375	"return true, if this event is a focusOut event"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1376
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1377	^ (selector == #focusOut)
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1378
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1379	"Created: / 21.5.1999 / 19:45:04 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1380	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1381
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1382	!WindowEvent::ButtonMotionEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1383
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1384	isButtonMotionEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1385	"return true, if this event is a buttonMotion event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1386
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1387	^ true
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1388	! !
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1389
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1390	!WindowEvent::KeyboardEvent methodsFor:'accessing'!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1391
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1392	key
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1393	"return the key of the key-event."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1394
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1395	^ args at:1
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1396
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1397	"Created: 1.8.1997 / 13:55:19 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1398	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1399
2852 4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1400	key:aCharacterOrSymbol
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1401	"change the key of the key-event."
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1402
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1403	args at:1 put:aCharacterOrSymbol
2852 4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1404
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1405	"Created: 1.8.1997 / 13:55:19 / cg"
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1406	!
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1407
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1408	rawKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1409	^ rawKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1410
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1411	"Created: 4.4.1997 / 13:47:15 / cg"
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1412	!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1413
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1414	rawKey:aKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1415	rawKey := aKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1416
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1417	"Created: 4.4.1997 / 13:47:10 / cg"
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1418	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1419
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1420	x
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1421	"return the x coordinate of the key-event
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1422	(mouse position at the time of the key-event)."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1423
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1424	^ args at:2
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1425
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1426	"Created: 1.8.1997 / 13:57:27 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1427	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1428
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1429	xy:anInteger
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1430	"change the x coordinate of the key-event"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1431
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1432	^ args at:2 put:anInteger
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1433	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1434
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1435	y
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1436	"return the y coordinate of the key-event
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1437	(mouse position at the time of the key-event)."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1438
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1439	^ args at:3
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1440
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1441	"Created: 1.8.1997 / 13:55:19 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1442	"Modified: 1.8.1997 / 13:57:42 / cg"
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1443	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1444
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1445	y:anInteger
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1446	"change the y coordinate of the key-event"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1447
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1448	^ args at:3 put:anInteger
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1449	! !
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1450
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1451	!WindowEvent::KeyboardEvent methodsFor:'queries'!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1452
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1453	isKeyEvent
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1454	"return true, if this event is a keyboard event"
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1455
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1456	^ true
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1457
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1458	"Created: 4.4.1997 / 13:39:59 / cg"
5201 fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1459	!
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1460
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1461	targetView
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1462	"return the view which will eventually handle the event;
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1463	for most events, this is the same as the view, for which the event was
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1464	originally generated.
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1465	Except, if an explicit focus has been assigned (i.e. tabbed into a component),
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1466	AND the event is a keyboard event. In this case, the targetView might be different.
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1467	Notice: this method might return nil, for synthetic (app-related) or display screen related
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1468	events"
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1469
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1470	\|evView group focusView\|
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1471
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1472	(evView := self view) notNil ifTrue:[
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1473	group := evView windowGroup.
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1474	group notNil ifTrue:[
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1475	focusView := group focusView.
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1476	focusView notNil ifTrue:[^ focusView].
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1477	].
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1478	].
fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1479	^ evView
3686 33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1480	! !
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1481
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1482	!WindowEvent::KeyReleaseEvent methodsFor:'queries'!
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1483
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1484	isKeyReleaseEvent
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1485	"return true, if this event is a keyboard press event"
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1486
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1487	^ true
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1488	! !
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1489
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1490	!WindowEvent::KeyPressEvent methodsFor:'queries'!
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1491
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1492	isKeyPressEvent
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1493	"return true, if this event is a keyboard press event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1494
3686 33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1495	^ true
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1496	! !
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1497
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1498	!WindowEvent::KeyboardFocusEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1499
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1500	hasFocus
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1501
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1502	^ args at: 1
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1503	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1504
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1505	!WindowEvent::KeyboardFocusEvent methodsFor:'queries'!
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1506
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1507	isKeyboardFocusEvent
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1508	"return true, if this event is a keyboard focus event"
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1509
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1510	^ true
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1511	! !
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1512
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1513	!WindowEvent::MessageSendEvent methodsFor:'blocked'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1514
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1515	view
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1516	^ nil
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1517	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1518
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1519	!WindowEvent::MessageSendEvent methodsFor:'queries'!
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1520
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1521	isMessageSendEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1522	"return true, if this event is a general messageSend event"
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1523
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1524	^ true
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1525
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1526
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1527
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1528	! !
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1529
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1530	!WindowEvent::MouseWheelMotionEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1531
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1532	amount
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1533	"return the amount of the mouse wheel motion event "
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1534
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1535	^ args at:4
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1536	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1537
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1538	deltaTime
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1539	"return the deltaTime of the mouse wheel motion event "
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1540
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1541	^ args at:5
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1542	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1543
4233 088575f01a8a native stuff ca parents: 4144 diff changeset	1544	!WindowEvent::NativeWidgetCommandEvent methodsFor:'accessing'!
088575f01a8a native stuff ca parents: 4144 diff changeset	1545
088575f01a8a native stuff ca parents: 4144 diff changeset	1546	command
088575f01a8a native stuff ca parents: 4144 diff changeset	1547	^ selector
088575f01a8a native stuff ca parents: 4144 diff changeset	1548	!
088575f01a8a native stuff ca parents: 4144 diff changeset	1549
088575f01a8a native stuff ca parents: 4144 diff changeset	1550	command:something
088575f01a8a native stuff ca parents: 4144 diff changeset	1551	selector := something.
088575f01a8a native stuff ca parents: 4144 diff changeset	1552	! !
088575f01a8a native stuff ca parents: 4144 diff changeset	1553
4044 dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1554	!WindowEvent::NewDamageEvent methodsFor:'queries'!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1555
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1556	isDamage
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1557	"return true, if this is a damage event"
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1558
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1559	^ true
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1560	!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1561
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1562	isDamageForView:aView
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1563	"return true, if this is a damage event for aView"
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1564
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1565	^ (receiver == aView)
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1566	! !
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1567
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1568	!WindowEvent::TerminateEvent methodsFor:'queries'!
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1569
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1570	isTerminateEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1571	^ true
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1572	! !
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1573
4817 2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1574	!WindowEvent::TrayActionEvent methodsFor:'accessing'!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1575
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1576	event
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1577	^ selector
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1578
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1579	"Created: / 31-10-2007 / 01:23:05 / cg"
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1580	!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1581
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1582	event:something
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1583	selector := something.
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1584
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1585	"Created: / 31-10-2007 / 01:23:07 / cg"
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1586	! !
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1587
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1588	!WindowEvent::TrayActionEvent methodsFor:'queries'!
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1589
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1590	isTrayEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1591	^ true
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1592
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1593	"Created: / 09-11-2007 / 13:09:17 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1594	! !
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1595
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1596	!WindowEvent::WindowMapUnmapEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1597
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1598	isMapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1599	"return true, if this is a map event"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1600
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1601	^ selector == #mapped
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1602
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1603	"Created: / 29-01-1998 / 21:52:54 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1604	"Modified: / 09-11-2007 / 13:11:02 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1605	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1606
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1607	isUnmapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1608	"return true, if this is an unmap event"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1609
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1610	^ selector == #unmapped
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1611
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1612	"Modified: / 09-11-2007 / 13:11:04 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1613	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1614
251 915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1615	!WindowEvent class methodsFor:'documentation'!
915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1616
915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1617	version
5201 fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1618	^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.98 2009-02-24 18:28:45 stefan Exp $'
251 915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1619	! !
3758 c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	1620
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	1621	WindowEvent::InputEvent initialize!

author	Stefan Vogel <sv@exept.de>
	Tue, 24 Feb 2009 19:28:45 +0100
changeset 5201	fd4bf9d73cac
parent 5020	f8ba55bc9b95
child 5204	748c8f2954e9
permissions	-rw-r--r--