class: Tools::BreakpointBrowser
changed: #withBreakpointListEntriesFor:class:selector:messages:messageSelectors:rememberingCodeBreakpointTypesIn:do:
--- 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 $'
! !