diff -r 29a2bf7d3b0b -r 1be278149d8d MCVersionEntry.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCVersionEntry.st	Sat Aug 20 14:27:43 2011 +0200
@@ -0,0 +1,110 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+HierarchicalItem subclass:#MCVersionEntry
+	instanceVariableNames:'name package repository'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-St/X UI'
+!
+
+
+!MCVersionEntry 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>"
+! !
+
+!MCVersionEntry methodsFor:'accessing'!
+
+label
+
+    ^name
+
+    "Created: / 16-09-2010 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+name
+    ^ name
+!
+
+name:something
+    name := something.
+!
+
+package
+    ^ package
+!
+
+package:something
+    package := something.
+!
+
+repository
+    ^ repository
+!
+
+repository:something
+    repository := something.
+!
+
+versionNumber
+
+    | versionNumberString |
+    versionNumberString := self name select:[:e|e isDigit].
+    ^versionNumberString isNilOrEmptyCollection
+        ifTrue:[nil]
+        ifFalse:[versionNumberString asNumber]
+
+    "Created: / 13-10-2010 / 15:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+versions
+
+    ^#()
+
+    "Created: / 16-09-2010 / 18:59:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCVersionEntry methodsFor:'converting'!
+
+asMCVersion
+
+    ^repository loadVersionFromFileNamed: name
+
+    "Created: / 17-09-2010 / 15:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCVersionEntry 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>"
+! !
+
+!MCVersionEntry class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionEntry.st,v 1.1 2011-08-20 12:27:43 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionEntry.st,v 1.1 2011-08-20 12:27:43 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCVersionEntry.st 24 2010-11-09 14:00:17Z vranyj1 §'
+! !