Tools__BreakpointBrowser.st
changeset 13788 8cb3d21e2d52
parent 13349 cadf708fe6cc
child 14607 b4a144ee8154
--- a/Tools__BreakpointBrowser.st	Tue Jan 28 17:57:42 2014 +0100
+++ b/Tools__BreakpointBrowser.st	Mon Feb 03 10:36:25 2014 +0100
@@ -1397,25 +1397,25 @@
         ].
 
         mthd isMethodWithBreakpoints ifTrue:[
-            mthd literalsDo:[:lit | 
-                lit class == Breakpoint ifTrue:[
-                    lit isVisible ifTrue:[
-                        entry := BreakpointListEntryForLineBreak new.
-                        entry
-                            type:#line
-                            arg:nil
-                            className:cls name
-                            selector:sel
-                            lineNumber:(lit line)
-                            info:nil
-                            enabled:true.
-                        entry breakPoint:lit.
-                        aBlock value:entry 
-                    ]
+            mthd breakpointsDo:[:bp | 
+                bp isVisible ifTrue:[
+                    entry := BreakpointListEntryForLineBreak new.
+                    entry
+                        type:#line
+                        arg:nil
+                        className:cls name
+                        selector:sel
+                        lineNumber:(bp line)
+                        info:nil
+                        enabled:true.
+                    entry breakPoint:bp.
+                    aBlock value:entry 
                 ]
             ].        
         ]
     ].
+
+    "Modified: / 03-02-2014 / 10:35:14 / cg"
 ! !
 
 !BreakpointBrowser methodsFor:'initialization & release'!
@@ -2055,11 +2055,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.50 2013-08-22 19:12:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.51 2014-02-03 09:36:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.50 2013-08-22 19:12:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.51 2014-02-03 09:36:25 cg Exp $'
 ! !