--- /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 §'
+! !