equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
13 |
13 |
14 Error subclass:#RecursiveExceptionError |
14 Error subclass:#RecursiveExceptionError |
15 instanceVariableNames:'' |
15 instanceVariableNames: '' |
16 classVariableNames:'' |
16 classVariableNames: '' |
17 poolDictionaries:'' |
17 poolDictionaries: '' |
18 category:'Kernel-Exceptions-Errors' |
18 category: 'Kernel-Exceptions-Errors' |
19 ! |
19 ! |
20 |
20 |
21 !RecursiveExceptionError class methodsFor:'documentation'! |
21 !RecursiveExceptionError class methodsFor:'documentation'! |
22 |
22 |
23 copyright |
23 copyright |
45 " |
45 " |
46 |
46 |
47 |
47 |
48 ! ! |
48 ! ! |
49 |
49 |
|
50 |
50 !RecursiveExceptionError class methodsFor:'initialization'! |
51 !RecursiveExceptionError class methodsFor:'initialization'! |
51 |
52 |
52 initialize |
53 initialize |
53 |
54 |
54 NotifierString := 'recursive exception raise in handler'. |
55 NotifierString := 'recursive exception raise in handler'. |
58 " |
59 " |
59 |
60 |
60 |
61 |
61 ! ! |
62 ! ! |
62 |
63 |
|
64 |
63 !RecursiveExceptionError class methodsFor:'queries'! |
65 !RecursiveExceptionError class methodsFor:'queries'! |
64 |
66 |
65 mayProceed |
67 mayProceed |
66 |
68 |
67 ^ false |
69 ^ false |
68 |
70 |
69 |
71 |
70 ! ! |
72 ! ! |
71 |
73 |
|
74 |
|
75 !RecursiveExceptionError methodsFor:'accessing'! |
|
76 |
|
77 exception |
|
78 "the original exception, which was responsible for this. |
|
79 ANSI compatibility" |
|
80 |
|
81 ^ parameter |
|
82 ! ! |
|
83 |
|
84 |
72 !RecursiveExceptionError class methodsFor:'documentation'! |
85 !RecursiveExceptionError class methodsFor:'documentation'! |
73 |
86 |
74 version |
87 version |
75 ^ '$Header: /cvs/stx/stx/libbasic/RecursiveExceptionError.st,v 1.5 2005/09/30 13:37:54 cg Exp $' |
88 ^ '$Header: /cvs/stx/stx/libbasic/RecursiveExceptionError.st,v 1.6 2013-04-19 08:40:19 cg Exp $' |
76 ! |
89 ! |
77 |
90 |
78 version_SVN |
91 version_SVN |
79 ^ '$Id: RecursiveExceptionError.st 10761 2012-01-19 11:46:00Z vranyj1 $' |
92 ^ '$Id: RecursiveExceptionError.st 10761 2012-01-19 11:46:00Z vranyj1 $' |
80 ! ! |
93 ! ! |
81 |
94 |
|
95 |
82 RecursiveExceptionError initialize! |
96 RecursiveExceptionError initialize! |
83 |
|
84 |
|
85 |
|