--- a/Tools__ChangeSetSpec.st	Fri Aug 03 14:47:21 2012 +0100
+++ b/Tools__ChangeSetSpec.st	Fri Aug 03 16:14:04 2012 +0100
@@ -66,6 +66,13 @@
 
 !ChangeSetSpec class methodsFor:'instance creation'!
 
+changeSet
+
+    ^Explicit new
+
+    "Created: / 03-08-2012 / 15:35:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 changeSet: changeset
 
     ^Explicit new changeSet: changeset
@@ -112,10 +119,10 @@
 
 specClasses
 
-    ^self allSubclasses reject:[:e|e == Explicit]
+    ^self allSubclasses"/ reject:[:e|e == Explicit]
 
     "Created: / 05-07-2011 / 23:30:45 / jv"
-    "Modified: / 19-03-2012 / 23:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-08-2012 / 15:21:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetSpec methodsFor:'accessing'!
@@ -240,15 +247,17 @@
 editorSpecSelector
     "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
 
-    ^ self shouldImplement
+    ^ #editorSpecForExplicit
+
+    "Modified: / 03-08-2012 / 15:21:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 label
     "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
 
-    ^ 'Explictly specified changeset'
+    ^ 'ChangeSet object'
 
-    "Modified: / 19-03-2012 / 23:57:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-08-2012 / 15:19:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetSpec::Explicit methodsFor:'accessing'!
@@ -256,7 +265,13 @@
 changeSet
     "superclass Tools::ChangeSetSpec says that I am responsible to implement this method"
 
-    ^ self shouldImplement
+    ^changeSet isNil ifTrue:[changeSet := ChangeSet new].
+
+    "Modified: / 03-08-2012 / 15:22:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+changeSet:something
+    changeSet := something.
 ! !
 
 !ChangeSetSpec::Explicit methodsFor:'testing'!
@@ -370,5 +385,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetSpec.st 7947 2012-03-20 16:59:54Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetSpec.st 8036 2012-08-03 15:14:04Z vranyj1 $'
 ! !