WindowSensor.st
branchjv
changeset 7735 16d70a0e8245
parent 7723 620e91f9b082
parent 7733 2b19dc622ad8
child 7855 46203abe7d57
equal deleted inserted replaced
7731:060f78ef56f8 7735:16d70a0e8245
  1975                 mouseAndKeyboard size > 1 ifTrue:[
  1975                 mouseAndKeyboard size > 1 ifTrue:[
  1976                     evView windowGroup notNil ifTrue:[
  1976                     evView windowGroup notNil ifTrue:[
  1977                         (wgProcess := evView windowGroup process) notNil ifTrue:[
  1977                         (wgProcess := evView windowGroup process) notNil ifTrue:[
  1978                             wgProcess isDebugged ifTrue:[
  1978                             wgProcess isDebugged ifTrue:[
  1979                                 "/ but not for debuggers inside debuggers
  1979                                 "/ but not for debuggers inside debuggers
  1980                                 (evView topView isKindOf:DebugView) ifFalse:[
  1980                                 (evView topView isDebugView) ifFalse:[
  1981                                     DebugView allInstances do:[:dbg |
  1981                                     DebugView allInstances do:[:dbg |
  1982                                         dbg inspectedProcess == wgProcess ifTrue:[
  1982                                         dbg inspectedProcess == wgProcess ifTrue:[
  1983                                             dbg window topView raiseDeiconified
  1983                                             dbg window topView raiseDeiconified
  1984                                         ].    
  1984                                         ].    
  1985                                     ].    
  1985                                     ].