hg/stx-libview: WindowEvent.st@27605d0f1caa (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
5204 748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	859	isDelegatedToFocusView
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	860	"return true, if this event will be forwarded to a focusView."
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	861
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	862	^ false.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	863	!
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	864
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	865	isFocusEvent
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	866	"return true, if this event is a focusIn/focusOut event"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	867
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	868	^ false
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	869
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	870	"Created: 5.3.1997 / 12:12:37 / cg"
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
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	873	isFocusInEvent
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	874	"return true, if this event is a focusIn event"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	875
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	876	^ false
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	877
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	878	"Created: 5.3.1997 / 12:18:10 / cg"
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	879	!
960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	880
4980 b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	881	isFocusOutEvent
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	882	"return true, if this event is a focusOut event"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	883
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	884	^ false
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	885
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	886	"Created: 5.3.1997 / 12:18:10 / cg"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	887	!
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	888
2707 cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	889	isInputEvent
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	890	"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	891
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	892	^ false
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	893
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	894	"Created: / 21.5.1999 / 19:49:42 / cg"
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	895	"Modified: / 21.5.1999 / 19:50:11 / cg"
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	896	!
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	897
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	898	isKeyEvent
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	899	"return true, if this event is a keyboard event"
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	900
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	901	^ false
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	"Modified: / 28.1.1998 / 00:03:17 / cg"
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	904	!
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	905
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	906	isKeyPressEvent
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	907	"return true, if this event is a keyboard press event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	908
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	909	^ false
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	"Modified: / 28.1.1998 / 00:03:24 / cg"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	912	!
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	913
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	914	isKeyReleaseEvent
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	915	"return true, if this event is a keyboard release event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	916
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	917	^ false
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	918
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	919	"Modified: / 28.1.1998 / 00:03:31 / cg"
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	920	!
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	921
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	922	isKeyboardFocusEvent
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	923	"return true, if this event is a keyboard focus event"
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	924
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	925	^ false
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	926	!
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	927
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	928	isMapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	929	"return true, if this is a map event"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	930
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	931	^ false
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	932
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	933	"Created: / 29-01-1998 / 21:52:54 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	934	"Modified: / 09-11-2007 / 13:10:25 / cg"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	935	!
9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	936
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	937	isMessageSendEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	938	"return true, if this event is a general messageSend event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	939
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	940	^ false
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	941	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	942
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	943	isMouseWheelEvent
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	944	^ false
3011 e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	945	!
e5880bb2738d checkin from browser Claus Gittinger <cg@exept.de> parents: 2852 diff changeset	946
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	947	isPointerEnterEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	948	"return true, if this event is a pointer-enter event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	949
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	950	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	951
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	952	"Created: 9.1.1996 / 15:51:24 / cg"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	953	"Modified: 9.1.1996 / 15:51:40 / cg"
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
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	956	isPointerEnterLeaveEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	957	"return true, if this event is a pointer-enter/leave event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	958
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	959	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	960
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	961	"Created: 9.1.1996 / 15:51:18 / cg"
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
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	964	isPointerLeaveEvent
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	965	"return true, if this event is a pointer-leave event"
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	966
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	967	^ false
356 2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	968
2f773ceb7032 new query methods Claus Gittinger <cg@exept.de> parents: 320 diff changeset	969	"Created: 9.1.1996 / 15:51:36 / cg"
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	970	!
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	971
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	972	isTerminateEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	973	^ false
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	974	!
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	975
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	976	isTrayEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	977	"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	978
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	979	^ false
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	980
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	981	"Created: / 09-11-2007 / 13:09:29 / cg"
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
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	984	isUnmapEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	985	"return true, if this is an unmap event"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	986
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	987	^ false
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	988
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	989	"Modified: / 09-11-2007 / 13:10:07 / cg"
2034 9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	990	!
9fd5b2a4d315 added isMapEvent / isUnmapEvent Claus Gittinger <cg@exept.de> parents: 2028 diff changeset	991
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	992	isUserEvent
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	993	"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	994
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	995	self isButtonEvent ifTrue:[^ true].
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	996	self isKeyEvent ifTrue:[^ true].
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	997	self isTerminateEvent ifTrue:[^ true].
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	998
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	999	self isPointerEnterEvent ifTrue:[^ true].
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1000	"/ self isPointerLeaveEvent ifTrue:[^ true]. -- why disabled ?
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1001
1158 847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	1002	^ false
847d085a498f added #isUserEvent Claus Gittinger <cg@exept.de> parents: 727 diff changeset	1003
1420 960068850f29 more queries Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	1004	"Modified: 5.3.1997 / 11:27:40 / cg"
3654 91f60b377f68 +targetView penk parents: 3465 diff changeset	1005	!
91f60b377f68 +targetView penk parents: 3465 diff changeset	1006
91f60b377f68 +targetView penk parents: 3465 diff changeset	1007	targetView
91f60b377f68 +targetView penk parents: 3465 diff changeset	1008	"return the view which will eventually handle the event;
91f60b377f68 +targetView penk parents: 3465 diff changeset	1009	for most events, this is the same as the view, for which the event was
91f60b377f68 +targetView penk parents: 3465 diff changeset	1010	originally generated.
91f60b377f68 +targetView penk parents: 3465 diff changeset	1011	Except, if an explicit focus has been assigned (i.e. tabbed into a component),
91f60b377f68 +targetView penk parents: 3465 diff changeset	1012	AND the event is a keyboard event. In this case, the targetView might be different.
91f60b377f68 +targetView penk parents: 3465 diff changeset	1013	Notice: this method might return nil, for synthetic (app-related) or display screen related
91f60b377f68 +targetView penk parents: 3465 diff changeset	1014	events"
91f60b377f68 +targetView penk parents: 3465 diff changeset	1015
5201 fd4bf9d73cac No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5020 diff changeset	1016	^ self view.
244 83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1017	! !
83218faf792c checkin from browser Claus Gittinger <cg@exept.de> parents: 219 diff changeset	1018
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1019	!WindowEvent::ApplicationEvent methodsFor:'blocked'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1020
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1021	view
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1022	^ nil
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1023	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1024
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1025	!WindowEvent::ApplicationEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1026
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1027	isApplicationEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1028	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1029	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1030
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1031	!WindowEvent::InputEvent class methodsFor:'class initialization'!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1032
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1033	initialize
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1034	F_SHIFT := 16r001.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1035	F_CTRL := 16r002.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1036	F_ALT := 16r004.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1037	F_META := 16r008.
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1038
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1039	F_BUTTON1 := 16r100.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1040	F_BUTTON2 := 16r200.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1041	F_BUTTON3 := 16r400.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1042
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1043	"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1044	self initialize
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1045	"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1046
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1047	"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	1048	! !
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1049
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1050	!WindowEvent::InputEvent methodsFor:'accessing'!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1051
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1052	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	1053	\|f "{ Class: SmallInteger }"\|
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1054
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1055	f := 0.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1056	shift ifTrue:[f := f bitOr:F_SHIFT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1057	ctrl ifTrue:[f := f bitOr:F_CTRL].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1058	alt ifTrue:[f := f bitOr:F_ALT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1059	meta ifTrue:[f := f bitOr:F_META].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1060	b1 ifTrue:[f := f bitOr:F_BUTTON1].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1061	b2 ifTrue:[f := f bitOr:F_BUTTON2].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1062	b3 ifTrue:[f := f bitOr:F_BUTTON3].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1063	modifierFlags := f.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1064
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1065	"Created: 13.8.1997 / 22:17:56 / cg"
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1066	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1067
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1068	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	1069	\|f "{ Class: SmallInteger }"\|
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1070
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1071	f := 0.
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1072	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	1073	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	1074	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	1075	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	1076	modifierFlags := f.
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1077
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1078	"Created: 13.8.1997 / 22:02:09 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1079	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1080
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1081	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	1082	\|f "{ Class: SmallInteger }"\|
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1083
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1084	f := 0.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1085	shift ifTrue:[f := f bitOr:F_SHIFT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1086	ctrl ifTrue:[f := f bitOr:F_CTRL].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1087	alt ifTrue:[f := f bitOr:F_ALT].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1088	meta ifTrue:[f := f bitOr:F_META].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1089	b1 ifTrue:[f := f bitOr:F_BUTTON1].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1090	b2 ifTrue:[f := f bitOr:F_BUTTON2].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1091	b3 ifTrue:[f := f bitOr:F_BUTTON3].
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1092	modifierFlags := f.
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1093
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1094	"Created: 13.8.1997 / 22:17:25 / cg"
2761 accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1095	!
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1096
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1097	modifierFlags
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1098	^ modifierFlags
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1099	!
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1100
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1101	modifierFlags:flagBits
accf9c7f470e checkin from browser Claus Gittinger <cg@exept.de> parents: 2707 diff changeset	1102	modifierFlags := flagBits
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1103	! !
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1104
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1105	!WindowEvent::InputEvent methodsFor:'queries'!
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	hasAlt
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1108	"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	1109
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1110	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1111	^ (modifierFlags bitAnd:F_ALT) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1112
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1113	"Created: 13.8.1997 / 22:02:23 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1114	"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	1115	!
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1116
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1117	hasButton1
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1118	"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	1119
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1120	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1121	^ (modifierFlags bitAnd:F_BUTTON1) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1122
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1123	"Created: 13.8.1997 / 22:16:35 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1124	"Modified: 21.8.1997 / 19:41:40 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1125	!
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	hasButton2
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1128	"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	1129
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1130	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1131	^ (modifierFlags bitAnd:F_BUTTON2) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1132
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1133	"Created: 13.8.1997 / 22:16:43 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1134	"Modified: 21.8.1997 / 19:41:47 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1135	!
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	hasButton3
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1138	"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	1139
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1140	modifierFlags isNil ifTrue:[^ false].
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1141	^ (modifierFlags bitAnd:F_BUTTON3) ~~ 0
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1142
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1143	"Created: 13.8.1997 / 22:16:49 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1144	"Modified: 21.8.1997 / 19:41:52 / cg"
1862 e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1145	!
e56d9a7389bb also remember buttonStates in keyEvents. Claus Gittinger <cg@exept.de> parents: 1861 diff changeset	1146
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1147	hasCtrl
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1148	"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	1149
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1150	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1151	^ (modifierFlags bitAnd:F_CTRL) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1152
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1153	"Created: 13.8.1997 / 22:02:29 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1154	"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	1155	!
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	hasMeta
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1158	"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	1159
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1160	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1161	^ (modifierFlags bitAnd:F_META) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1162
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1163	"Created: 13.8.1997 / 22:02:59 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1164	"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	1165	!
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	hasShift
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1168	"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	1169
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1170	modifierFlags isNil ifTrue:[^ false].
1861 1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1171	^ (modifierFlags bitAnd:F_SHIFT) ~~ 0
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1172
1b1e49147380 remember shift,meta,alt & ctrl state in buttonEvents Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1173	"Created: 13.8.1997 / 22:03:09 / cg"
1885 e1021e9ed342 care for nil modifiers Claus Gittinger <cg@exept.de> parents: 1863 diff changeset	1174	"Modified: 21.8.1997 / 19:41:34 / cg"
2707 cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1175	!
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1176
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1177	isInputEvent
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1178	^ true
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1179
cb775384565a * empty log message * Claus Gittinger <cg@exept.de> parents: 2471 diff changeset	1180	"Created: / 21.5.1999 / 19:49:30 / cg"
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1181	!
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1182
5204 748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1183	targetView
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1184	"return the view which will eventually handle the event;
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1185	for most events, this is the same as the view, for which the event was
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1186	originally generated.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1187	Except, if an explicit focus has been assigned (i.e. tabbed into a component),
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1188	AND the event is a keyboard event. In this case, the targetView might be different.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1189	Notice: this method might return nil, for synthetic (app-related) or display screen related
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1190	events"
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1191
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1192	\|evView group focusView\|
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1193
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1194	evView := self view.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1195	self isDelegatedToFocusView ifTrue:[
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1196	evView notNil ifTrue:[
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1197	group := evView windowGroup.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1198	group notNil ifTrue:[
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1199	focusView := group focusView.
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1200	focusView notNil ifTrue:[^ focusView].
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1201	].
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1202	].
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1203	].
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1204	^ evView
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1205	! !
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1206
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1207	!WindowEvent::ButtonEvent methodsFor:'accessing'!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1208
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1209	button
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1210	"return the button nr of the button-event"
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	^ args at:1
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	state
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1216	"return the button state of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1217	(mouse button bits 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:1
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: / 12.11.1998 / 16:21:18 / 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	x
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1225	"return the x coordinate of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1226	(mouse position at the time of the event)."
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1227
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1228	^ args at:2
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1229
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1230	"Created: 1.8.1997 / 13:58:15 / cg"
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
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1233	x:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1234	"change the x coordinate of the button-event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1235
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1236	args at:2 put:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1237
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1238	"Created: 1.8.1997 / 13:58:15 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1239	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1240
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1241	y
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1242	"return the y coordinate of the button-event
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1243	(mouse position at the time of the event)."
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1244
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1245	^ args at:3
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1246
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1247	"Created: 1.8.1997 / 13:58:07 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1248	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1249
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1250	y:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1251	"change the y coordinate of the button-event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1252
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1253	^ args at:3 put:anInteger
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1254
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1255	"Created: 1.8.1997 / 13:58:15 / cg"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1256	! !
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1257
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1258	!WindowEvent::ButtonEvent methodsFor:'queries'!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1259
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1260	isButtonEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1261	"return true, if this event is a button event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1262
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1263	^ true
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1264
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1265	"Created: 4.4.1997 / 13:44:11 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1266	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1267
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1268	!WindowEvent::ButtonPressEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1269
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1270	isButtonPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1271	"return true, if this event is a buttonPress event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1272
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1273	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1274	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1275
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1276	!WindowEvent::ButtonMultiPressEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1277
4628 ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1278	isButtonMultiPressEvent
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1279	^ true
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1280	!
ebdab26dea16 * empty log message * fm parents: 4461 diff changeset	1281
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1282	isButtonPressEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1283	"/ ATTENTION: temporary for bw. compatibility, since due to a bug,
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1284	"/ multi-presses returned false to this query
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1285
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1286	"/'----------------' errorPrint.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1287	"/'oops multipressEvent asked for isButtonPress' errorPrintCR.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1288	"/thisContext fullPrintAll.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1289	^ false
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::ButtonReleaseEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1293
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1294	isButtonReleaseEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1295	"return true, if this event is a buttonRelease event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1296
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1297	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1298	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1299
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1300	!WindowEvent::ClientEvent methodsFor:'accessing'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1301
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1302	eventData
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1303	"return the value of the instance variable 'eventData' (automatically generated)"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1304
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1305	^ eventData
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1306
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1307	"Created: 4.4.1997 / 17:41:50 / cg"
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1308	!
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1309
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1310	eventData:something
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1311	"set the value of the instance variable 'eventData' (automatically generated)"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1312
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1313	eventData := something.
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1314
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1315	"Created: 4.4.1997 / 17:41:57 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1316	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1317
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1318	!WindowEvent::ConfigureEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1319
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1320	isConfigureEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1321	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1322	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1323
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1324	!WindowEvent::DamageEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1325
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1326	isDamage
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1327	"return true, if this is a damage event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1328
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1329	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1330	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1331
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1332	isDamageForView:aView
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1333	"return true, if this is a damage event for aView"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1334
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1335	^ (receiver == aView)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1336	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1337
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1338	!WindowEvent::EnterLeaveEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1339
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1340	state
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1341
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1342	^ args at:1
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1343	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1344
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1345	x
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1346
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1347	^ args at:2 ifAbsent:nil
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1348	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1349
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1350	y
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1351
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1352	^ args at:3 ifAbsent:nil
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1353	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1354
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1355	!WindowEvent::EnterLeaveEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1356
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1357	isPointerEnterEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1358	"return true, if this event is a pointer-enter event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1359
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1360	^ (selector == #'pointerEnter:x:y:')
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1361
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1362	"Created: 9.1.1996 / 15:51:24 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1363	"Modified: 9.1.1996 / 15:51:40 / 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	isPointerEnterLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1367	"return true, if this event is a pointer-enter/leave event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1368
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1369	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1370
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1371	"Created: 9.1.1996 / 15:51:18 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1372	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1373
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1374	isPointerLeaveEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1375	"return true, if this event is a pointer-leave event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1376
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1377	^ selector == #'pointerLeave:'
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1378
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1379	"Created: 9.1.1996 / 15:51:36 / cg"
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::FocusEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1383
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1384	isFocusEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1385	"return true, if this event is a focus event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1386
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1387	^ true
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1388
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1389	"Created: / 21.5.1999 / 19:44:47 / cg"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1390	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1391
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1392	isFocusInEvent
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1393	"return true, if this event is a focusIn event"
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1394
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1395	^ (selector == #focusIn)
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1396
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1397	"Created: / 21.5.1999 / 19:45:04 / cg"
4980 b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1398	!
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1399
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1400	isFocusOutEvent
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1401	"return true, if this event is a focusOut event"
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1402
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1403	^ (selector == #focusOut)
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1404
b8a849eeb8ce +isFocusOutEvent Claus Gittinger <cg@exept.de> parents: 4960 diff changeset	1405	"Created: / 21.5.1999 / 19:45:04 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1406	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1407
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1408	!WindowEvent::ButtonMotionEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1409
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1410	isButtonMotionEvent
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1411	"return true, if this event is a buttonMotion event"
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1412
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1413	^ true
3297 a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1414	! !
a811e83db982 * empty log message * Claus Gittinger <cg@exept.de> parents: 3295 diff changeset	1415
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1416	!WindowEvent::KeyboardEvent methodsFor:'accessing'!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1417
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1418	key
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1419	"return the key of the key-event."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1420
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1421	^ args at:1
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1422
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1423	"Created: 1.8.1997 / 13:55:19 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1424	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1425
2852 4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1426	key:aCharacterOrSymbol
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1427	"change the key of the key-event."
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1428
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1429	args at:1 put:aCharacterOrSymbol
2852 4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1430
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1431	"Created: 1.8.1997 / 13:55:19 / cg"
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1432	!
4eb0bb90d703 checkin from browser Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	1433
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1434	rawKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1435	^ rawKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1436
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1437	"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	1438	!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1439
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1440	rawKey:aKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1441	rawKey := aKey
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1442
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1443	"Created: 4.4.1997 / 13:47:10 / cg"
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1444	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1445
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1446	x
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1447	"return the x coordinate of the key-event
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1448	(mouse position at the time of the key-event)."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1449
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1450	^ args at:2
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1451
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1452	"Created: 1.8.1997 / 13:57:27 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1453	!
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1454
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1455	xy:anInteger
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1456	"change the x coordinate of the key-event"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1457
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1458	^ args at:2 put:anInteger
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1459	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1460
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1461	y
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1462	"return the y coordinate of the key-event
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1463	(mouse position at the time of the key-event)."
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1464
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1465	^ args at:3
1841 3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1466
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1467	"Created: 1.8.1997 / 13:55:19 / cg"
3773debcc078 checkin from browser Claus Gittinger <cg@exept.de> parents: 1730 diff changeset	1468	"Modified: 1.8.1997 / 13:57:42 / cg"
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1469	!
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1470
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1471	y:anInteger
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1472	"change the y coordinate of the key-event"
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1473
3295 84de6d18b9d1 code cleanup - now a subclass of MessageSend - thats what it is really Claus Gittinger <cg@exept.de> parents: 3294 diff changeset	1474	^ args at:3 put:anInteger
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1475	! !
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1476
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1477	!WindowEvent::KeyboardEvent methodsFor:'queries'!
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1478
5204 748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1479	isDelegatedToFocusView
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1480	"return true, if this event will be forwarded to a focusView."
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1481
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1482	^ true
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1483	!
748c8f2954e9 fixed mouseWheelScroll bug due to changed targetView code Claus Gittinger <cg@exept.de> parents: 5201 diff changeset	1484
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1485	isKeyEvent
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1486	"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	1487
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1488	^ true
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1489
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1490	"Created: 4.4.1997 / 13:39:59 / cg"
3686 33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1491	! !
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1492
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1493	!WindowEvent::KeyReleaseEvent methodsFor:'queries'!
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1494
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1495	isKeyReleaseEvent
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1496	"return true, if this event is a keyboard press event"
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1497
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1498	^ true
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1499	! !
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1500
33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1501	!WindowEvent::KeyPressEvent methodsFor:'queries'!
2028 9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1502
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1503	isKeyPressEvent
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1504	"return true, if this event is a keyboard press event"
9f4244301ef8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1982 diff changeset	1505
3686 33158a6957a2 removed leftover debug code Claus Gittinger <cg@exept.de> parents: 3680 diff changeset	1506	^ true
1527 661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1507	! !
661de0f76595 started to separate into distinct event classes; Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1508
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1509	!WindowEvent::KeyboardFocusEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1510
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1511	hasFocus
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1512
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1513	^ args at: 1
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1514	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1515
3376 a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1516	!WindowEvent::KeyboardFocusEvent methodsFor:'queries'!
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1517
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1518	isKeyboardFocusEvent
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1519	"return true, if this event is a keyboard focus event"
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1520
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1521	^ true
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1522	! !
a9784be22e6a added hasKeyboardFocus event tm parents: 3297 diff changeset	1523
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1524	!WindowEvent::MessageSendEvent methodsFor:'blocked'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1525
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1526	view
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1527	^ nil
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1528	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1529
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1530	!WindowEvent::MessageSendEvent methodsFor:'queries'!
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1531
3465 a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1532	isMessageSendEvent
a14f06f3af91 checkin from browser Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	1533	"return true, if this event is a general messageSend event"
3089 ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1534
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1535	^ true
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1536
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1537
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1538
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1539	! !
ea806f804f5c accessors for x/y ca parents: 3011 diff changeset	1540
4988 c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1541	!WindowEvent::MouseWheelMotionEvent methodsFor:'accessing'!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1542
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1543	amount
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1544	"return the amount of the mouse wheel motion event "
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1545
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1546	^ args at:4
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1547	!
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1548
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1549	deltaTime
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1550	"return the deltaTime of the mouse wheel motion event "
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1551
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1552	^ args at:5
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1553	! !
c4d0e91bfda5 +mouseWheelEvent fm parents: 4980 diff changeset	1554
5205 27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1555	!WindowEvent::MouseWheelMotionEvent methodsFor:'queries'!
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1556
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1557	isDelegatedToFocusView
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1558	"return true, if this event will be forwarded to a focusView."
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1559
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1560	^ true.
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1561	!
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1562
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1563	isMouseWheelEvent
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1564	^ true.
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1565	! !
27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1566
4233 088575f01a8a native stuff ca parents: 4144 diff changeset	1567	!WindowEvent::NativeWidgetCommandEvent methodsFor:'accessing'!
088575f01a8a native stuff ca parents: 4144 diff changeset	1568
088575f01a8a native stuff ca parents: 4144 diff changeset	1569	command
088575f01a8a native stuff ca parents: 4144 diff changeset	1570	^ selector
088575f01a8a native stuff ca parents: 4144 diff changeset	1571	!
088575f01a8a native stuff ca parents: 4144 diff changeset	1572
088575f01a8a native stuff ca parents: 4144 diff changeset	1573	command:something
088575f01a8a native stuff ca parents: 4144 diff changeset	1574	selector := something.
088575f01a8a native stuff ca parents: 4144 diff changeset	1575	! !
088575f01a8a native stuff ca parents: 4144 diff changeset	1576
4044 dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1577	!WindowEvent::NewDamageEvent methodsFor:'queries'!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1578
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1579	isDamage
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1580	"return true, if this is a damage event"
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1581
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1582	^ true
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1583	!
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1584
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1585	isDamageForView:aView
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1586	"return true, if this is a damage event for aView"
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1587
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1588	^ (receiver == aView)
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1589	! !
dc958a0211d9 newDamage Claus Gittinger <cg@exept.de> parents: 3936 diff changeset	1590
3773 e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1591	!WindowEvent::TerminateEvent methodsFor:'queries'!
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1592
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1593	isTerminateEvent
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1594	^ true
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1595	! !
e2fd3df91e5c new event class for TerminateEvents Claus Gittinger <cg@exept.de> parents: 3758 diff changeset	1596
4817 2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1597	!WindowEvent::TrayActionEvent methodsFor:'accessing'!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1598
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1599	event
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1600	^ selector
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1601
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1602	"Created: / 31-10-2007 / 01:23:05 / cg"
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1603	!
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1604
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1605	event:something
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1606	selector := something.
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1607
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1608	"Created: / 31-10-2007 / 01:23:07 / cg"
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1609	! !
2d555a01a0fd trayEvents Claus Gittinger <cg@exept.de> parents: 4787 diff changeset	1610
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1611	!WindowEvent::TrayActionEvent methodsFor:'queries'!
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1612
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1613	isTrayEvent
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1614	^ true
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1615
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1616	"Created: / 09-11-2007 / 13:09:17 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1617	! !
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1618
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1619	!WindowEvent::WindowMapUnmapEvent methodsFor:'queries'!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1620
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1621	isMapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1622	"return true, if this is a map event"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1623
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1624	^ selector == #mapped
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1625
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1626	"Created: / 29-01-1998 / 21:52:54 / cg"
2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1627	"Modified: / 09-11-2007 / 13:11:02 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1628	!
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1629
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1630	isUnmapEvent
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1631	"return true, if this is an unmap event"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1632
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1633	^ selector == #unmapped
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1634
4842 2a6305d64661 * empty log message * Claus Gittinger <cg@exept.de> parents: 4817 diff changeset	1635	"Modified: / 09-11-2007 / 13:11:04 / cg"
3680 4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1636	! !
4c096f11e018 more windowEvent types; ca parents: 3654 diff changeset	1637
251 915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1638	!WindowEvent class methodsFor:'documentation'!
915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1639
915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1640	version
5205 27605d0f1caa * empty log message * sr parents: 5204 diff changeset	1641	^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.100 2009-02-25 10:35:01 sr Exp $'
251 915de9a65169 checkin from browser Claus Gittinger <cg@exept.de> parents: 244 diff changeset	1642	! !
3758 c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	1643
c484f793f9b1 selection change handling Claus Gittinger <cg@exept.de> parents: 3686 diff changeset	1644	WindowEvent::InputEvent initialize!

author	sr
	Wed, 25 Feb 2009 11:35:01 +0100
changeset 5205	27605d0f1caa
parent 5204	748c8f2954e9
child 5209	e6f3278b9b16
permissions	-rw-r--r--