class: Tools::BreakpointBrowser
authorClaus Gittinger <cg@exept.de>
Mon, 03 Feb 2014 10:36:25 +0100
changeset 13788 8cb3d21e2d52
parent 13787 0650705954cf
child 13789 d09528ffe7ba
class: Tools::BreakpointBrowser changed: #withBreakpointListEntriesFor:class:selector:messages:messageSelectors:rememberingCodeBreakpointTypesIn:do:
Tools__BreakpointBrowser.st
--- 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 $'
 ! !