--- a/Tools__BreakpointBrowser.st	Thu Mar 28 16:13:48 2013 +0100
+++ b/Tools__BreakpointBrowser.st	Thu Mar 28 16:26:43 2013 +0100
@@ -557,7 +557,9 @@
          labelActionSelector: sortBy:
          labelActionArgument: 'type'
          width: 70
-         model: type
+         model: typeString
+         menuFromApplication: false
+         writeSelector: type:
          canSelect: false
        )
       (DataSetColumnSpec
@@ -599,8 +601,9 @@
          labelButtonType: Button
          columnAlignment: center
          width: 50
-         model: isIgnored
+         model: isIgnoredString
          menuFromApplication: false
+         writeSelector: isIgnored:
        )
       (DataSetColumnSpec
          label: 'Info'
@@ -1783,9 +1786,13 @@
 
 isIgnored
     type == #halt ifTrue:[
-        (Debugger haltIgnoreInformationFor:self method atLineNr:lineNumber)
-            notNil ifTrue:[^ 'Yes'].
+        ^ (Debugger haltIgnoreInformationFor:self method atLineNr:lineNumber) notNil
     ].
+    ^ false
+!
+
+isIgnoredString
+    self isIgnored ifTrue:[^ 'Yes'].
     ^ ''
 !
 
@@ -1809,6 +1816,14 @@
     lineNumber := lineNumberArg.
     info := infoArg.
     enabled := enabledArg.
+!
+
+typeString
+"/ loks ugly
+"/    self isIgnored ifTrue:[
+"/        ^ type asText allStrikedOut
+"/    ].
+    ^ type
 ! !
 
 !BreakpointBrowser::BreakpointListEntry methodsFor:'actions'!
@@ -1956,11 +1971,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.42 2013-03-28 15:13:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.43 2013-03-28 15:26:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.42 2013-03-28 15:13:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.43 2013-03-28 15:26:43 cg Exp $'
 ! !