Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed:
authorStefan Vogel <sv@exept.de>
Wed, 11 Nov 2009 12:33:03 +0100
changeset 9235 fdcf1d96cdfe
parent 9234 c098837bb1f2
child 9236 3559b8aad270
changed: #doShowSelection: #stepOrNext Ignore #halt in debugger
DebugView.st file | annotate | diff | comparison | revisions 
--- a/DebugView.st	Wed Nov 11 11:44:44 2009 +0100
+++ b/DebugView.st	Wed Nov 11 12:33:03 2009 +0100
@@ -2744,8 +2744,8 @@
         here := nil.
         con := thisContext sender sender sender.
 
-        BreakPointInterrupt handle:[:ex |
-            ('DebugView [info]: breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
+        HaltInterrupt handle:[:ex |
+            ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
             ex proceed
         ] do:[
             self enter:con select:nil.
@@ -3253,8 +3253,8 @@
     ].
     con := thisContext sender sender.
 
-    BreakPointInterrupt handle:[:ex |
-        'DebugView [info]: breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
+    HaltInterrupt handle:[:ex |
+        'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
         ex proceed
     ] do:[
         self enter:con select:initiallyShown
@@ -6112,9 +6112,9 @@
     "user clicked on a header line - show selected code in textView.
      Also sent to autoselect an interesting context on entry."
 
-    BreakPointInterrupt handle:[:ex |
+    HaltInterrupt handle:[:ex |
         ignoreBreakpoints ifFalse:[ex reject].
-        ('DebugView [info]: breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
+        ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
         ex proceed
     ] do:[
         self updateForContext:lineNr
@@ -6822,11 +6822,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.487 2009-10-31 13:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.488 2009-11-11 11:33:03 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.487 2009-10-31 13:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.488 2009-11-11 11:33:03 stefan Exp $'
 ! !
 
 DebugView initialize!
hg/stx-libtool