equal
deleted
inserted
replaced
2186 |
2186 |
2187 raiseSignal |
2187 raiseSignal |
2188 "actually raise an exception (whatever the proceedability is)." |
2188 "actually raise an exception (whatever the proceedability is)." |
2189 |
2189 |
2190 <context: #return> |
2190 <context: #return> |
|
2191 <resource: #skipInDebuggersWalkBack> |
|
2192 |
2191 |
2193 |
2192 raiseContext := thisContext. |
2194 raiseContext := thisContext. |
2193 suspendedContext isNil ifTrue:[ |
2195 suspendedContext isNil ifTrue:[ |
2194 suspendedContext := raiseContext sender |
2196 suspendedContext := raiseContext sender |
2195 ]. |
2197 ]. |
2196 proceedable := self mayProceed. |
2198 proceedable := self mayProceed. |
2197 ^ self doRaise |
2199 ^ self doRaise |
|
2200 |
|
2201 "Modified: / 19-04-2013 / 09:37:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2198 ! |
2202 ! |
2199 |
2203 |
2200 raiseWith:aParameter errorString:aString |
2204 raiseWith:aParameter errorString:aString |
2201 "raise the signal nonproceedable. |
2205 "raise the signal nonproceedable. |
2202 The argument, aString is used as messageText, |
2206 The argument, aString is used as messageText, |
2312 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $' |
2316 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $' |
2313 ! |
2317 ! |
2314 |
2318 |
2315 version_CVS |
2319 version_CVS |
2316 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $' |
2320 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.136 2013-04-17 18:22:11 cg Exp $' |
|
2321 ! |
|
2322 |
|
2323 version_HG |
|
2324 |
|
2325 ^ '$Changeset: <not expanded> $' |
2317 ! ! |
2326 ! ! |
2318 |
2327 |
2319 |
2328 |
2320 GenericException initialize! |
2329 GenericException initialize! |