--- a/CustomSubContext.st	Wed Nov 19 19:39:02 2014 +0100
+++ b/CustomSubContext.st	Wed Nov 19 20:52:39 2014 +0100
@@ -19,7 +19,7 @@
     "Sets the list of classes"
     | rbclasses |
 
-    "classes is supposed to be a collection of RBClass. However, if real classes
+    "classes is supposed to be a collection of RBClass/RBMetaclass. However, if real classes
      are passed, they are converted to RBClasses here for your convenience"
 
     rbclasses := classes collect:[ :cls | cls isBehavior ifTrue:[ self asRBClass:cls ] ifFalse:[ cls ] ].
@@ -27,6 +27,7 @@
 
     "Created: / 26-04-2014 / 16:05:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
     "Modified: / 14-11-2014 / 19:26:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 19-11-2014 / 20:08:07 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 !
 
 selectedCodes: something
@@ -35,8 +36,22 @@
     "Created: / 18-08-2014 / 23:53:25 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 !
 
-selectedMethods:something
-    selectedMethods := something.
+selectedMethods: methods
+    "Sets the list of methods"
+    | rbMethods |
+
+    "methods is supposed to be a collection of RBMethod. However, if real methods (Method)
+     are passed, they are converted to RBMethod here for your convenience"
+
+    rbMethods := methods collect: [  :method | 
+        method isMethod 
+            ifTrue:[ self asRBMethod:method ] 
+            ifFalse:[ method ]  
+    ].
+
+    selectedMethods := rbMethods.
+
+    "Modified: / 19-11-2014 / 20:11:39 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 !
 
 selectedPackages:something