equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Method variableSubclass:#MethodWithBreakpoints |
16 Method variableSubclass:#MethodWithBreakpoints |
15 instanceVariableNames:'originalMethod' |
17 instanceVariableNames:'originalMethod' |
16 classVariableNames:'BreakpointedMethods' |
18 classVariableNames:'BreakpointedMethods' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
156 "Modified: / 10-05-2014 / 11:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
158 "Modified: / 10-05-2014 / 11:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
157 ! ! |
159 ! ! |
158 |
160 |
159 !MethodWithBreakpoints methodsFor:'queries'! |
161 !MethodWithBreakpoints methodsFor:'queries'! |
160 |
162 |
|
163 hasEnabledBreakpoints |
|
164 "true if any of my breakpoints is actually enabled" |
|
165 |
|
166 self breakpointsDo:[:any | |
|
167 any isEnabled ifTrue:[^ true]. |
|
168 ]. |
|
169 ^ false. |
|
170 ! |
|
171 |
161 isMethodWithBreakpoints |
172 isMethodWithBreakpoints |
162 ^ true |
173 ^ true |
163 |
174 |
164 "Created: / 01-08-2012 / 17:26:59 / cg" |
175 "Created: / 01-08-2012 / 17:26:59 / cg" |
165 ! ! |
176 ! ! |
166 |
177 |
167 !MethodWithBreakpoints class methodsFor:'documentation'! |
178 !MethodWithBreakpoints class methodsFor:'documentation'! |
168 |
179 |
169 version |
180 version |
170 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $' |
181 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $' |
171 ! |
182 ! |
172 |
183 |
173 version_CVS |
184 version_CVS |
174 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.9 2014-11-21 19:42:04 cg Exp $' |
185 ^ '$Header: /cvs/stx/stx/libbasic/MethodWithBreakpoints.st,v 1.10 2015-01-29 23:49:33 cg Exp $' |
175 ! ! |
186 ! ! |
176 |
187 |
177 |
188 |
178 MethodWithBreakpoints initialize! |
189 MethodWithBreakpoints initialize! |