Mercurial Mercurial > hg > stx-goodies-smallsense / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make CustomContext>>selectedMethods always return a collection of RBMethod...
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 14 Nov 2014 20:30:54 +0100
changeset 747 008860f4cbd4
parent 746 a25dc307d4e8
child 748 59d77eea6d97
Make CustomContext>>selectedMethods always return a collection of RBMethod... ....as opposed to real Method, which it used to return.
CustomBrowserContext.st file | annotate | diff | comparison | revisions
CustomContext.st file | annotate | diff | comparison | revisions
bc.mak file | annotate | diff | comparison | revisions
patches/bc.mak file | annotate | diff | comparison | revisions
patches/extensions.st file | annotate | diff | comparison | revisions
patches/jn_refactoring_custom_patches.st file | annotate | diff | comparison | revisions
patches/patches.rc file | annotate | diff | comparison | revisions
refactoring_custom.rc file | annotate | diff | comparison | revisions 
--- a/CustomBrowserContext.st	Fri Nov 14 20:15:29 2014 +0100
+++ b/CustomBrowserContext.st	Fri Nov 14 20:30:54 2014 +0100
@@ -75,9 +75,10 @@
 
 selectedMethods
 
-    ^ state selectedMethods value
+    ^ state selectedMethods value collect:[ :m | self asRBMethod: m ]
 
     "Modified: / 05-08-2014 / 21:31:21 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 14-11-2014 / 20:17:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 selectedPackages
--- a/CustomContext.st	Fri Nov 14 20:15:29 2014 +0100
+++ b/CustomContext.st	Fri Nov 14 20:30:54 2014 +0100
@@ -101,6 +101,15 @@
     "Ceated: / 14-11-2014 / 19:26:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 
     "Created: / 14-11-2014 / 19:26:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+asRBMethod: aMethod
+    | rbClass |
+
+    rbClass := self asRBClass: aMethod mclass.
+    ^ rbClass methodFor: aMethod selector
+
+    "Created: / 14-11-2014 / 20:17:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CustomContext methodsFor:'testing'!
--- a/bc.mak	Fri Nov 14 20:15:29 2014 +0100
+++ b/bc.mak	Fri Nov 14 20:30:54 2014 +0100
@@ -30,6 +30,7 @@
 !INCLUDE Make.spec
 
 LIBNAME=libjn_refactoring_custom
+MODULE_PATH=refactoring_custom
 RESFILES=refactoring_custom.$(RES)
 
 
--- a/patches/bc.mak	Fri Nov 14 20:15:29 2014 +0100
+++ b/patches/bc.mak	Fri Nov 14 20:30:54 2014 +0100
@@ -30,6 +30,7 @@
 !INCLUDE Make.spec
 
 LIBNAME=libjn_refactoring_custom_patches
+MODULE_PATH=refactoring_custom\patches
 RESFILES=patches.$(RES)
 
 
--- a/patches/extensions.st	Fri Nov 14 20:15:29 2014 +0100
+++ b/patches/extensions.st	Fri Nov 14 20:30:54 2014 +0100
@@ -60,6 +60,24 @@
     "Modified: / 05-11-2014 / 21:26:45 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
+!RBAbstractClass methodsFor:'accessing'!
+
+categories
+    "Return a collection of the method-categories known in the receiver class.
+     This does NOT include the metaclasses categories or the superclass categories.
+     The returned collection is not sorted by any order."               
+
+    | categories |
+
+    categories := Set new.
+    self selectors do:[:selector | 
+        categories add: (self methodFor: selector) category
+    ].
+    ^ categories
+
+    "Created: / 14-11-2014 / 20:25:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBAbstractClass methodsFor:'method accessing'!
 
 compile: aString classified: aSymbolCollection 
--- a/patches/jn_refactoring_custom_patches.st	Fri Nov 14 20:15:29 2014 +0100
+++ b/patches/jn_refactoring_custom_patches.st	Fri Nov 14 20:30:54 2014 +0100
@@ -97,6 +97,7 @@
         AddMethodChange asUndoOperation
         BrowserEnvironment whichCategoryIncludes:
         RefactoryClassChange changeClass
+        RBAbstractClass categories
     )
 ! !
 
--- a/patches/patches.rc	Fri Nov 14 20:15:29 2014 +0100
+++ b/patches/patches.rc	Fri Nov 14 20:30:54 2014 +0100
@@ -4,7 +4,7 @@
 //
 VS_VERSION_INFO VERSIONINFO
   FILEVERSION     6,2,32767,32767
-  PRODUCTVERSION  6,2,4,1420
+  PRODUCTVERSION  6,2,5,0
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
   FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
@@ -24,8 +24,8 @@
       VALUE "InternalName", "jn:refactoring_custom/patches\0"
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
-      VALUE "ProductVersion", "6.2.4.1420\0"
-      VALUE "ProductDate", "Wed, 12 Nov 2014 23:00:42 GMT\0"
+      VALUE "ProductVersion", "6.2.5.0\0"
+      VALUE "ProductDate", "Fri, 14 Nov 2014 19:29:21 GMT\0"
     END
 
   END
--- a/refactoring_custom.rc	Fri Nov 14 20:15:29 2014 +0100
+++ b/refactoring_custom.rc	Fri Nov 14 20:30:54 2014 +0100
@@ -4,7 +4,7 @@
 //
 VS_VERSION_INFO VERSIONINFO
   FILEVERSION     6,2,32767,32767
-  PRODUCTVERSION  6,2,4,1420
+  PRODUCTVERSION  6,2,5,0
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
   FILEFLAGS       VS_FF_PRERELEASE | VS_FF_SPECIALBUILD
@@ -24,8 +24,8 @@
       VALUE "InternalName", "jn:refactoring_custom\0"
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "ProductName\0"
-      VALUE "ProductVersion", "6.2.4.1420\0"
-      VALUE "ProductDate", "Wed, 12 Nov 2014 23:00:39 GMT\0"
+      VALUE "ProductVersion", "6.2.5.0\0"
+      VALUE "ProductDate", "Fri, 14 Nov 2014 19:29:20 GMT\0"
     END
 
   END
hg/stx-goodies-smallsense