49 of one of the above copright owners. For exact set of such code, |
49 of one of the above copright owners. For exact set of such code, |
50 see the differences between this version and version stx:libjava |
50 see the differences between this version and version stx:libjava |
51 as of 1.9.2010 |
51 as of 1.9.2010 |
52 |
52 |
53 " |
53 " |
|
54 ! |
|
55 |
|
56 ght |
|
57 " |
|
58 COPYRIGHT (c) 1996-2011 by Claus Gittinger |
|
59 |
|
60 New code and modifications done at SWING Research Group [1]: |
|
61 |
|
62 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko |
|
63 SWING Research Group, Czech Technical University in Prague |
|
64 |
|
65 This software is furnished under a license and may be used |
|
66 only in accordance with the terms of that license and with the |
|
67 inclusion of the above copyright notice. This software may not |
|
68 be provided or otherwise made available to, or used by, any |
|
69 other person. No title to or ownership of the software is |
|
70 hereby transferred. |
|
71 |
|
72 [1] Code written at SWING Research Group contains a signature |
|
73 of one of the above copright owners. For exact set of such code, |
|
74 see the differences between this version and version stx:libjava |
|
75 as of 1.9.2010 |
|
76 |
|
77 " |
54 ! ! |
78 ! ! |
55 |
79 |
56 |
80 |
57 !JavaMethodWithHandler class methodsFor:'initialization'! |
81 !JavaMethodWithHandler class methodsFor:'initialization'! |
|
82 |
|
83 alize |
|
84 self flags:(self flags bitOr:Behavior flagJavaMethod). |
|
85 ! |
58 |
86 |
59 initialize |
87 initialize |
60 self flags:(self flags bitOr:Behavior flagJavaMethod). |
88 self flags:(self flags bitOr:Behavior flagJavaMethod). |
61 ! ! |
89 ! ! |
62 |
90 |
68 |
96 |
69 "Modified: / 16.4.1996 / 12:49:06 / cg" |
97 "Modified: / 16.4.1996 / 12:49:06 / cg" |
70 "Created: / 16.10.1998 / 01:18:28 / cg" |
98 "Created: / 16.10.1998 / 01:18:28 / cg" |
71 ! |
99 ! |
72 |
100 |
|
101 ptionHandlerTable |
|
102 ^ exceptionHandlerTable |
|
103 |
|
104 "Modified: / 16.4.1996 / 12:49:06 / cg" |
|
105 "Created: / 16.10.1998 / 01:18:28 / cg" |
|
106 ! |
|
107 |
73 setExceptionHandlerTable:anArray |
108 setExceptionHandlerTable:anArray |
|
109 exceptionHandlerTable := anArray. |
|
110 |
|
111 "Created: / 16.10.1998 / 01:19:00 / cg" |
|
112 ! |
|
113 |
|
114 xceptionHandlerTable:anArray |
74 exceptionHandlerTable := anArray. |
115 exceptionHandlerTable := anArray. |
75 |
116 |
76 "Created: / 16.10.1998 / 01:19:00 / cg" |
117 "Created: / 16.10.1998 / 01:19:00 / cg" |
77 ! ! |
118 ! ! |
78 |
119 |
79 |
120 |
80 !JavaMethodWithHandler methodsFor:'queries'! |
121 !JavaMethodWithHandler methodsFor:'queries'! |
|
122 |
|
123 FinallyBasedOnExceptionTable |
|
124 "Returns true if the exeption table has at least one |
|
125 entry for finally block" |
|
126 ^exceptionHandlerTable anySatisfy:[:entry|entry catchType == 0]. |
|
127 |
|
128 "Created: / 28-03-2012 / 23:17:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
129 ! |
81 |
130 |
82 hasFinallyBasedOnExceptionTable |
131 hasFinallyBasedOnExceptionTable |
83 "Returns true if the exeption table has at least one |
132 "Returns true if the exeption table has at least one |
84 entry for finally block" |
133 entry for finally block" |
85 ^exceptionHandlerTable anySatisfy:[:entry|entry catchType == 0]. |
134 ^exceptionHandlerTable anySatisfy:[:entry|entry catchType == 0]. |