--- a/MethodChange.st	Fri Mar 22 10:31:12 2013 +0000
+++ b/MethodChange.st	Fri Mar 22 11:11:55 2013 +0000
@@ -105,6 +105,35 @@
     self className:(cls name) selector:sel source:src category:cat
 !
 
+classIsJava
+    "Returns true, if this change is for Java class (i.e., if it is for
+     Smalltalk method that extends Java class)"
+
+    ^ classIsJava
+
+    "Modified (comment): / 29-01-2013 / 14:11:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+classIsJava:aBoolean
+    "Sets whether this change is for Java class (i.e., if it is for
+     Smalltalk method that extends Java class)"
+
+    classIsJava := aBoolean.
+
+    "Modified (comment): / 29-01-2013 / 14:11:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+className
+    ^classIsJava ifTrue:[
+        className
+    ] ifFalse:[
+        super className
+    ]
+
+    "Created: / 29-01-2013 / 14:21:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-01-2013 / 10:00:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 className:clsName selector:sel source:src category:cat
     self className:clsName selector:sel source:src category:cat privacy:nil
 !
@@ -472,7 +501,7 @@
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.68 2012/10/30 14:25:11 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.68 2012/10/30 14:25:11 cg Exp '
 !
 
 version_HG
@@ -481,6 +510,6 @@
 !
 
 version_SVN
-    ^ '$Id: MethodChange.st 1981 2012-11-30 17:20:01Z vranyj1 $'
+    ^ 'Id: MethodChange.st 1981 2012-11-30 17:20:01Z vranyj1 '
 ! !