--- a/MethodChange.st Wed Feb 05 18:51:47 2014 +0100
+++ b/MethodChange.st Wed Feb 05 18:51:48 2014 +0100
@@ -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
!
@@ -437,6 +466,12 @@
"Created: / 7.2.1998 / 19:26:59 / cg"
!
+isMethodChangeForCopyrightMethod
+ ^self isMethodCodeChange and: [ self isForMeta and: [ self selector == #copyright ] ]
+
+ "Created: / 01-08-2012 / 16:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
isMethodChangeForExtensionsVersionMethod
"true if this is a change for an extensionsVersion method"
@@ -490,14 +525,14 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.74 2014-01-23 16:11:18 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.75 2014-02-05 17:51:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.74 2014-01-23 16:11:18 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.75 2014-02-05 17:51:48 cg Exp $'
!
version_SVN
- ^ '$Id: MethodChange.st,v 1.74 2014-01-23 16:11:18 stefan Exp $'
+ ^ '$Id: MethodChange.st,v 1.75 2014-02-05 17:51:48 cg Exp $'
! !