# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1377448569 -7200
# Node ID 4cc837ad38544f29793a1597fcef23cfe7d06780
# Parent  d21110a7dded37690344a94899861376735db75b
class: DebugView
class definition
changed:
        #controlLoopCatchingErrors
        #doGotoDialogOpener
        #setContext:releaseInspectors:
        #updateButtonsAndMenuItemsForContext:

diff -r d21110a7dded -r 4cc837ad3854 DebugView.st
--- a/DebugView.st	Sun Aug 25 17:23:49 2013 +0200
+++ b/DebugView.st	Sun Aug 25 18:36:09 2013 +0200
@@ -30,7 +30,7 @@
 		methodCodeToggleSelectionHolder
 		isStoppedAtBreakPointWithParameter breakPointParameter
 		hideSupportCode contextInfoLabel resendButton
-		gotoDialogOpenerButton'
+		gotoDialogOpenerButton isStoppedInModalDialog'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
 		DebuggingDebugger DebuggingDebugger2
 		DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
@@ -4649,7 +4649,15 @@
             idx := i + 1.
             nextCon := contextArray at:idx.
             [ (nextCon receiver == dialog)
-              or:[ nextCon receiver == dialog class]
+              or:[ nextCon receiver == dialog class
+              or:[ nextCon receiver == DialogBox ]]
+            ] whileTrue:[
+                idx := idx + 1.
+                nextCon := contextArray at:idx.
+            ].
+            [ (nextCon receiver isKindOf:UserInformation)
+              or:[ nextCon receiver isBehavior
+                   and:[nextCon receiver includesBehavior:UserInformation]]
             ] whileTrue:[
                 idx := idx + 1.
                 nextCon := contextArray at:idx.
@@ -6023,7 +6031,7 @@
         m notNil ifTrue:[m enable:#doContinue]
     ].
 
-    Processor activeProcess isModal ifTrue:[
+    isStoppedInModalDialog ifTrue:[
         gotoDialogOpenerButton enable.
         gotoDialogOpenerButton beVisible.
     ] ifFalse:[
@@ -6693,7 +6701,7 @@
 "/        ^ false
 "/    ].
 
-    isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := false.
+    isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := isStoppedInModalDialog := false.
     firstContext := aContext.
 
     m := contextView middleButtonMenu.
@@ -6785,6 +6793,10 @@
                         ].
                     ]
                 ]
+            ] ifFalse:[
+                con selector == #openModal ifTrue:[
+                    isStoppedInModalDialog := true.
+                ].
             ].
 
             [
@@ -7487,10 +7499,14 @@
             "/ come up on my device.
             Screen currentScreenQuerySignal answer:device
             do:[
-                windowGroup
-                    eventLoopWhile:[Processor activeProcess state:#debug.
-                                      true]
-                    onLeave:[]
+                Dialog aboutToOpenBoxNotificationSignal
+                    handle:[:ex | ex proceed ]
+                    do:[
+                        windowGroup
+                            eventLoopWhile:[Processor activeProcess state:#debug.
+                                              true]
+                            onLeave:[]
+                    ]
             ]
         ].
     ].
@@ -8730,15 +8746,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.614 2013-08-25 15:23:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.614 2013-08-25 15:23:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.614 2013-08-25 15:23:49 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.615 2013-08-25 16:36:09 cg Exp $'
 ! !