--- a/Tools__BreakpointBrowser.st	Sun Nov 04 13:27:05 2012 +0100
+++ b/Tools__BreakpointBrowser.st	Sun Nov 04 14:05:47 2012 +0100
@@ -300,8 +300,9 @@
            (Menu
               (
                (MenuItem
-                  label: 'Update List'
-                  itemValue: updateList
+                  label: 'Toggle all'
+                  itemValue: toggleAllShownTypes
+                  hideMenuOnActivated: false
                 )
                (MenuItem
                   label: '-'
@@ -385,6 +386,13 @@
                   hideMenuOnActivated: false
                   indication: showLineBreakpoints
                 )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Update List'
+                  itemValue: updateList
+                )
                )
               nil
               nil
@@ -1306,7 +1314,7 @@
 
 codeViewClass
     ^ UserPreferences current useCodeView2
-        ifTrue:[ Tools::CodeView2c ]
+        ifTrue:[ Tools::CodeView2 ]
         ifFalse:[ CodeView ]
 !
 
@@ -1345,16 +1353,6 @@
     super release
 ! !
 
-!BreakpointBrowser methodsFor:'menu actions'!
-
-openDocumentation
-    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
-
-    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
-    "/ directory, and open a viewer with:
-    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
-! !
-
 !BreakpointBrowser methodsFor:'menu actions-item'!
 
 browseItem
@@ -1577,6 +1575,10 @@
     "Modified: / 18-02-2007 / 12:56:30 / cg"
 !
 
+openDocumentation
+    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
+!
+
 resort
     |sortBlock sortBlock1|
 
@@ -1647,6 +1649,16 @@
     self resort.
 
     "Created: / 25-10-2006 / 00:54:59 / cg"
+!
+
+toggleAllShownTypes
+    self showAssertions:(self showAssertions not).
+    self showHalts:(self showHalts not).
+    self showCodeBreakpoints:(self showCodeBreakpoints not).
+    self showDebugCode:(self showDebugCode not).
+    self showLineBreakpoints:(self showLineBreakpoints not).
+    self showMethodBreakpoints:(self showMethodBreakpoints not).
+    self showOthers:(self showOthers not).
 ! !
 
 !BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
@@ -1819,11 +1831,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.33 2012-11-04 13:05:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.32 2012-11-03 18:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.33 2012-11-04 13:05:47 cg Exp $'
 ! !
 
 BreakpointBrowser initialize!