--- a/WindowSensor.st Tue May 03 06:43:14 2016 +0200
+++ b/WindowSensor.st Wed May 04 06:51:28 2016 +0200
@@ -1955,12 +1955,12 @@
^ self
].
].
-
+
eventSemaphore notNil ifTrue:[
"/ can get along with a single trigger;
"/ because processEvents will read all events
eventSemaphore signalOnce.
-
+
"/ a little kludge:
"/ if this is a mouse-click, AND more than one event is already in the queue
"/ AND the windowGroup process is being debugged,
@@ -1971,10 +1971,13 @@
mouseAndKeyboard size > 1 ifTrue:[
evView windowGroup notNil ifTrue:[
(wgProcess := evView windowGroup process) notNil ifTrue:[
- wgProcess isDebugged notNil ifTrue:[
- DebugView allInstances do:[:dbg |
- dbg inspectedProcess == wgProcess ifTrue:[
- dbg window topView raiseDeiconified
+ wgProcess isDebugged ifTrue:[
+ "/ but not for debuggers inside debuggers
+ (evView topView isKindOf:DebugView) ifFalse:[
+ DebugView allInstances do:[:dbg |
+ dbg inspectedProcess == wgProcess ifTrue:[
+ dbg window topView raiseDeiconified
+ ].
].
].
].