--- a/CustomCodeGeneratorClassGenerator.st	Sun May 04 23:48:57 2014 +0200
+++ b/CustomCodeGeneratorClassGenerator.st	Mon May 05 23:11:43 2014 +0200
@@ -78,7 +78,7 @@
 
     generatorClassName := Dialog 
                             requestClassName: 'Enter class name for new generator' 
-                            initialAnswer: 'CustomXXXGenerator'.   
+                            initialAnswer: 'CustomXXXCodeGenerator'.   
 
     generatorClassName isNil ifTrue:[ 
         AbortOperationRequest raise.
@@ -88,7 +88,7 @@
 
     "Created: / 31-03-2014 / 18:07:56 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
     "Modified: / 03-04-2014 / 11:42:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-04-2014 / 10:18:14 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 05-05-2014 / 20:46:08 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
 !CustomCodeGeneratorClassGenerator class methodsFor:'documentation'!

--- a/CustomContext.st	Sun May 04 23:48:57 2014 +0200
+++ b/CustomContext.st	Mon May 05 23:11:43 2014 +0200
@@ -19,6 +19,14 @@
 
 !CustomContext methodsFor:'accessing-selection'!
 
+selectedClassCategories
+    "a collection with selected class categories"
+
+    self subclassResponsibility
+
+    "Created: / 05-05-2014 / 00:13:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
 selectedClasses
     "a collection with selected classes"
 
@@ -26,5 +34,37 @@
 
     "Created: / 26-04-2014 / 13:13:59 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
     "Modified (comment): / 26-04-2014 / 22:38:18 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedMethodProtocols
+    "a collection with selected method protocols"
+
+    self subclassResponsibility
+
+    "Created: / 05-05-2014 / 00:14:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedMethods
+    "a collection with selected methods"
+
+    self subclassResponsibility
+
+    "Created: / 05-05-2014 / 00:12:35 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedPackages
+    "a collection with selected packages"
+
+    self subclassResponsibility
+
+    "Created: / 05-05-2014 / 00:12:59 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedVariables
+    "a collection with selected variables"
+
+    self subclassResponsibility
+
+    "Created: / 05-05-2014 / 00:14:59 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 

--- a/CustomSubContext.st	Sun May 04 23:48:57 2014 +0200
+++ b/CustomSubContext.st	Mon May 05 23:11:43 2014 +0200
@@ -1,7 +1,8 @@
 "{ Package: 'jn:refactoring_custom' }"
 
 CustomContext subclass:#CustomSubContext
-	instanceVariableNames:'selectedClasses'
+	instanceVariableNames:'selectedClasses selectedClassCategories selectedMethodProtocols
+		selectedMethods selectedPackages selectedVariables'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Refactoring-Custom'
@@ -19,11 +20,8 @@
 
 !CustomSubContext methodsFor:'accessing'!
 
-selectedClasses
-
-    ^selectedClasses.
-
-    "Created: / 19-12-2013 / 12:24:42 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+selectedClassCategories:something
+    selectedClassCategories := something.
 !
 
 selectedClasses: aClassCollection
@@ -31,6 +29,67 @@
     selectedClasses := aClassCollection
 
     "Created: / 26-04-2014 / 16:05:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedMethodProtocols:something
+    selectedMethodProtocols := something.
+!
+
+selectedMethods:something
+    selectedMethods := something.
+!
+
+selectedPackages:something
+    selectedPackages := something.
+!
+
+selectedVariables:something
+    selectedVariables := something.
+! !
+
+!CustomSubContext methodsFor:'accessing-selection'!
+
+selectedClassCategories
+
+    ^ selectedClassCategories
+
+    "Modified: / 05-05-2014 / 20:31:09 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedClasses
+
+    ^ selectedClasses
+
+    "Created: / 19-12-2013 / 12:24:42 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified (format): / 05-05-2014 / 20:25:42 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedMethodProtocols
+
+    ^ selectedMethodProtocols
+
+    "Modified: / 05-05-2014 / 20:31:35 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedMethods
+
+    ^ selectedMethods
+
+    "Modified: / 05-05-2014 / 20:31:52 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedPackages
+
+    ^ selectedPackages
+
+    "Modified: / 05-05-2014 / 20:32:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+selectedVariables
+
+    ^ selectedVariables
+
+    "Modified: / 05-05-2014 / 20:32:31 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
 !CustomSubContext methodsFor:'change & update'!

--- a/refactoring_custom.rc	Sun May 04 23:48:57 2014 +0200
+++ b/refactoring_custom.rc	Mon May 05 23:11:43 2014 +0200
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "ProductName\0"
       VALUE "ProductVersion", "6.2.3.1118\0"
-      VALUE "ProductDate", "Sun, 04 May 2014 21:45:55 GMT\0"
+      VALUE "ProductDate", "Mon, 05 May 2014 21:06:48 GMT\0"
     END
 
   END