# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1371743833 -7200
# Node ID 626cbab0ce934c871ecc94a7fe1690607c31fc5f
# Parent  cf8330cc265e481ae9e58df9589990daaf0e0a7c
class: Tools::BreakpointBrowser
comment/format in: #withBreakpointListEntriesFor:class:selector:messages:messageSelectors:rememberingCodeBreakpointTypesIn:do:
changed:
        #defaultListOfMessagesAndTypes
        #reenableHalt
handle todo and new breakpoint API in debugview

diff -r cf8330cc265e -r 626cbab0ce93 Tools__BreakpointBrowser.st
--- a/Tools__BreakpointBrowser.st	Thu Jun 20 17:56:42 2013 +0200
+++ b/Tools__BreakpointBrowser.st	Thu Jun 20 17:57:13 2013 +0200
@@ -85,8 +85,8 @@
         (#halt:                 #halt)
         (#assert:               #assertion)
         (#assert:message:       #assertion)
-        (#todo                  #other)
-        (#todo:                 #other)
+        (#todo                  #todo)
+        (#todo:                 #todo)
     ).
 !
 
@@ -1305,6 +1305,7 @@
             "/ to fetch all message selectors. This should be done only once,
             "/ and not for every selector we look for)
             (messagesSent includesIdentical:bpSel) ifTrue:[
+
                 tree := RBParser 
                     parseMethod:mthd source
                     onError:[:aString :pos | 
@@ -1434,7 +1435,8 @@
     Debugger 
         ignoreHaltIn:(entry method) 
         at:(entry lineNumber) 
-        forCount:nil orTimeDuration:nil orUntilShiftKey:false.
+        forCount:nil orTimeDuration:nil orUntilShiftKey:false
+        orReceiverClass:nil orProcess:nil.
     self updateShownBreakpointList
 
     "Modified: / 27-01-2012 / 11:34:11 / cg"
@@ -1945,6 +1947,9 @@
         selectorToSearch == #halt: ifTrue:[
             infoMessage := arg1.
         ].
+        selectorToSearch == #todo: ifTrue:[
+            infoMessage := arg1.
+        ].
         selectorToSearch == #breakPoint: ifTrue:[
             argument := arg1.
         ].
@@ -1972,11 +1977,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
 ! !