CustomRefactoringClassGenerator.st
changeset 733 bad42d8d1161
child 737 dbbad959994f
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CustomRefactoringClassGenerator.st	Sat Nov 08 23:24:39 2014 +0100
@@ -0,0 +1,59 @@
+"{ Package: 'jn:refactoring_custom' }"
+
+CustomNewClassGenerator subclass:#CustomRefactoringClassGenerator
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Refactoring-Custom-Generators'
+!
+
+!CustomRefactoringClassGenerator class methodsFor:'accessing-presentation'!
+
+description
+
+    ^ 'Create new class which should perfomrm some refactoring'
+
+    "Modified: / 08-11-2014 / 17:20:55 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+group
+
+    ^ #(Generators)
+
+    "Created: / 08-11-2014 / 17:19:50 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+label
+
+    ^ 'New Refactoring'
+
+    "Modified: / 08-11-2014 / 17:18:28 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+
+!CustomRefactoringClassGenerator methodsFor:'accessing - ui'!
+
+defaultClassName
+
+    ^ 'CustomXXXRefactoring'
+
+    "Created: / 08-11-2014 / 17:15:49 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
+newClassNameLabel
+
+    ^ 'Enter class name for new refactoring'
+
+    "Created: / 08-11-2014 / 17:16:37 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+
+!CustomRefactoringClassGenerator methodsFor:'executing - private'!
+
+buildForClass: aClass
+
+    aClass
+        superclassName: #CustomRefactoring;
+        category: CustomRefactoring category
+
+    "Created: / 08-11-2014 / 17:15:10 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+