--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCPackageEntry.st	Sat Aug 20 14:04:51 2011 +0200
@@ -0,0 +1,87 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+HierarchicalItem subclass:#MCPackageEntry
+	instanceVariableNames:'name repository'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'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.1 2011-08-20 12:04:51 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackageEntry.st,v 1.1 2011-08-20 12:04:51 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCPackageEntry.st 24 2010-11-09 14:00:17Z vranyj1 §'
+! !