equal
deleted
inserted
replaced
1278 ^ messageText |
1278 ^ messageText |
1279 ! |
1279 ! |
1280 |
1280 |
1281 messageText:aString |
1281 messageText:aString |
1282 "set the messageText. |
1282 "set the messageText. |
1283 If it starts with a space, the signals messageText is prepended, |
1283 If it starts with a space, the signal's original messageText is prepended, |
1284 if it ends with a space, it is appended." |
1284 if it ends with a space, it is appended." |
1285 |
1285 |
1286 messageText := aString |
1286 messageText := aString |
1287 |
1287 |
1288 "Created: / 5.3.1998 / 16:45:29 / stefan" |
1288 "Created: / 05-03-1998 / 16:45:29 / stefan" |
1289 "Modified: / 12.3.1998 / 15:30:45 / stefan" |
1289 "Modified: / 12-03-1998 / 15:30:45 / stefan" |
|
1290 "Modified (comment): / 30-07-2013 / 21:04:43 / cg" |
1290 ! |
1291 ! |
1291 |
1292 |
1292 originalSignal |
1293 originalSignal |
1293 "return the signal/exception which was originally raised. |
1294 "return the signal/exception which was originally raised. |
1294 For noHandler, that is my unhandled signal; for others, thats the exception itself." |
1295 For noHandler, that is my unhandled signal; for others, thats the exception itself." |
2352 ! ! |
2353 ! ! |
2353 |
2354 |
2354 !GenericException class methodsFor:'documentation'! |
2355 !GenericException class methodsFor:'documentation'! |
2355 |
2356 |
2356 version |
2357 version |
2357 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.142 2013-06-19 06:34:00 stefan Exp $' |
2358 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $' |
2358 ! |
2359 ! |
2359 |
2360 |
2360 version_CVS |
2361 version_CVS |
2361 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.142 2013-06-19 06:34:00 stefan Exp $' |
2362 ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $' |
2362 ! |
2363 ! |
2363 |
2364 |
2364 version_HG |
2365 version_HG |
2365 |
2366 |
2366 ^ '$Changeset: <not expanded> $' |
2367 ^ '$Changeset: <not expanded> $' |