WindowSensor.st
branchjv
changeset 7330 8a02ce8b017d
parent 7328 a3430e3e9533
parent 7329 72f93ee8904e
child 7377 3d54f2920bff
--- 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
+                                        ].    
                                     ].    
                                 ].    
                             ].