--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/Tools__ChangeSetSpec.st Wed Jul 06 14:03:05 2011 +0200
@@ -0,0 +1,150 @@
+"{ Package: 'stx:libbasic3' }"
+
+"{ NameSpace: Tools }"
+
+Object subclass:#ChangeSetSpec
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-Dialogs'
+!
+
+ChangeSetSpec subclass:#Directory
+ instanceVariableNames:'directory'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:ChangeSetSpec
+!
+
+ChangeSetSpec subclass:#Package
+ instanceVariableNames:'package'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:ChangeSetSpec
+!
+
+
+!ChangeSetSpec class methodsFor:'accessing'!
+
+editorSpecSelector
+
+ ^self subclassResponsibility
+
+ "Created: / 05-07-2011 / 23:37:03 / jv"
+!
+
+label
+
+ ^self subclassResponsibility
+
+ "Created: / 05-07-2011 / 23:29:33 / jv"
+!
+
+specClasses
+
+ ^self allSubclasses
+
+ "Created: / 05-07-2011 / 23:30:45 / jv"
+! !
+
+!ChangeSetSpec methodsFor:'accessing'!
+
+changeSet
+
+ ^self subclassResponsibility
+
+ "Created: / 05-07-2011 / 23:13:35 / jv"
+!
+
+editorSpecSelector
+
+ ^self class editorSpecSelector
+
+ "Created: / 06-07-2011 / 09:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!ChangeSetSpec::Directory class methodsFor:'accessing'!
+
+editorSpecSelector
+ "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
+
+ ^ #editorSpecForDirectory
+
+ "Modified: / 05-07-2011 / 23:37:41 / jv"
+!
+
+label
+ "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
+
+ ^ 'Directory'
+
+ "Modified: / 05-07-2011 / 23:31:12 / jv"
+! !
+
+!ChangeSetSpec::Directory methodsFor:'accessing'!
+
+changeSet
+ "superclass Tools::ChangeSetSpec says that I am responsible to implement this method"
+
+ | name |
+ name := directory asString.
+ name size > 50 ifTrue:[
+ name := '...' , (name copyFrom: name size - 47)
+ ].
+
+ ^(ChangeSet fromDirectory: self directory)
+ name: name
+
+ "Modified (format): / 06-07-2011 / 11:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+directory
+ ^ directory
+!
+
+directory:aStringOrFilename
+ directory := aStringOrFilename.
+! !
+
+!ChangeSetSpec::Package class methodsFor:'accessing'!
+
+editorSpecSelector
+ "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
+
+ ^ #editorSpecForPackage
+
+ "Modified: / 05-07-2011 / 23:37:52 / jv"
+!
+
+label
+ "superclass Tools::ChangeSetSpec class says that I am responsible to implement this method"
+
+ ^ 'Loaded package'
+
+ "Modified: / 05-07-2011 / 23:31:34 / jv"
+! !
+
+!ChangeSetSpec::Package methodsFor:'accessing'!
+
+changeSet
+ "superclass Tools::ChangeSetSpec says that I am responsible to implement this method"
+
+ ^ (ChangeSet forPackage: self package)
+ name: ('Package %1 (from image)' bindWith: package)
+
+ "Modified: / 06-07-2011 / 11:38:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+package
+ ^ package
+!
+
+package:aStringOrSymbol
+ package := aStringOrSymbol.
+! !
+
+!ChangeSetSpec class methodsFor:'documentation'!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetSpec.st,v 1.1 2011-07-06 12:03:05 vrany Exp $'
+! !