--- a/MCDictionaryRepository.st Sat Aug 20 13:46:21 2011 +0200
+++ b/MCDictionaryRepository.st Sat Aug 20 13:46:27 2011 +0200
@@ -8,6 +8,12 @@
!
+!MCDictionaryRepository class methodsFor:'initialization'!
+
+new
+ ^self basicNew initialize
+! !
+
!MCDictionaryRepository methodsFor:'as yet unclassified'!
= other
@@ -24,7 +30,7 @@
closestAncestorVersionFor: anAncestry ifNone: errorBlock
| info |
- info _ anAncestry breadthFirstAncestors
+ info := anAncestry breadthFirstAncestors
detect: [:ea | self includesVersionWithInfo: ea]
ifNone: [^ errorBlock value].
^ self versionWithInfo: info
@@ -37,7 +43,7 @@
description: aString
- description _ aString
+ description := aString
!
dictionary
@@ -47,7 +53,7 @@
dictionary: aDictionary
- dict _ aDictionary
+ dict := aDictionary
!
includesVersionNamed: aString
@@ -60,23 +66,17 @@
initialize
- dict _ Dictionary new.
-!
+ super initialize.
+ dict := Dictionary new.
-morphicOpen: aWorkingCopy
- | names index infos |
- infos _ self sortedVersionInfos.
- infos isEmpty ifTrue: [^ self inform: 'No versions'].
- names _ infos collect: [:ea | ea name].
- index _ (PopUpMenu labelArray: names) startUpWithCaption: 'Open version:'.
- index = 0 ifFalse: [(self versionWithInfo: (infos at: index)) open]
!
sortedVersionInfos
| sorter |
- sorter _ MCVersionSorter new.
+ sorter := MCVersionSorter new.
self allVersionInfos do: [:ea | sorter addVersionInfo: ea].
^ sorter sortedVersionInfos
+
!
versionWithInfo: aVersionInfo ifAbsent: errorBlock
@@ -86,5 +86,13 @@
!MCDictionaryRepository class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDictionaryRepository.st,v 1.1 2006-11-22 13:22:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDictionaryRepository.st,v 1.2 2011-08-20 11:46:27 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDictionaryRepository.st,v 1.2 2011-08-20 11:46:27 cg Exp $'
+!
+
+version_SVN
+ ^ '§Id: MCDictionaryRepository.st 7 2010-09-12 07:18:55Z vranyj1 §'
! !