src/JavaMethod.st
branchjk_new_structure
changeset 1581 70fbc03d2d82
parent 1579 7c4ec8d48c84
child 1708 d503f527c66e
--- a/src/JavaMethod.st	Tue Jul 31 16:57:15 2012 +0000
+++ b/src/JavaMethod.st	Wed Aug 01 10:27:50 2012 +0000
@@ -876,6 +876,14 @@
     "Modified: / 28-02-2011 / 16:33:00 / Marcel Hlopko <hlopik@gmail.com>"
 !
 
+exceptionClasses
+    "Return a collection of declared exception classes that this method
+     throws"
+    ^#()
+
+    "Created: / 01-08-2012 / 10:06:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 exceptionHandlerTable
     ^ nil
 
@@ -931,9 +939,13 @@
 !
 
 javaExceptionTable
-    ^ nil
+    <resource: #obsolete>
+
+    self obsoleteMethodWarning: 'Use #exceptionClasses  instead'.
+    ^ self exceptionClasses
 
     "Created: / 04-06-2011 / 18:16:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 01-08-2012 / 10:08:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 javaNumArgs
@@ -2156,6 +2168,12 @@
     "Created: / 9.11.1999 / 17:16:20 / cg"
 !
 
+isJavaConstructor
+    ^((selector first) == $<) and:[selector startsWith:'<init>(']
+
+    "Created: / 01-08-2012 / 00:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isJavaMethod
     ^ true