--- a/Tools__BreakpointBrowser.st	Sat Nov 03 17:47:28 2012 +0100
+++ b/Tools__BreakpointBrowser.st	Sat Nov 03 19:01:21 2012 +0100
@@ -32,6 +32,13 @@
 	privateIn:BreakpointBrowser
 !
 
+BreakpointBrowser::BreakpointListEntry subclass:#BreakpointListEntryForLineBreak
+	instanceVariableNames:'breakPoint'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:BreakpointBrowser
+!
+
 RBProgramNodeVisitor subclass:#MessageArgumentExtractor
 	instanceVariableNames:'callBack selectorToSearch'
 	classVariableNames:''
@@ -206,6 +213,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#itemMenu
      (Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser itemMenu)) startUp
@@ -219,7 +227,6 @@
          (MenuItem
             label: 'Browse'
             itemValue: browseSelectedItem
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -228,7 +235,11 @@
             enabled: selectedItemIsIgnoredHalt
             label: 'Stop Ignoring this Halt'
             itemValue: reenableHalt
-            translateLabel: true
+          )
+         (MenuItem
+            enabled: selectedItemIsEnabledLineBreak
+            label: 'Disable this Breakpoint'
+            itemValue: disableLineBreak
           )
          )
         nil
@@ -400,7 +411,7 @@
                   label: '-'
                 )
                (MenuItem
-                  label: 'Code Breakpoints'
+                  label: 'Coded Breakpoints'
                   submenuChannel: enabledCodeBreakpointMenu
                 )
                )
@@ -443,6 +454,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#toolBarMenu
      (Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser toolBarMenu)) startUp
@@ -450,13 +462,12 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
             label: 'Update List'
             itemValue: updateList
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
           )
@@ -467,7 +478,6 @@
             enabled: hasSelectionHolder
             label: 'Browse Selected Method'
             itemValue: browseSelectedItem
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)
           )
@@ -475,8 +485,6 @@
         nil
         nil
       )
-
-    "Modified: / 08-11-2011 / 16:43:49 / cg"
 ! !
 
 !BreakpointBrowser class methodsFor:'tableColumns specs'!
@@ -833,6 +841,13 @@
     "Created: / 22-10-2006 / 02:00:41 / cg"
 !
 
+selectedItemIsEnabledLineBreak
+    |entry|
+
+    entry := (self breakpointListEntryAtIndex:self selectionIndexHolder value).
+    ^ entry isLineBreakpoint and:[entry breakPoint isEnabled]
+!
+
 selectedItemIsIgnoredHalt
     |entry info|
 
@@ -1271,7 +1286,7 @@
 
         mthd literalsDo:[:lit | 
             lit class == Breakpoint ifTrue:[
-                entry := BreakpointListEntry new.
+                entry := BreakpointListEntryForLineBreak new.
                 entry
                     type:#line
                     arg:nil
@@ -1280,6 +1295,7 @@
                     lineNumber:(lit line)
                     info:nil
                     enabled:true.
+                entry breakPoint:lit.
                 aBlock value:entry 
             ]
         ].        
@@ -1550,6 +1566,10 @@
     "Modified: / 18-02-2007 / 12:56:30 / cg"
 !
 
+disableLineBreak
+    (self selectedBreakpointListEntry) breakPoint disable
+!
+
 itemDoubleClicked:itemIndex
     self browseSelectedItem
 
@@ -1726,6 +1746,16 @@
     ^ type == #other
 ! !
 
+!BreakpointBrowser::BreakpointListEntryForLineBreak methodsFor:'accessing'!
+
+breakPoint
+    ^ breakPoint
+!
+
+breakPoint:something
+    breakPoint := something.
+! !
+
 !BreakpointBrowser::MessageArgumentExtractor methodsFor:'accessing'!
 
 callBack:something
@@ -1789,11 +1819,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.31 2012-11-03 16:45:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.31 2012-11-03 16:45:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
 ! !
 
 BreakpointBrowser initialize!