--- a/Tools__BreakpointBrowser.st	Sat Oct 03 08:47:36 2009 +0200
+++ b/Tools__BreakpointBrowser.st	Sat Oct 03 12:37:36 2009 +0200
@@ -1195,31 +1195,31 @@
 
     breakpointArgs := Set new.
     breakpointList
-			select:[:entry | entry arg notNil]
-			thenDo:[:entry | breakpointArgs add:entry arg].
+        select:[:entry | entry arg notNil]
+        thenDo:[:entry | breakpointArgs add:entry arg].
     (breakpointList contains:[:entry | entry arg isNil]) ifTrue:[
-	breakpointArgs add:'<nil>'.
+        breakpointArgs add:'<nil>'.
     ].
     breakpointArgs := breakpointArgs asSortedCollection.
 
     menu := Menu new.
     breakpointArgs do:[:arg|
-	| menuItem |
+        | menuItem |
 
-	menuItem := MenuItem new.
-	menuItem label:arg.
-	menuItem translateLabel:false.
-	menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]).
-	menuItem hideMenuOnActivated:false.
-	menuItem value:[:onOff |
-	    (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff.
-	    onOff ifFalse:[
-		Object disableBreakPoint:arg
-	    ] ifTrue:[
-		Object enableBreakPoint:arg
-	    ].
-	].
-	menu addItem:menuItem.
+        menuItem := MenuItem new.
+        menuItem label:arg.
+        menuItem translateLabel:false.
+        menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]).
+        menuItem hideMenuOnActivated:false.
+        menuItem value:[:onOff |
+            (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff.
+            onOff ifFalse:[
+                Object disableBreakPoint:arg
+            ] ifTrue:[
+                Object enableBreakPoint:arg
+            ].
+        ].
+        menu addItem:menuItem.
     ].
     menu findGuiResourcesIn:self.
     ^ menu
@@ -1484,5 +1484,9 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.12 2009-09-22 18:30:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.13 2009-10-03 10:37:36 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.13 2009-10-03 10:37:36 cg Exp $'
 ! !