"{ Package: 'stx:libtool' }"

"{ 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.2 2011/10/02 19:52:17 stefan Exp §'

! !