equal
deleted
inserted
replaced
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
13 |
13 |
14 Object variableSubclass:#Context |
14 Object variableSubclass:#Context |
15 instanceVariableNames:'flags sender* home receiver selector searchClass method lineNr |
15 instanceVariableNames:'flags sender* home receiver selector searchClass method lineNr |
16 retvalTemp handle*' |
16 retvalTemp handle*' |
17 classVariableNames:'InvalidReturnSignal SingleStepInterruptRequest' |
17 classVariableNames:'SingleStepInterruptRequest' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Kernel-Methods' |
19 category:'Kernel-Methods' |
20 ! |
20 ! |
21 |
21 |
22 !Context class methodsFor:'documentation'! |
22 !Context class methodsFor:'documentation'! |
164 ! ! |
164 ! ! |
165 |
165 |
166 !Context class methodsFor:'initialization'! |
166 !Context class methodsFor:'initialization'! |
167 |
167 |
168 initialize |
168 initialize |
169 "/ InvalidReturnSignal isNil ifTrue:[ |
|
170 "/ InvalidReturnSignal := ErrorSignal newSignalMayProceed:true. |
|
171 "/ InvalidReturnSignal nameClass:self message:#invalidReturnSignal. |
|
172 "/ InvalidReturnSignal notifierString:'invalid return; method cannot return twice'. |
|
173 "/ |
|
174 CannotReturnError notifierString:'invalid return; method cannot return twice'. |
169 CannotReturnError notifierString:'invalid return; method cannot return twice'. |
175 CannotResumeError notifierString:'invalid resume'. |
170 CannotResumeError notifierString:'invalid resume'. |
176 |
171 |
177 SingleStepInterruptRequest isNil ifTrue:[ |
172 SingleStepInterruptRequest isNil ifTrue:[ |
178 SingleStepInterruptRequest := QuerySignal new. |
173 SingleStepInterruptRequest := QuerySignal new. |
2496 ! ! |
2491 ! ! |
2497 |
2492 |
2498 !Context class methodsFor:'documentation'! |
2493 !Context class methodsFor:'documentation'! |
2499 |
2494 |
2500 version |
2495 version |
2501 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.189 2013-08-20 10:19:12 stefan Exp $' |
2496 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.190 2013-08-20 15:02:27 stefan Exp $' |
2502 ! |
2497 ! |
2503 |
2498 |
2504 version_CVS |
2499 version_CVS |
2505 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.189 2013-08-20 10:19:12 stefan Exp $' |
2500 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.190 2013-08-20 15:02:27 stefan Exp $' |
2506 ! |
2501 ! |
2507 |
2502 |
2508 version_HG |
2503 version_HG |
2509 |
2504 |
2510 ^ '$Changeset: <not expanded> $' |
2505 ^ '$Changeset: <not expanded> $' |