equal
deleted
inserted
replaced
83 ! ! |
83 ! ! |
84 |
84 |
85 !MethodWithBreakpoints class methodsFor:'queries'! |
85 !MethodWithBreakpoints class methodsFor:'queries'! |
86 |
86 |
87 allBreakpointedMethods |
87 allBreakpointedMethods |
|
88 |invalidBreakpoints| |
|
89 |
88 BreakpointedMethods isNil ifTrue:[^ #() ]. |
90 BreakpointedMethods isNil ifTrue:[^ #() ]. |
89 ^ BreakpointedMethods |
91 invalidBreakpoints := BreakpointedMethods select:[:m | m mclass isNil]. |
90 select:[:m | |
92 invalidBreakpoints do:[:each | BreakpointedMethods remove:each]. |
91 "/ must double check - as this is a weak set, it gets cleaned up with a delay. |
93 ^ BreakpointedMethods asOrderedCollection |
92 m mclass notNil |
|
93 ] |
|
94 as:OrderedCollection |
|
95 ! ! |
94 ! ! |
96 |
95 |
97 !MethodWithBreakpoints methodsFor:'accessing'! |
96 !MethodWithBreakpoints methodsFor:'accessing'! |
98 |
97 |
99 originalMethod |
98 originalMethod |
166 ! ! |
165 ! ! |
167 |
166 |
168 !MethodWithBreakpoints class methodsFor:'documentation'! |
167 !MethodWithBreakpoints class methodsFor:'documentation'! |
169 |
168 |
170 version |
169 version |
171 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.7 2014-06-23 08:58:44 cg Exp $' |
170 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.8 2014-07-23 14:13:50 cg Exp $' |
172 ! |
171 ! |
173 |
172 |
174 version_CVS |
173 version_CVS |
175 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.7 2014-06-23 08:58:44 cg Exp $' |
174 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.8 2014-07-23 14:13:50 cg Exp $' |
176 ! ! |
175 ! ! |
177 |
176 |
178 |
177 |
179 MethodWithBreakpoints initialize! |
178 MethodWithBreakpoints initialize! |