--- a/MethodChange.st	Mon Jan 21 09:21:30 2013 +0000
+++ b/MethodChange.st	Wed Jan 30 11:08:21 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
 !
@@ -398,6 +427,7 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
+
 !MethodChange methodsFor:'testing'!
 
 isMethodChange
@@ -474,6 +504,12 @@
     ^ '§Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.68 2012/10/30 14:25:11 cg Exp §'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
-    ^ '$Id: MethodChange.st 1981 2012-11-30 17:20:01Z vranyj1 $'
+    ^ '§Id: MethodChange.st 1981 2012-11-30 17:20:01Z vranyj1 §'
 ! !
+