--- a/WindowSensor.st Tue Jan 31 17:06:55 2017 +0100
+++ b/WindowSensor.st Tue Jan 31 17:07:21 2017 +0100
@@ -888,23 +888,23 @@
p := Processor activeProcess.
wasBlocked := p blockInterrupts.
+
[
- Error handle:[:ex |
- ('WindowSensor [Warning]: Error in eventQ handling ignored: ' , ex description) errorPrintCR.
- "/ thisContext fullPrintAll.
- "/ whichLock printCR.
- ex return
- ] do:[
- whichLock critical:aBlock
- ]
+ whichLock critical:aBlock
+ ] on:Error do:[:ex|
+ ('WindowSensor [Warning]: Error in eventQ handling ignored: ' , ex description) errorPrintCR.
+ "/ thisContext fullPrintAll.
+ "/ whichLock printCR.
+ ex return.
] ensure:[
wasBlocked ifFalse:[
p unblockInterrupts.
]
]
- "Created: / 6.6.1998 / 21:04:02 / cg"
- "Modified: / 14.10.1998 / 17:17:05 / cg"
+ "Created: / 06-06-1998 / 21:04:02 / cg"
+ "Modified: / 14-10-1998 / 17:17:05 / cg"
+ "Modified: / 31-01-2017 / 16:53:08 / stefan"
!
criticalUserEventQueueAccess:aBlock