class: MCClassDefinition
changed: #asChange (send #classVariableString: instead of #classVariableNames:, send #instanceVariableString: instead of #instanceVariableNames:)
oops - wrong setters
"{ Package: 'stx:goodies/monticello' }"
HierarchicalItem subclass:#MCPackageEntry
instanceVariableNames:'name repository'
classVariableNames:''
poolDictionaries:''
category:'SCM-Monticello-St/X UI'
!
!MCPackageEntry class methodsFor:'instance creation'!
name: name repository: repository
^self new
name: name;
repository: repository
"Created: / 16-09-2010 / 18:43:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCPackageEntry methodsFor:'accessing'!
label
^name
"Created: / 16-09-2010 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
name
^ name
!
name:something
name := something.
!
repository
^ repository
!
repository:something
repository := something.
!
versions
| versions |
versions := repository allFileNames select:[:n|n startsWith: name].
versions := versions asSortedCollection asOrderedCollection reverse.
versions := versions collect:[:vername|(MCVersionEntry name: vername repository: repository) package: self name; yourself].
^versions
"Modified: / 09-11-2010 / 13:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCPackageEntry methodsFor:'printing & storing'!
printOn:aStream
"append a printed representation if the receiver to the argument, aStream"
self class name printOn:aStream.
aStream space.
aStream nextPutAll:'name: '.
name printOn:aStream.
aStream space.
aStream nextPutAll:'repository: '.
repository printOn:aStream.
"Modified: / 16-09-2010 / 18:46:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCPackageEntry class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageEntry.st,v 1.3 2012-09-11 21:25:03 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageEntry.st,v 1.3 2012-09-11 21:25:03 cg Exp $'
!
version_SVN
^ '§Id: MCPackageEntry.st 24 2010-11-09 14:00:17Z vranyj1 §'
! !