equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libview' }" |
12 "{ Package: 'stx:libview' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Object subclass:#WindowSensor |
16 Object subclass:#WindowSensor |
15 instanceVariableNames:'eventSemaphore damage mouseAndKeyboard compressMotionEvents |
17 instanceVariableNames:'eventSemaphore damage mouseAndKeyboard compressMotionEvents |
16 ignoreUserInput exposeEventSemaphore catchExpose gotExpose |
18 ignoreUserInput exposeEventSemaphore catchExpose gotExpose |
17 gotOtherEvent translateKeyboardEvents shiftDown ctrlDown metaDown |
19 gotOtherEvent translateKeyboardEvents shiftDown ctrlDown metaDown |
217 [see also:] |
219 [see also:] |
218 WindowGroup |
220 WindowGroup |
219 WindowEvent KeyboardMap KeyboardForwarder EventListener |
221 WindowEvent KeyboardMap KeyboardForwarder EventListener |
220 GraphicsDevice DeviceWorkstation View |
222 GraphicsDevice DeviceWorkstation View |
221 " |
223 " |
222 ! |
|
223 |
|
224 version |
|
225 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $' |
|
226 ! |
|
227 |
|
228 version_CVS |
|
229 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015-02-05 08:54:11 cg Exp $' |
|
230 ! ! |
224 ! ! |
231 |
225 |
232 !WindowSensor class methodsFor:'initialization'! |
226 !WindowSensor class methodsFor:'initialization'! |
233 |
227 |
234 initialize |
228 initialize |
2492 "Modified: / 29-06-2011 / 18:57:19 / cg" |
2486 "Modified: / 29-06-2011 / 18:57:19 / cg" |
2493 ! ! |
2487 ! ! |
2494 |
2488 |
2495 !WindowSensor methodsFor:'event simulation'! |
2489 !WindowSensor methodsFor:'event simulation'! |
2496 |
2490 |
|
2491 enqueueMessage:selector for:someone arguments:argList |
|
2492 "/ |
|
2493 "/ if such a message is already in the queue, ignore it. |
|
2494 "/ Otherwise push it as an event, to be handled when my thread is |
|
2495 "/ back in the event loop. |
|
2496 "/ |
|
2497 self criticalUserEventQueueAccess:[ |
|
2498 (self hasUserEvent:selector for:someone withArguments:argList) ifFalse:[ |
|
2499 self pushUserEvent:selector for:someone withArguments:argList |
|
2500 ]. |
|
2501 ]. |
|
2502 ! |
|
2503 |
2497 forwardKeyEventsTo:aView |
2504 forwardKeyEventsTo:aView |
2498 "remove all keyboard events and send them to aViews sensor instead" |
2505 "remove all keyboard events and send them to aViews sensor instead" |
2499 |
2506 |
2500 1 to:mouseAndKeyboard size do:[:i | |
2507 1 to:mouseAndKeyboard size do:[:i | |
2501 |anEvent| |
2508 |anEvent| |
3340 ]. |
3347 ]. |
3341 |
3348 |
3342 "Modified: 10.2.1997 / 13:30:43 / cg" |
3349 "Modified: 10.2.1997 / 13:30:43 / cg" |
3343 ! ! |
3350 ! ! |
3344 |
3351 |
|
3352 !WindowSensor class methodsFor:'documentation'! |
|
3353 |
|
3354 version |
|
3355 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015/02/05 08:54:11 cg Exp $' |
|
3356 ! |
|
3357 |
|
3358 version_CVS |
|
3359 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.292 2015/02/05 08:54:11 cg Exp $' |
|
3360 ! ! |
|
3361 |
3345 |
3362 |
3346 WindowSensor initialize! |
3363 WindowSensor initialize! |