diff -r 3aaf43a51816 -r 76d4443744ed JavaMethodWithException.st --- a/JavaMethodWithException.st Mon Dec 08 18:08:33 2014 +0000 +++ b/JavaMethodWithException.st Mon Dec 08 23:03:45 2014 +0000 @@ -65,18 +65,24 @@ "Return a collection of declared exception classes that this method throws" exceptionTable isNil ifTrue: [ ^ nil ]. - ^ exceptionTable collect: [:classRef | classRef resolve ]. + ^ self exceptionTable collect: [:classRef | classRef resolve ]. "Created: / 01-08-2012 / 10:09:04 / Jan Vrany " + "Modified: / 04-12-2014 / 14:29:23 / Jan Vrany " ! exceptionTable "return exception table - collection of classRefs" - ^ exceptionTable. + + | cp | + + exceptionTable isNil ifTrue:[ ^ nil ]. + cp := self constantPool. + ^ exceptionTable collect:[ :classRefIndex | cp at: classRefIndex ] "Created: / 05-11-1998 / 19:58:38 / cg" - "Modified: / 04-02-2011 / 22:07:25 / Jan Vrany " "Modified: / 04-06-2011 / 17:20:17 / Marcel Hlopko " + "Modified: / 04-12-2014 / 14:30:17 / Jan Vrany " ! getExceptionTable @@ -101,9 +107,10 @@ "copy values from another javaMethod" super fromMethod:aJavaMethod. - exceptionTable := aJavaMethod exceptionTable + exceptionTable := aJavaMethod getExceptionTable "Created: / 14-08-2014 / 12:39:02 / Jan Vrany " + "Modified: / 04-12-2014 / 14:31:31 / Jan Vrany " ! ! !JavaMethodWithException class methodsFor:'documentation'!