equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
320 newException |
318 newException |
321 "{ Pragma: +inlineNew }" |
319 "{ Pragma: +inlineNew }" |
322 "answer a new exception object for this signal. |
320 "answer a new exception object for this signal. |
323 Subclasses may redefine this method" |
321 Subclasses may redefine this method" |
324 |
322 |
325 ^ Exception basicNew creator:self |
323 |exception| |
|
324 |
|
325 parent notNil ifTrue:[ |
|
326 "parent may be a class based signal" |
|
327 exception := parent newException. |
|
328 ] ifFalse:[ |
|
329 exception := Exception basicNew. |
|
330 ]. |
|
331 |
|
332 ^ exception creator:self |
326 |
333 |
327 "Created: / 26.2.1998 / 19:53:56 / stefan" |
334 "Created: / 26.2.1998 / 19:53:56 / stefan" |
328 "Modified: / 23.7.1999 / 13:41:00 / stefan" |
335 "Modified: / 23.7.1999 / 13:41:00 / stefan" |
329 ! ! |
336 ! ! |
330 |
337 |