--- a/extensions.st Thu Feb 05 22:50:23 2015 +0100
+++ b/extensions.st Thu Feb 05 22:55:47 2015 +0100
@@ -221,16 +221,6 @@
"Created: / 15-11-2014 / 17:11:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !
-!RBAbstractClass methodsFor:'accessing'!
-
-isModelClass
- "Tells wheter this class is a model class ( and not real class )"
-
- ^ true
-
- "Created: / 06-10-2014 / 07:12:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-! !
-
!RBAbstractClass methodsFor:'queries'!
isSubclassOf: aClass
--- a/jn_refactoring_custom.st Thu Feb 05 22:50:23 2015 +0100
+++ b/jn_refactoring_custom.st Thu Feb 05 22:55:47 2015 +0100
@@ -221,8 +221,8 @@
!
extensionMethodNames
- "list class/selector pairs of extensions.
- A correponding method with real names must be present in my concrete subclasses"
+ "lists the extension methods which are to be included in the project.
+ Entries are pairwise elements, consisting of class-name and selector."
^ #(
#'Tools::NewSystemBrowser' selectorMenuExtensionCustomRefactorings:
@@ -245,7 +245,6 @@
RBMetaclass theMetaclass
RBAbstractClass instVarNames:
RBMethod sends:or:
- RBAbstractClass isModelClass
RBMethod category:
RBMethod class:
RBMethod compile
--- a/patches/patches.rc Thu Feb 05 22:50:23 2015 +0100
+++ b/patches/patches.rc Thu Feb 05 22:55:47 2015 +0100
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
VALUE "ProductName", "LibraryName\0"
VALUE "ProductVersion", "6.2.5.1525\0"
- VALUE "ProductDate", "Thu, 05 Feb 2015 21:48:33 GMT\0"
+ VALUE "ProductDate", "Thu, 05 Feb 2015 21:54:32 GMT\0"
END
END
--- a/refactoring_custom.rc Thu Feb 05 22:50:23 2015 +0100
+++ b/refactoring_custom.rc Thu Feb 05 22:55:47 2015 +0100
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
VALUE "ProductName", "ProductName\0"
VALUE "ProductVersion", "6.2.5.1525\0"
- VALUE "ProductDate", "Thu, 05 Feb 2015 21:48:32 GMT\0"
+ VALUE "ProductDate", "Thu, 05 Feb 2015 21:54:30 GMT\0"
END
END