equal
deleted
inserted
replaced
87 allBreakpointedMethods |
87 allBreakpointedMethods |
88 |invalidBreakpoints| |
88 |invalidBreakpoints| |
89 |
89 |
90 BreakpointedMethods isNil ifTrue:[^ #() ]. |
90 BreakpointedMethods isNil ifTrue:[^ #() ]. |
91 invalidBreakpoints := BreakpointedMethods select:[:m | m mclass isNil]. |
91 invalidBreakpoints := BreakpointedMethods select:[:m | m mclass isNil]. |
92 invalidBreakpoints do:[:each | BreakpointedMethods remove:each]. |
92 invalidBreakpoints do:[:each | BreakpointedMethods remove:each ifAbsent:nil]. |
93 ^ BreakpointedMethods asOrderedCollection |
93 ^ BreakpointedMethods asOrderedCollection |
94 ! ! |
94 ! ! |
95 |
95 |
96 !MethodWithBreakpoints methodsFor:'accessing'! |
96 !MethodWithBreakpoints methodsFor:'accessing'! |
97 |
97 |
165 ! ! |
165 ! ! |
166 |
166 |
167 !MethodWithBreakpoints class methodsFor:'documentation'! |
167 !MethodWithBreakpoints class methodsFor:'documentation'! |
168 |
168 |
169 version |
169 version |
170 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.8 2014-07-23 14:13:50 cg Exp $' |
170 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $' |
171 ! |
171 ! |
172 |
172 |
173 version_CVS |
173 version_CVS |
174 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.8 2014-07-23 14:13:50 cg Exp $' |
174 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $' |
175 ! ! |
175 ! ! |
176 |
176 |
177 |
177 |
178 MethodWithBreakpoints initialize! |
178 MethodWithBreakpoints initialize! |