--- a/WindowSensor.st Fri Dec 12 19:32:42 2014 +0100
+++ b/WindowSensor.st Thu Jan 29 10:54:04 2015 +0100
@@ -636,6 +636,10 @@
"Modified: / 29.10.1997 / 15:48:29 / cg"
!
+eventListeners
+ ^ EventListeners
+!
+
removeEventListener:aListener
"remove a global eventListener (with new protocol - #handleEvent:)
- see documentation for what this can be used for"
@@ -1422,7 +1426,7 @@
device := aView graphicsDevice.
self key:key state:true.
-"/ 'key: ' print. key storeString printCR.
+ "/ 'key: ' print. key storeString printCR.
"/ bail out of a popUpView with ctrl-shift-escape
"/ (useful to avoid total lock of system with non-functioning grabbing popUpView)
@@ -1441,11 +1445,11 @@
] ifFalse:[
xlatedKey := key.
].
-"/ xlatedKey printCR.
-
-"/ 'key: ' print. key storeString printCR.
-"/ 'xlatedKey: ' print. xlatedKey storeString printCR.
-"/ 'keyWithModifier: ' print. keyWithModifier storeString printCR.
+ "/ xlatedKey printCR.
+
+ "/ 'key: ' print. key storeString printCR.
+ "/ 'xlatedKey: ' print. xlatedKey storeString printCR.
+ "/ 'keyWithModifier: ' print. keyWithModifier storeString printCR.
xlatedKey isNil ifTrue:[^ self].
@@ -1533,6 +1537,8 @@
^ self
].
+ "/ 'shift: ' print. shiftDown printCR.
+ "/ 'ctrl: ' print. ctrlDown printCR.
ev := WindowEvent
keyPress:xlatedKey
rawKey:keyWithModifier
@@ -2468,7 +2474,7 @@
!
pushAction:aBlock
- "enqueu an action into my event queue.
+ "enqueue an action into my event queue.
The underlying window process will evaluate aBlock in its event loop
(i.e. syncronously). Use this to present the result of an asyncronous background
computation"
@@ -3253,7 +3259,7 @@
!WindowSensor class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.284.2.1 2014-05-08 08:27:50 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.284.2.2 2015-01-29 09:54:04 stefan Exp $'
! !