--- a/Tools__BreakpointBrowser.st	Fri Jun 21 00:33:54 2013 +0200
+++ b/Tools__BreakpointBrowser.st	Fri Jun 21 00:34:45 2013 +0200
@@ -1028,7 +1028,7 @@
     ].
 
     self showOthers ifFalse:[
-        newList := newList reject:[:entry | entry isOther].
+        newList := newList reject:[:entry | entry isOther or:[ entry isTodo] ].
     ].
     self showDebugCode ifFalse:[
         newList := newList reject:[:entry | entry isDebugCode].
@@ -1066,9 +1066,9 @@
                     showInList := true.
                     info := Debugger haltIgnoreInformationFor:(entry method) atLineNr:(entry lineNumber).
                     isIgnored := info notNil and:[ info isHaltIgnored ].
+                    info notNil ifTrue:[ entry ignoredInfo:info haltIgnoredInfoString ].
                     showWhichHalt == #ignored ifTrue:[
                         showInList := isIgnored.
-                        isIgnored ifTrue:[ entry ignoredInfo:info haltIgnoredInfoString ].
                     ] ifFalse:[
                         showInList := isIgnored not
                     ].
@@ -1598,7 +1598,7 @@
 aMethodWith_halt
     "only here for demonstration purposes - should be found in the breakpoint browser''s list"
 
-    self halt
+    self halt "/ should be highlighted in breakpoint browser
 
     "after the first halt, in the debugger, ignore this halt for some time and see what
      the breakpoint browser shows...
@@ -1612,7 +1612,7 @@
 aMethodWith_halt2
     "only here for demonstration purposes - should be found in the breakpoint browser''s list"
 
-    self halt:'some message'
+    self halt:'some message' "/ should be highlighted in breakpoint browser
 !
 
 aMethodWith_todo
@@ -1897,6 +1897,10 @@
 
 isOther
     ^ type == #other
+!
+
+isTodo
+    ^ type == #todo
 ! !
 
 !BreakpointBrowser::BreakpointListEntryForLineBreak methodsFor:'accessing'!
@@ -1977,11 +1981,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.46 2013-06-20 22:34:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.46 2013-06-20 22:34:45 cg Exp $'
 ! !