--- a/Tools__ChangeSetSpec.st Tue Mar 20 12:36:40 2012 +0000
+++ b/Tools__ChangeSetSpec.st Tue Mar 20 16:59:54 2012 +0000
@@ -152,6 +152,38 @@
"Created: / 19-03-2012 / 23:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!ChangeSetSpec methodsFor:'testing'!
+
+isChangeSet
+ ^self isExplicit
+
+ "Created: / 20-03-2012 / 14:58:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isDirectory
+ ^false
+
+ "Created: / 20-03-2012 / 14:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isExplicit
+ ^false
+
+ "Created: / 20-03-2012 / 14:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isFile
+ ^false
+
+ "Created: / 20-03-2012 / 14:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isPackage
+ ^false
+
+ "Created: / 20-03-2012 / 14:58:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeSetSpec::Directory class methodsFor:'accessing'!
editorSpecSelector
@@ -195,6 +227,14 @@
directory := aStringOrFilename.
! !
+!ChangeSetSpec::Directory methodsFor:'testing'!
+
+isDirectory
+ ^true
+
+ "Created: / 20-03-2012 / 14:59:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeSetSpec::Explicit class methodsFor:'accessing'!
editorSpecSelector
@@ -219,6 +259,14 @@
^ self shouldImplement
! !
+!ChangeSetSpec::Explicit methodsFor:'testing'!
+
+isExplicit
+ ^true
+
+ "Created: / 20-03-2012 / 14:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeSetSpec::File class methodsFor:'accessing'!
editorSpecSelector
@@ -262,6 +310,14 @@
file := something.
! !
+!ChangeSetSpec::File methodsFor:'testing'!
+
+isFile
+ ^true
+
+ "Created: / 20-03-2012 / 14:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeSetSpec::Package class methodsFor:'accessing'!
editorSpecSelector
@@ -299,6 +355,14 @@
package := aStringOrSymbol.
! !
+!ChangeSetSpec::Package methodsFor:'testing'!
+
+isPackage
+ ^true
+
+ "Created: / 20-03-2012 / 14:59:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeSetSpec class methodsFor:'documentation'!
version_CVS
@@ -306,5 +370,5 @@
!
version_SVN
- ^ '$Id: Tools__ChangeSetSpec.st 7946 2012-03-20 12:36:40Z vranyj1 $'
+ ^ '$Id: Tools__ChangeSetSpec.st 7947 2012-03-20 16:59:54Z vranyj1 $'
! !