equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1999 by eXept Software AG |
2 COPYRIGHT (c) 1999 by eXept Software AG |
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 |
64 ! ! |
62 ! ! |
65 |
63 |
66 !WrongProceedabilityError methodsFor:'accessing'! |
64 !WrongProceedabilityError methodsFor:'accessing'! |
67 |
65 |
68 description |
66 description |
69 ^ super description , ': ', self parameter printString |
67 |whereRaised| |
|
68 |
|
69 originator notNil ifTrue:[ |
|
70 whereRaised := ' (raised in ',originator suspendedContext printString,')' |
|
71 ]. |
|
72 ^ super description , ': ', self parameter printString,(whereRaised ? '') |
70 ! ! |
73 ! ! |
71 |
74 |
72 !WrongProceedabilityError class methodsFor:'documentation'! |
75 !WrongProceedabilityError class methodsFor:'documentation'! |
73 |
76 |
74 version |
77 version |