hg/stx-libtool: EventMonitor.st@e248bf1390a0 (annotated)

52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	1	"
7b48409ae088 * empty log message * claus parents: 45 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	3	All Rights Reserved
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	4
7b48409ae088 * empty log message * claus parents: 45 diff changeset	5	This software is furnished under a license and may be used
7b48409ae088 * empty log message * claus parents: 45 diff changeset	6	only in accordance with the terms of that license and with the
7b48409ae088 * empty log message * claus parents: 45 diff changeset	7	inclusion of the above copyright notice. This software may not
7b48409ae088 * empty log message * claus parents: 45 diff changeset	8	be provided or otherwise made available to, or used by, any
7b48409ae088 * empty log message * claus parents: 45 diff changeset	9	other person. No title to or ownership of the software is
7b48409ae088 * empty log message * claus parents: 45 diff changeset	10	hereby transferred.
7b48409ae088 * empty log message * claus parents: 45 diff changeset	11	"
2805 9fb350d5fef0 checkin from browser Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	12	"{ Package: 'stx:libtool' }"
9fb350d5fef0 checkin from browser Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	13
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	14	ApplicationModel subclass:#EventMonitor
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	15	instanceVariableNames:'outputSelector'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	16	classVariableNames:''
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	17	poolDictionaries:''
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	18	category:'Monitors-ST/X'
19 4cde336c0794 Initial revision claus parents: diff changeset	19	!
4cde336c0794 Initial revision claus parents: diff changeset	20
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	21	View subclass:#EventMonitorView
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	22	instanceVariableNames:'outputStream labelHolder showButtonMotion showFocusEvents
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	23	showTimestamp'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	24	classVariableNames:''
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	25	poolDictionaries:''
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	26	privateIn:EventMonitor
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	27	!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	28
1021 31349a9be7ac checkin from browser ca parents: 640 diff changeset	29	!EventMonitor class methodsFor:'documentation'!
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	30
7b48409ae088 * empty log message * claus parents: 45 diff changeset	31	copyright
7b48409ae088 * empty log message * claus parents: 45 diff changeset	32	"
7b48409ae088 * empty log message * claus parents: 45 diff changeset	33	COPYRIGHT (c) 1991 by Claus Gittinger
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	34	All Rights Reserved
19 4cde336c0794 Initial revision claus parents: diff changeset	35
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	36	This software is furnished under a license and may be used
7b48409ae088 * empty log message * claus parents: 45 diff changeset	37	only in accordance with the terms of that license and with the
7b48409ae088 * empty log message * claus parents: 45 diff changeset	38	inclusion of the above copyright notice. This software may not
7b48409ae088 * empty log message * claus parents: 45 diff changeset	39	be provided or otherwise made available to, or used by, any
7b48409ae088 * empty log message * claus parents: 45 diff changeset	40	other person. No title to or ownership of the software is
7b48409ae088 * empty log message * claus parents: 45 diff changeset	41	hereby transferred.
7b48409ae088 * empty log message * claus parents: 45 diff changeset	42	"
7b48409ae088 * empty log message * claus parents: 45 diff changeset	43	!
7b48409ae088 * empty log message * claus parents: 45 diff changeset	44
7b48409ae088 * empty log message * claus parents: 45 diff changeset	45	documentation
7b48409ae088 * empty log message * claus parents: 45 diff changeset	46	"
7b48409ae088 * empty log message * claus parents: 45 diff changeset	47	like xev - show events.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	48
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	49	You can use this to check your keyboard mappings, for example.
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	50	start with:
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	51	EventMonitor open
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	52	and watch the output on the xterm/console.
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	53	"
7b48409ae088 * empty log message * claus parents: 45 diff changeset	54	! !
19 4cde336c0794 Initial revision claus parents: diff changeset	55
1021 31349a9be7ac checkin from browser ca parents: 640 diff changeset	56	!EventMonitor class methodsFor:'defaults'!
19 4cde336c0794 Initial revision claus parents: diff changeset	57
4cde336c0794 Initial revision claus parents: diff changeset	58	defaultExtent
4cde336c0794 Initial revision claus parents: diff changeset	59	^ 200 @ 200
4cde336c0794 Initial revision claus parents: diff changeset	60	!
4cde336c0794 Initial revision claus parents: diff changeset	61
4cde336c0794 Initial revision claus parents: diff changeset	62	defaultLabel
4cde336c0794 Initial revision claus parents: diff changeset	63	^ 'Event Monitor'
4cde336c0794 Initial revision claus parents: diff changeset	64	! !
4cde336c0794 Initial revision claus parents: diff changeset	65
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	66	!EventMonitor class methodsFor:'interface specs'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	67
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	68	windowSpec
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	69	"This resource specification was automatically generated
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	70	by the UIPainter of ST/X."
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	71
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	72	"Do not manually edit this!! If it is corrupted,
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	73	the UIPainter may not be able to read the specification."
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	74
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	75	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	76	UIPainter new openOnClass:EventMonitor andSelector:#windowSpec
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	77	EventMonitor new openInterface:#windowSpec
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	78	EventMonitor open
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	79	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	80
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	81	<resource: #canvas>
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	82
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	83	^
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	84	#(FullSpec
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	85	name: windowSpec
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	86	window:
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	87	(WindowSpec
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	88	label: 'EventMonitor'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	89	name: 'EventMonitor'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	90	min: (Point 100 100)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	91	bounds: (Rectangle 0 0 300 300)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	92	menu: mainMenu
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	93	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	94	component:
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	95	(SpecCollection
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	96	collection: (
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	97	(NonScrollableArbitraryComponentSpec
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	98	name: 'eventMonitorView'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	99	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	100	component: EventMonitorView
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	101	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	102	)
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	103
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	104	)
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	105	)
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	106	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	107
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	108	!EventMonitor class methodsFor:'menu specs'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	109
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	110	mainMenu
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	111	"This resource specification was automatically generated
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	112	by the MenuEditor of ST/X."
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	113
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	114	"Do not manually edit this!! If it is corrupted,
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	115	the MenuEditor may not be able to read the specification."
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	116
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	117	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	118	MenuEditor new openOnClass:EventMonitor andSelector:#mainMenu
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	119	(Menu new fromLiteralArrayEncoding:(EventMonitor mainMenu)) startUp
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	120	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	121
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	122	<resource: #menu>
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	123
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	124	^
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	125	#(Menu
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	126	(
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	127	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	128	label: 'File'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	129	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	130	submenu:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	131	(Menu
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	132	(
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	133	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	134	label: 'Open Modal Box'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	135	itemValue: openModalBox
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	136	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	137	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	138	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	139	label: 'Exit'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	140	itemValue: closeRequest
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	141	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	142	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	143	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	144	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	145	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	146	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	147	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	148	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	149	label: 'Filter'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	150	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	151	submenu:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	152	(Menu
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	153	(
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	154	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	155	label: 'Show ButtonMotion Events'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	156	itemValue: showButtonMotion:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	157	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	158	indication: showButtonMotion
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	159	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	160	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	161	label: 'Show Focus Events'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	162	itemValue: showFocusEvents:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	163	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	164	indication: showFocusEvents
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	165	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	166	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	167	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	168	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	169	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	170	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	171	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	172	label: 'Output'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	173	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	174	submenu:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	175	(Menu
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	176	(
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	177	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	178	label: 'Stdout'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	179	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	180	choice: outputSelector
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	181	choiceValue: stdout
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	182	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	183	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	184	label: 'Transcript'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	185	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	186	choice: outputSelector
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	187	choiceValue: transcript
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	188	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	189	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	190	label: '-'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	191	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	192	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	193	label: 'Show Timestamp'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	194	itemValue: showTimestamp:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	195	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	196	indication: showTimestamp
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	197	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	198	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	199	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	200	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	201	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	202	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	203	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	204	label: 'Help'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	205	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	206	startGroup: right
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	207	submenu:
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	208	(Menu
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	209	(
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	210	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	211	label: 'Documentation'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	212	itemValue: openDocumentation
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	213	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	214	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	215	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	216	label: '-'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	217	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	218	(MenuItem
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	219	label: 'About this Application'
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	220	itemValue: openAboutThisApplication
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	221	translateLabel: true
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	222	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	223	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	224	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	225	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	226	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	227	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	228	)
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	229	nil
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	230	nil
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	231	)
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	232	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	233
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	234	!EventMonitor methodsFor:'aspects'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	235
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	236	eventMonitorView
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	237	^ (self builder componentAt:#eventMonitorView)
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	238	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	239
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	240	outputSelector
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	241	outputSelector isNil ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	242	outputSelector := #transcript asValue.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	243	outputSelector onChangeEvaluate:[ self outputSelectorChanged ].
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	244	].
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	245	^ outputSelector
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	246	!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	247
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	248	outputSelectorChanged
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	249	\|stream\|
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	250
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	251	stream := self outputSelector value == #transcript ifTrue:[Transcript] ifFalse:[Stdout].
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	252	self eventMonitorView outputStream:stream.
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	253	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	254
6759 72791b0658d6 start initially with Transcript as output Claus Gittinger <cg@exept.de> parents: 6582 diff changeset	255	postBuildWith:aBuilder
72791b0658d6 start initially with Transcript as output Claus Gittinger <cg@exept.de> parents: 6582 diff changeset	256	super postBuildWith:aBuilder.
72791b0658d6 start initially with Transcript as output Claus Gittinger <cg@exept.de> parents: 6582 diff changeset	257	self outputSelectorChanged.
72791b0658d6 start initially with Transcript as output Claus Gittinger <cg@exept.de> parents: 6582 diff changeset	258	!
72791b0658d6 start initially with Transcript as output Claus Gittinger <cg@exept.de> parents: 6582 diff changeset	259
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	260	showButtonMotion
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	261	^ self eventMonitorView showButtonMotion
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	262	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	263
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	264	showButtonMotion:aBoolean
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	265	^ self eventMonitorView showButtonMotion:aBoolean
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	266	!
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	267
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	268	showFocusEvents
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	269	^ self eventMonitorView showFocusEvents
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	270
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	271	"Created: / 04-10-2006 / 13:05:16 / cg"
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	272	!
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	273
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	274	showFocusEvents:aBoolean
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	275	^ self eventMonitorView showFocusEvents:aBoolean
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	276
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	277	"Created: / 04-10-2006 / 13:05:19 / cg"
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	278	!
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	279
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	280	showTimestamp
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	281	^ self eventMonitorView showTimestamp
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	282
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	283	"Created: / 04-10-2006 / 13:14:49 / cg"
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	284	!
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	285
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	286	showTimestamp:aBoolean
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	287	^ self eventMonitorView showTimestamp:aBoolean
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	288
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	289	"Created: / 04-10-2006 / 13:14:53 / cg"
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	290	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	291
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	292	!EventMonitor methodsFor:'menu actions'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	293
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	294	openAboutThisApplication
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	295	"This method was generated by the Browser.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	296	It will be invoked when the menu-item 'help-about' is selected."
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	297
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	298	"/ could open a customized aboutBox here ...
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	299	super openAboutThisApplication
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	300	!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	301
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	302	openDocumentation
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	303	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#EVENTMONITOR'.
8583 1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	304	!
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	305
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	306	openModalBox
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	307	Dialog information:'Modal Box'
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	308	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	309
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	310	!EventMonitor::EventMonitorView class methodsFor:'defaults'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	311
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	312	defaultExtent
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	313	^ 200 @ 200
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	314	!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	315
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	316	defaultLabel
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	317	^ 'Event Monitor'
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	318	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	319
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	320	!EventMonitor::EventMonitorView class methodsFor:'documentation'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	321
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	322	documentation
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	323	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	324	like xev - show events.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	325	You can use this to check your keyboard mappings, for example.
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	326	start with:
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	327	EventMonitorView open
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	328	and watch the output on xterm.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	329	"
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	330	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	331
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	332	!EventMonitor::EventMonitorView class methodsFor:'startup'!
1822 b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	333
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	334	isVisualStartable
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	335	^ true
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	336
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	337	"Created: / 10.8.1998 / 16:03:13 / cg"
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	338	! !
b0fb61c02717 checkin from browser Claus Gittinger <cg@exept.de> parents: 1117 diff changeset	339
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	340	!EventMonitor::EventMonitorView methodsFor:'accessing'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	341
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	342	outputStream:aStream
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	343	outputStream := aStream.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	344
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	345	labelHolder value:nil.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	346	outputStream == Stdout ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	347	labelHolder value: 'See event trace\on the standard output' withCRs.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	348	].
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	349	outputStream == Transcript ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	350	labelHolder value: 'See event trace\on the Transcript' withCRs.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	351	].
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	352	self invalidate.
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	353
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	354	"Modified: / 04-10-2006 / 13:04:16 / cg"
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	355	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	356
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	357	showButtonMotion
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	358	^ showButtonMotion ? false
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	359
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	360	"Modified: / 04-10-2006 / 13:03:31 / cg"
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	361	!
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	362
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	363	showButtonMotion:aBoolean
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	364	showButtonMotion := aBoolean.
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	365
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	366	"Modified: / 04-10-2006 / 13:04:08 / cg"
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	367	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	368
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	369	showFocusEvents
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	370	^ showFocusEvents ? true
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	371
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	372	"Created: / 04-10-2006 / 13:03:48 / cg"
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	373	!
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	374
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	375	showFocusEvents:aBoolean
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	376	showFocusEvents := aBoolean.
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	377
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	378	"Created: / 04-10-2006 / 13:04:04 / cg"
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	379	!
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	380
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	381	showTimestamp
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	382	^ showTimestamp ? false
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	383
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	384	"Created: / 04-10-2006 / 13:06:57 / cg"
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	385	!
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	386
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	387	showTimestamp:aBoolean
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	388	showTimestamp := aBoolean.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	389
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	390	"Created: / 04-10-2006 / 13:07:02 / cg"
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	391	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	392
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	393	!EventMonitor::EventMonitorView methodsFor:'drawing'!
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	394
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	395	redraw
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	396	\|y p lines font\|
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	397
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	398	self clear.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	399	lines := labelHolder value asCollectionOfLines.
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	400	font := gc font.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	401
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	402	y := (self height - ((font heightOf:'A') * lines size)) // 2.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	403	lines do:[:eachLine \|
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	404	p := (self center x - ((font widthOf:eachLine) // 2)) @ y.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	405	self displayString:eachLine value x:(p x) y:(p y).
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	406	y := y + (font heightOf:eachLine).
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	407	]
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	408	!
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	409
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	410	showEventTime
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	411	self showTimestamp ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	412	Transcript show:(Timestamp now); show:' '.
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	413	]
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	414
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	415	"Created: / 04-10-2006 / 13:08:27 / cg"
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	416	! !
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	417
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	418	!EventMonitor::EventMonitorView methodsFor:'events'!
19 4cde336c0794 Initial revision claus parents: diff changeset	419
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	420	buttonMotion:state x:x y:y
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	421	self showButtonMotion ifFalse:[^ self].
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	422
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	423	self showEventTime.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	424	outputStream nextPutAll:'buttonMotion x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	425	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	426	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	427	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	428	outputStream nextPutAll:' state:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	429	state printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	430	outputStream cr.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	431
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	432	"Modified: / 04-10-2006 / 13:07:53 / cg"
19 4cde336c0794 Initial revision claus parents: diff changeset	433	!
4cde336c0794 Initial revision claus parents: diff changeset	434
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	435	buttonMultiPress:button x:x y:y
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	436	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	437
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	438	outputStream nextPutAll:'buttonMultiPress x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	439	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	440	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	441	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	442	outputStream nextPutAll:' button:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	443	button printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	444	outputStream cr.
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	445
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	446	"Created: / 19-05-1999 / 09:40:40 / cg"
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	447	"Modified: / 04-10-2006 / 13:08:36 / cg"
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	448	!
591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	449
19 4cde336c0794 Initial revision claus parents: diff changeset	450	buttonPress:button x:x y:y
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	451	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	452
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	453	outputStream nextPutAll:'buttonPress x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	454	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	455	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	456	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	457	outputStream nextPutAll:' button:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	458	button printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	459	outputStream cr.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	460	outputStream flush.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	461
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	462	"Modified: / 04-10-2006 / 13:08:43 / cg"
19 4cde336c0794 Initial revision claus parents: diff changeset	463	!
4cde336c0794 Initial revision claus parents: diff changeset	464
4cde336c0794 Initial revision claus parents: diff changeset	465	buttonRelease:button x:x y:y
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	466	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	467
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	468	outputStream nextPutAll:'buttonRelease x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	469	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	470	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	471	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	472	outputStream nextPutAll:' button:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	473	button printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	474	outputStream cr.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	475
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	476	"Modified: / 04-10-2006 / 13:08:46 / cg"
19 4cde336c0794 Initial revision claus parents: diff changeset	477	!
4cde336c0794 Initial revision claus parents: diff changeset	478
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	479	configureX:x y:y width:newWidth height:newHeight
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	480	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	481
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	482	outputStream nextPutAll:'configure x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	483	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	484	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	485	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	486	outputStream nextPutAll:' width:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	487	newWidth printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	488	outputStream nextPutAll:' height:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	489	newHeight printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	490	outputStream nextPutAll:' button:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	491	outputStream cr.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	492
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	493	super configureX:x y:y width:newWidth height:newHeight.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	494
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	495	self invalidate.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	496
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	497	"Modified: / 04-10-2006 / 13:08:49 / cg"
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	498	!
6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	499
8583 1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	500	coveredBy:coveringView
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	501
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	502	self showEventTime.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	503
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	504	outputStream nextPutAll:'coveredBy: '.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	505	coveringView printOn:outputStream.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	506	outputStream cr.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	507	!
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	508
7320 049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	509	dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	510	event isButtonMotionEvent ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	511	self showButtonMotion ifFalse:[^ self].
7320 049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	512	].
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	513
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	514	"/ Timestamp now printOn:outputStream.
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	515	"/ outputStream nextPutAll:' '.
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	516
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	517	super dispatchEvent:event withFocusOn:focusViewOrNil delegate:doDelegate.
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	518
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	519	"Created: / 20-09-2006 / 10:29:38 / cg"
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	520	!
049c5c2a8642 * empty log message * Claus Gittinger <cg@exept.de> parents: 6759 diff changeset	521
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	522	dropMessage:dropType data:dropData
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	523	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	524
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	525	outputStream nextPutAll:'drop '.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	526	dropType printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	527	outputStream nextPutAll:' data:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	528	dropData printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	529	outputStream cr.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	530
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	531	"Modified: / 04-10-2006 / 13:09:13 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	532	!
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	533
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	534	focusIn
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	535	self showFocusEvents ifFalse:[^ self].
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	536
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	537	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	538
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	539	outputStream nextPutLine:'focusIn '.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	540
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	541	"Created: / 07-03-1996 / 15:06:18 / cg"
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	542	"Modified: / 04-10-2006 / 13:09:17 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	543	!
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	544
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	545	focusOut
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	546	self showFocusEvents ifFalse:[^ self].
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	547
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	548	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	549
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	550	outputStream nextPutLine:'focusOut '.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	551
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	552	"Created: / 07-03-1996 / 15:06:21 / cg"
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	553	"Modified: / 04-10-2006 / 13:09:20 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	554	!
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	555
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	556	hasKeyboardFocus:aBoolen
7353 1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	557	self showFocusEvents ifFalse:[^ self].
1774c44279dd * empty log message * Claus Gittinger <cg@exept.de> parents: 7320 diff changeset	558
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	559	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	560
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	561	outputStream nextPutAll:'hasKeyboardFocus:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	562	aBoolen printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	563	outputStream cr.
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	564
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	565	"Modified: / 04-10-2006 / 13:09:23 / cg"
2159 591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	566	!
591bf0fa03a9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1977 diff changeset	567
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	568	keyPress:key x:x y:y
6344 d5588ae5e92a * empty log message * Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	569	\|s rawKey untranslatedKey\|
640 7608b07af7bb show untranslated key as well Claus Gittinger <cg@exept.de> parents: 433 diff changeset	570
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	571	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	572
2805 9fb350d5fef0 checkin from browser Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	573	s := 'KeyPress x:' , x printString , ' y:' , y printString.
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	574	s printOn:outputStream.
6344 d5588ae5e92a * empty log message * Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	575
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	576	(key isMemberOf:Character) ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	577	s := ' character key:' , key storeString
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	578	, ' (' , key asciiValue printString , ')'.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	579	] ifFalse:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	580	s := ' symbolic key:' , key storeString.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	581	untranslatedKey := self graphicsDevice keyboardMap keyAtValue:key ifAbsent:key.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	582	untranslatedKey ~~ key ifTrue:[
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	583	s := s , ' untranslated key:' , untranslatedKey storeString
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	584	].
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	585	].
6344 d5588ae5e92a * empty log message * Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	586	rawKey := (WindowGroup lastEventQuerySignal query) rawKey.
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	587	s := s , ' rawKey:' , rawKey storeString.
6344 d5588ae5e92a * empty log message * Claus Gittinger <cg@exept.de> parents: 6187 diff changeset	588
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	589	s printOn:outputStream.
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	590
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	591	key isCharacter ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	592	outputStream nextPutAll:' '''.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	593	key asString printOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	594	outputStream nextPutAll:''''.
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	595	].
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	596	outputStream cr.
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	597
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	598	"Modified: / 04-10-2006 / 13:12:07 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	599	!
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	600
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	601	keyRelease:key x:x y:y
640 7608b07af7bb show untranslated key as well Claus Gittinger <cg@exept.de> parents: 433 diff changeset	602	\|untranslatedKey\|
7608b07af7bb show untranslated key as well Claus Gittinger <cg@exept.de> parents: 433 diff changeset	603
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	604	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	605
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	606	'KeyRelease x:' printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	607	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	608	' y:' printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	609	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	610
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	611	(key isMemberOf:Character) ifTrue:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	612	key codePoint <= 16rFF ifTrue:[
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	613	' character key:' printOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	614	key storeString printOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	615	] ifFalse:[
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	616	' unicode character utf8:' printOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	617	key asString utf8Encoded asByteArray hexPrintOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	618	].
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	619	' (' printOn:outputStream. key asciiValue printOn:outputStream. ')' printOn:outputStream
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	620	] ifFalse:[
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	621	' symbolic key:' print. key storeString printOn:outputStream.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	622	untranslatedKey := self graphicsDevice keyboardMap keyAtValue:key ifAbsent:key.
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	623	untranslatedKey ~~ key ifTrue:[
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	624	' untranslated key:' printOn:outputStream. untranslatedKey storeString printOn:outputStream
e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	625	]
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	626	].
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	627
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	628	outputStream cr
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	629
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	630	"Modified: / 04-10-2006 / 13:09:27 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	631	!
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	632
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	633	mapped
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	634	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	635
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	636	outputStream nextPutLine:'mapped '.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	637
1977 0ff4d80c7f32 checkin from browser Claus Gittinger <cg@exept.de> parents: 1822 diff changeset	638	super mapped.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	639
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	640	"Modified: / 04-10-2006 / 13:09:31 / cg"
45 950b84ba89e6 * empty log message * claus parents: 19 diff changeset	641	!
950b84ba89e6 * empty log message * claus parents: 19 diff changeset	642
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	643	pointerEnter:state x:x y:y
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	644	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	645
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	646	outputStream nextPutAll:'pointerEnter x:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	647	x printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	648	outputStream nextPutAll:' y:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	649	y printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	650	outputStream nextPutAll:' state:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	651	state printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	652	outputStream cr.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	653
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	654	"Modified: / 04-10-2006 / 13:09:34 / cg"
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	655	!
7b48409ae088 * empty log message * claus parents: 45 diff changeset	656
14148 5e6a841c980f access font via message send to gc Stefan Vogel <sv@exept.de> parents: 8583 diff changeset	657	pointerLeave:state
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	658	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	659
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	660	outputStream nextPutAll:'pointerLeave state:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	661	state storeString printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	662	outputStream cr.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	663
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	664	"Modified: / 04-10-2006 / 13:09:36 / cg"
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	665	!
7b48409ae088 * empty log message * claus parents: 45 diff changeset	666
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	667	sizeChanged:how
8089 9ddb90f56334 allow resize of window Stefan Vogel <sv@exept.de> parents: 7354 diff changeset	668	outputStream nextPutAll:'sizeChanged how:'.
9ddb90f56334 allow resize of window Stefan Vogel <sv@exept.de> parents: 7354 diff changeset	669	how printOn:outputStream.
9ddb90f56334 allow resize of window Stefan Vogel <sv@exept.de> parents: 7354 diff changeset	670	outputStream cr.
9ddb90f56334 allow resize of window Stefan Vogel <sv@exept.de> parents: 7354 diff changeset	671
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	672	super sizeChanged:how.
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	673	self invalidate
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	674
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	675	"Modified: / 04-10-2006 / 13:17:46 / cg"
6582 e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	676	!
e375666dc974 * empty log message * Claus Gittinger <cg@exept.de> parents: 6520 diff changeset	677
45 950b84ba89e6 * empty log message * claus parents: 19 diff changeset	678	unmapped
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	679	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	680
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	681	outputStream nextPutLine:'unmapped '.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	682
1977 0ff4d80c7f32 checkin from browser Claus Gittinger <cg@exept.de> parents: 1822 diff changeset	683	super unmapped.
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	684
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	685	"Modified: / 04-10-2006 / 13:09:41 / cg"
45 950b84ba89e6 * empty log message * claus parents: 19 diff changeset	686	!
950b84ba89e6 * empty log message * claus parents: 19 diff changeset	687
950b84ba89e6 * empty log message * claus parents: 19 diff changeset	688	visibilityChange:how
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	689	self showEventTime.
26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	690
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	691	outputStream nextPutAll:'visibilityChange:'.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	692	how storeString printOn:outputStream.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	693	outputStream cr.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	694
1977 0ff4d80c7f32 checkin from browser Claus Gittinger <cg@exept.de> parents: 1822 diff changeset	695	super visibilityChange:how
1117 6fa462d56e64 checkin from browser Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	696
7354 26df0346aac9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7353 diff changeset	697	"Modified: / 04-10-2006 / 13:09:43 / cg"
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	698	! !
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	699
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	700	!EventMonitor::EventMonitorView methodsFor:'initialization'!
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	701
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	702	initialize
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	703	super initialize.
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	704
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	705	labelHolder := '' asValue.
1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	706	self outputStream:Stdout.
19 4cde336c0794 Initial revision claus parents: diff changeset	707	! !
4cde336c0794 Initial revision claus parents: diff changeset	708
6520 1fc302c1b979 * empty log message * Claus Gittinger <cg@exept.de> parents: 6344 diff changeset	709	!EventMonitor::EventMonitorView methodsFor:'realization'!
19 4cde336c0794 Initial revision claus parents: diff changeset	710
4cde336c0794 Initial revision claus parents: diff changeset	711	initEvents
4cde336c0794 Initial revision claus parents: diff changeset	712	self enableMotionEvents.
45 950b84ba89e6 * empty log message * claus parents: 19 diff changeset	713	self enableKeyReleaseEvents.
52 7b48409ae088 * empty log message * claus parents: 45 diff changeset	714	self enableEnterLeaveEvents.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	715	self enableFocusEvents.
8583 1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	716	self enableEvent:#visibilityChange.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	717	"/ self enableEvent:#structureNotify.
1ba96eea53a8 Menu for ModalBox (in order to genrate coveredBy: events, which are not received) Stefan Vogel <sv@exept.de> parents: 8089 diff changeset	718	"/ self enableEvent:#substructureNotify.
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	719
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	720	"Modified: 7.3.1996 / 15:06:42 / cg"
19 4cde336c0794 Initial revision claus parents: diff changeset	721	! !
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	722
1021 31349a9be7ac checkin from browser ca parents: 640 diff changeset	723	!EventMonitor class methodsFor:'documentation'!
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	724
703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	725	version
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	726	^ '$Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.32 2014-03-20 12:53:40 stefan Exp $'
433 703d84558f6f also show config & focus events Claus Gittinger <cg@exept.de> parents: 165 diff changeset	727	! !
14149 e248bf1390a0 class: EventMonitor Stefan Vogel <sv@exept.de> parents: 14148 diff changeset	728

author	Stefan Vogel <sv@exept.de>
	Thu, 20 Mar 2014 13:53:40 +0100
changeset 14149	e248bf1390a0
parent 14148	5e6a841c980f
child 15566	184cea584be5
child 16250	74b7110c626e
permissions	-rw-r--r--