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

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

author	sr
	Fri, 12 Jul 2019 16:42:24 +0200
changeset 8730	d1b103ebec20
parent 8716	f6a82eb8941e
child 8781	d3b2f507f809
permissions	-rw-r--r--