hg/stx-libview: SynchronousWindowSensor.st@ed587c556c11 (annotated)

264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
267 5728c37ff3f6 commentary Claus Gittinger <cg@exept.de> parents: 266 diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	4
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	12
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	13	WindowSensor subclass:#SynchronousWindowSensor
730 43d9c5848424 device instVar is not needed Claus Gittinger <cg@exept.de> parents: 615 diff changeset	14	instanceVariableNames:''
598 1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 267 diff changeset	15	classVariableNames:''
1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 267 diff changeset	16	poolDictionaries:''
1a2339e902d4 commentary Claus Gittinger <cg@exept.de> parents: 267 diff changeset	17	category:'Interface-Support'
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	18	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	19
1243 0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	20	!SynchronousWindowSensor class methodsFor:'documentation'!
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	21
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	22	copyright
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	23	"
267 5728c37ff3f6 commentary Claus Gittinger <cg@exept.de> parents: 266 diff changeset	24	COPYRIGHT (c) 1995 by Claus Gittinger
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	25	All Rights Reserved
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	26
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	27	This software is furnished under a license and may be used
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	28	only in accordance with the terms of that license and with the
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	29	inclusion of the above copyright notice. This software may not
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	30	be provided or otherwise made available to, or used by, any
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	31	other person. No title to or ownership of the software is
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	32	hereby transferred.
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	33	"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	34	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	35
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	36	documentation
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	37	"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	38	in contrast to a regular windowSensor, instances of SynchronousWindowSensor
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	39	do NOT put events into a queue and do NOT wakeup any windowGroup process.
266 1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	40	Instead, the underlying view is notified synchronously (via a message send)
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	41	about the event.
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	42
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	43	These are used for only one single situation:
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	44	when a modal debugger is open
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	45	(i.e. one that is debugging the scheduler or event-dispatcher).
267 5728c37ff3f6 commentary Claus Gittinger <cg@exept.de> parents: 266 diff changeset	46
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	47	This debuggers windowGroup is augmented with a synchronous Sensor, in order
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	48	to prevent the event handling code from suspending any process
266 1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	49	(you cannot suspend the scheduler; you should not suspend the event dispatcher).
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	50
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	51	This is pretty tricky and magic - you dont have to understand this.
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	52	(consider this system internal code)
267 5728c37ff3f6 commentary Claus Gittinger <cg@exept.de> parents: 266 diff changeset	53	These sensors are not used with regular views.
612 8758d0c9933e documentation Claus Gittinger <cg@exept.de> parents: 598 diff changeset	54
8758d0c9933e documentation Claus Gittinger <cg@exept.de> parents: 598 diff changeset	55	[author:]
8758d0c9933e documentation Claus Gittinger <cg@exept.de> parents: 598 diff changeset	56	Claus Gittinger
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	57	"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	58	! !
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	59
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	60	!SynchronousWindowSensor methodsFor:'event handling'!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	61
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	62	addDamage:aRectangle view:aView wakeup:doWakeup
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	63	"forward as an expose for some view"
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	64
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	65	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	66	dispatchEvent:#exposeX:y:width:height:
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	67	arguments:(Array with:aRectangle left
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	68	with:aRectangle top
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	69	with:aRectangle width
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	70	with:aRectangle height)
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	71
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	72	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	73	"/ sendEvent:#exposeX:y:width:height:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	74	"/ arguments:(Array with:aRectangle left
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	75	"/ with:aRectangle top
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	76	"/ with:aRectangle width
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	77	"/ with:aRectangle height)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	78	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	79
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	80	"Modified: / 20.5.1998 / 22:55:37 / cg"
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	81	!
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	82
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	83	buttonMotion:button x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	84	"forward a button-motion for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	85
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	86	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	87	dispatchEvent:#buttonMotion:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	88	arguments:(Array with:button with:x with:y)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	89
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	90	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	91	"/ sendEvent:#buttonMotion:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	92	"/ arguments:(Array with:button with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	93	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	94
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	95	"Created: / 24.11.1995 / 19:14:02 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	96	"Modified: / 20.5.1998 / 22:55:54 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	97	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	98
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	99	buttonMultiPress:button x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	100	"forward a button-multi-press event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	101
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	102	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	103	dispatchEvent:#buttonMultiPress:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	104	arguments:(Array with:button with:x with:y)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	105
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	106	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	107	"/ sendEvent:#buttonMultiPress:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	108	"/ arguments:(Array with:button with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	109	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	110
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	111	"Created: / 24.11.1995 / 19:14:14 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	112	"Modified: / 20.5.1998 / 22:56:07 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	113	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	114
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	115	buttonPress:button x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	116	"forward a button-press event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	117
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	118	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	119	dispatchEvent:#buttonPress:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	120	arguments:(Array with:button with:x with:y)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	121
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	122	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	123	"/ sendEvent:#buttonPress:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	124	"/ arguments:(Array with:button with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	125	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	126
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	127	"Created: / 24.11.1995 / 19:14:25 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	128	"Modified: / 20.5.1998 / 22:56:23 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	129	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	130
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	131	buttonRelease:button x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	132	"forward a button-release event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	133
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	134	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	135	dispatchEvent:#buttonRelease:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	136	arguments:(Array with:button with:x with:y)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	137
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	138	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	139	"/ sendEvent:#buttonRelease:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	140	"/ arguments:(Array with:button with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	141	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	142
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	143	"Created: / 24.11.1995 / 19:14:36 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	144	"Modified: / 20.5.1998 / 22:56:34 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	145	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	146
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	147	configureX:x y:y width:w height:h view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	148	"forward a configure for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	149
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	150	aView configureX:x y:y width:w height:h
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	151
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	152	"Created: 24.11.1995 / 19:14:59 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	153	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	154
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	155	coveredBy:otherView view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	156	"forward a covered for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	157
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	158	aView coveredBy:otherView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	159
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	160	"Created: 24.11.1995 / 19:15:11 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	161	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	162
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	163	destroyedView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	164	"forward a destroyed event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	165
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	166	aView destroyed
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	167
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	168	"Created: 24.11.1995 / 19:15:22 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	169	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	170
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	171	exposeX:x y:y width:w height:h view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	172	"forward an expose for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	173
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	174	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	175	dispatchEvent:#exposeX:y:width:height:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	176	arguments:(Array with:x with:y with:w with:h)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	177
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	178	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	179	"/ sendEvent:#exposeX:y:width:height:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	180	"/ arguments:(Array with:x with:y with:w with:h)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	181	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	182
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	183	"Created: / 24.11.1995 / 19:15:54 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	184	"Modified: / 20.5.1998 / 22:56:49 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	185	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	186
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	187	focusInView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	188	"forward a focusIn event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	189
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	190	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	191	dispatchEvent:#focusIn
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	192	arguments:nil
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	193
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	194	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	195	"/ sendEvent:#focusIn
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	196	"/ arguments:nil
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	197	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	198
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	199	"Created: / 24.11.1995 / 19:16:11 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	200	"Modified: / 20.5.1998 / 22:57:04 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	201	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	202
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	203	focusOutView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	204	"forward a focusOut event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	205
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	206	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	207	dispatchEvent:#focusOut
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	208	arguments:nil
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	209
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	210	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	211	"/ sendEvent:#focusOut
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	212	"/ arguments:nil
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	213	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	214
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	215	"Created: / 24.11.1995 / 19:16:24 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	216	"Modified: / 20.5.1998 / 22:57:16 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	217	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	218
1295 ef93ded3c030 renamed graphicExpose -> graphicsExpose; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	219	graphicsExposeX:x y:y width:w height:h final:final view:aView
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	220	"forward a graphic expose for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	221
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	222	"/ this is a possible response to a scroll operation
1244 d3182558fc9d hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1243 diff changeset	223	"/ (if an expose is pending)
d3182558fc9d hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1243 diff changeset	224
1295 ef93ded3c030 renamed graphicExpose -> graphicsExpose; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	225	final ifTrue:[
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	226	(catchExpose includes:aView) ifTrue:[
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	227	gotExpose add:aView.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	228	]
1244 d3182558fc9d hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1243 diff changeset	229	].
d3182558fc9d hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1243 diff changeset	230
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	231	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	232	dispatchEvent:#graphicsExposeX:y:width:height:final:
1295 ef93ded3c030 renamed graphicExpose -> graphicsExpose; Claus Gittinger <cg@exept.de> parents: 1250 diff changeset	233	arguments:(Array with:x with:y with:w with:h with:final)
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	234
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	235	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	236	"/ sendEvent:#graphicsExposeX:y:width:height:final:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	237	"/ arguments:(Array with:x with:y with:w with:h with:final)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	238	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	239
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	240	"Created: / 24.11.1995 / 19:16:38 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	241	"Modified: / 20.5.1998 / 22:57:32 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	242	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	243
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	244	keyPress:untranslatedKey x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	245	"forward a key-press event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	246
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	247	\|xlatedKey\|
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	248
266 1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	249	self key:untranslatedKey state:true.
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	250
2141 ed587c556c11 ask view for keyboardMap. Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	251	xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	252	xlatedKey notNil ifTrue:[
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	253	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	254	dispatchEvent:#keyPress:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	255	arguments:(Array with:xlatedKey with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	256
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	257	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	258	"/ sendEvent:#keyPress:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	259	"/ arguments:(Array with:xlatedKey with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	260	"/ view:aView
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	261	]
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	262
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	263	"Created: / 24.11.1995 / 19:17:23 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	264	"Modified: / 20.5.1998 / 22:57:52 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	265	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	266
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	267	keyRelease:untranslatedKey x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	268	"forward a key-release event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	269
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	270	\|xlatedKey\|
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	271
266 1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	272	self key:untranslatedKey state:false.
1e234d542ef9 oops - forgot modifier key processing (altDown, shiftDown etc.) Claus Gittinger <cg@exept.de> parents: 264 diff changeset	273
2141 ed587c556c11 ask view for keyboardMap. Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	274	xlatedKey := aView graphicsDevice translateKey:untranslatedKey forView:aView.
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	275	xlatedKey notNil ifTrue:[
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	276	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	277	dispatchEvent:#keyRelease:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	278	arguments:(Array with:xlatedKey with:x with:y)
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	279
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	280	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	281	"/ sendEvent:#keyRelease:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	282	"/ arguments:(Array with:xlatedKey with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	283	"/ view:aView
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	284	]
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	285
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	286	"Created: / 24.11.1995 / 19:17:50 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	287	"Modified: / 20.5.1998 / 22:58:05 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	288	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	289
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	290	mappedView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	291	"forward a mapped event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	292
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	293	aView mapped
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	294
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	295	"Created: 24.11.1995 / 19:18:01 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	296	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	297
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	298	noExposeView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	299	"forward a noExpose event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	300
1243 0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	301	catchExpose isNil ifTrue:[
0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	302	'SWSensor [info]: noExpose but not catching' infoPrintCR.
0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	303	].
0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	304
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	305	(catchExpose includes:aView) ifTrue:[
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	306	gotExpose add:aView.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	307	catchExpose remove:aView.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	308	].
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	309	aView noExpose.
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	310
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	311	"Created: 24.11.1995 / 19:18:10 / cg"
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	312	"Modified: 29.1.1997 / 20:46:47 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	313	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	314
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	315	pointerEnter:buttonState x:x y:y view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	316	"forward a pointer enter for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	317
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	318	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	319	dispatchEvent:#pointerEnter:x:y:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	320	arguments:(Array with:buttonState with:x with:y)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	321
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	322	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	323	"/ sendEvent:#pointerEnter:x:y:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	324	"/ arguments:(Array with:buttonState with:x with:y)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	325	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	326
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	327	"Created: / 24.11.1995 / 19:18:20 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	328	"Modified: / 20.5.1998 / 22:58:20 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	329	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	330
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	331	pointerLeave:buttonState view:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	332	"forward a pointer leave for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	333
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	334	aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	335	dispatchEvent:#pointerLeave:
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	336	arguments:(Array with:buttonState)
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	337
2126 1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	338	"/ WindowEvent
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	339	"/ sendEvent:#pointerLeave:
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	340	"/ arguments:(Array with:buttonState)
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	341	"/ view:aView
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	342
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	343	"Created: / 24.11.1995 / 19:18:30 / cg"
1f108c76dfdb moved event dispatching code to view (where it belongs) Claus Gittinger <cg@exept.de> parents: 1872 diff changeset	344	"Modified: / 20.5.1998 / 22:58:35 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	345	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	346
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	347	saveAndTerminateView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	348	"forward a saveAndTerminate event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	349
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	350	aView saveAndTerminate
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	351
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	352	"Created: 24.11.1995 / 19:18:38 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	353	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	354
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	355	terminateView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	356	"forward a terminate event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	357
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	358	aView terminate
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	359
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	360	"Created: 24.11.1995 / 19:18:48 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	361	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	362
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	363	unmappedView:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	364	"forward an unmapped event for some view"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	365
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	366	aView unmapped
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	367
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	368	"Created: 24.11.1995 / 19:18:59 / cg"
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	369	! !
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	370
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	371	!SynchronousWindowSensor methodsFor:'specials'!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	372
1243 0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	373	catchExposeFor:aView
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	374	"start catching noExpose events (must be done BEFORE a bitblt)."
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	375
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	376	catchExpose notEmpty ifTrue:[
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	377	'SWSensor [warning]: already catching in catchExpose' errorPrintCR.
1243 0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	378	].
0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	379
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	380	gotOtherEvent remove:aView ifAbsent:nil.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	381	gotExpose remove:aView ifAbsent:nil.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	382	catchExpose add:aView.
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	383
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	384	"Modified: 29.1.1997 / 20:43:44 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	385	!
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	386
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	387	waitForExposeFor:aView
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	388	"wait until a graphicsExpose or a noExpose arrives (after a bitblt)."
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	389
1872 2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	390	\|device windowId stopPoll endPollTime\|
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	391
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	392	device := aView graphicsDevice.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	393
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	394	"/ this is only needed for X ...
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	395	device scrollsAsynchronous ifTrue:[
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	396	windowId := aView id.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	397
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	398	"/
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	399	"/ cannot suspend, I am a synchronous-modal sensor
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	400	"/ must poll for the event
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	401	"/
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	402	endPollTime := AbsoluteTime now addSeconds:10.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	403	stopPoll := false.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	404
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	405	[(gotExpose includes:aView) or:[stopPoll]] whileFalse:[
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	406	(device exposeEventPendingFor:windowId withSync:true) ifTrue:[
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	407	device dispatchExposeEventFor:windowId.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	408	].
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	409	stopPoll := (AbsoluteTime now > endPollTime).
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	410	Processor yield.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	411	].
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	412
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	413	stopPoll ifTrue:[
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	414	'SyncWindowSensor [warning]: lost expose event' errorPrintCR.
2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	415	]
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	416	].
1872 2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	417
1299 5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	418	catchExpose remove:aView ifAbsent:nil.
5ebe6f8165cf checkin from browser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	419	gotExpose remove:aView ifAbsent:nil.
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	420
1872 2a10e693d93f break non-windowGroup expose-poll loop after a while (10 seconds) Claus Gittinger <cg@exept.de> parents: 1299 diff changeset	421	"Modified: 19.8.1997 / 17:25:09 / cg"
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	422	! !
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	423
1243 0c33cb7f8458 hopefully fixed the 'lost expose' bug Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	424	!SynchronousWindowSensor class methodsFor:'documentation'!
264 fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	425
fc9ecf4814a0 use another (synchronous) type of sensor while in a modal debugger. Claus Gittinger <cg@exept.de> parents: diff changeset	426	version
2141 ed587c556c11 ask view for keyboardMap. Claus Gittinger <cg@exept.de> parents: 2126 diff changeset	427	^ '$Header: /cvs/stx/stx/libview/SynchronousWindowSensor.st,v 1.17 1998-06-09 12:31:37 cg Exp $'
615 59b046c2e44f documentation Claus Gittinger <cg@exept.de> parents: 612 diff changeset	428	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jun 1998 14:31:53 +0200
changeset 2141	ed587c556c11
parent 2126	1f108c76dfdb
child 2699	01594e76fc92
permissions	-rw-r--r--