--- a/SmallSense__MethodKeywordRestPO.st	Thu May 15 17:58:25 2014 +0100
+++ b/SmallSense__MethodKeywordRestPO.st	Tue May 20 11:01:39 2014 +0100
@@ -10,18 +10,6 @@
 !
 
 
-!MethodKeywordRestPO class methodsFor:'Instance creation'!
-
-name:nm class:class stripOff: prefix
-    ^ self new
-        name: nm;
-        class: class;
-        keywords: (nm copyFrom: prefix size + 1);
-        yourself
-
-    "Created: / 08-04-2014 / 21:22:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !MethodKeywordRestPO class methodsFor:'accessing'!
 
 icon
@@ -80,6 +68,17 @@
     "Created: / 08-04-2014 / 21:10:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!MethodKeywordRestPO methodsFor:'initialization'!
+
+initializeWithClasses: anArray"Of Classes" selector: aSymbol prefix: aString 
+    selector := aSymbol.
+    name := aSymbol.
+    classes := anArray.
+    keywords := (aSymbol copyFrom: aString size + 1)
+
+    "Created: / 20-05-2014 / 10:44:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MethodKeywordRestPO class methodsFor:'documentation'!
 
 version_HG