<br><br><div class="gmail_quote">On Wed, Aug 8, 2012 at 12:27 PM, Chris Muller <span dir="ltr"><<a href="mailto:asqueaker@gmail.com" target="_blank">asqueaker@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
This change is unsustainable and has broken the API contract with<br>
other respository types. The only required MCRepository API that<br>
should be used by outside clients such as MCRepositoryInspector is:<br>
<br>
#allPackageNames - answer a list of package names in this repository.<br>
#basicStoreVersion: - add a Version to this repository.<br>
#includesVersionNamed: - does a version with this name exist in this<br>
repository?<br>
#versionNamed: - answer the first Version object with the given name.<br>
#versionNamesForPackageNamed: - answer the version names for the<br>
given package name.<br>
#versionWithInfo:ifAbsent: - answer the Version object with the<br>
given unique VersionInfo<br>
<br>
A detailed explanation is here:<br>
<br>
<a href="http://lists.squeak.org/pipermail/squeak-dev/2011-March/157825.html" target="_blank">http://lists.squeak.org/pipermail/squeak-dev/2011-March/157825.html</a><br>
<br>
I use other repository types besides FileBased which are now broken by this.<br>
<br>
Eliot, is there some way to solve your issue without enumerating all<br>
filenames of a repository?<br></blockquote><div><br></div><div>I'm out of my depth here. Bert is the authority. But I do know it is absolutely necessary to take account of the branch name. Here's why:</div><div>
<br></div><div>a) finding the head of a branch is extremely difficult if it is lumped in with the trunk. For example in VMMaker the head of VMMaker is 284 while the head of VMMaker.oscog is 196. So VMMaker.oscog is buried far down the list. This is sort-of sufferable by me, but not by newbies who likely won't find it.</div>
<div><br></div><div>b) the "is the package modified" highlighting (emboldening and underlining) is entirely misleading if branches and trunks are lumped together.</div><div><br></div><div>So please reconsider. Monticello used to separate trunks and branches. The change that lumped them together make the system difficult to use for some packages (and I hope you agree VMMaker is kind of important).<br>
</div><div> </div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">On Thu, Jun 7, 2012 at 12:19 PM, <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br>
> Eliot Miranda uploaded a new version of Monticello to project The Trunk:<br>
> <a href="http://source.squeak.org/trunk/Monticello-eem.512.mcz" target="_blank">http://source.squeak.org/trunk/Monticello-eem.512.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: Monticello-eem.512<br>
> Author: eem<br>
> Time: 7 June 2012, 10:17:48.386 am<br>
> UUID: a2addfac-e45d-4770-8f36-250da0d46b0b<br>
> Ancestors: Monticello-cmm.511<br>
><br>
> Provide a preference (Browse branched package versions separately)<br>
> that makes the repository inspector show branches as<br>
> separate groups. e.g. makes it easier to find the newest<br>
> VMMaker.oscog amongst the trunk versions.<br>
><br>
> =============== Diff against Monticello-cmm.511 ===============<br>
><br>
> Item was added:<br>
> + ----- Method: MCFileBasedRepository>>allPackageAndBranchNames (in category 'overriding') -----<br>
> + allPackageAndBranchNames<br>
> + | answer |<br>
> + answer := Set new.<br>
> + self allFileNamesOrCache do:<br>
> + [ : each | | versionName |<br>
> + versionName := each asMCVersionName.<br>
> + versionName isValid ifTrue: [ answer add: versionName packageAndBranchName ] ].<br>
> + ^ answer!<br>
><br>
> Item was changed:<br>
> ----- Method: MCFileRepositoryInspector>>versionNamesForSelectedPackage (in category 'private') -----<br>
> versionNamesForSelectedPackage<br>
> ^ self allVersionNames select:<br>
> + (self class browseBranchedVersionsSeparately<br>
> + ifTrue: [[:each| each packageAndBranchName = selectedPackage]]<br>
> + ifFalse: [[:each| each packageName = selectedPackage]])!<br>
> - [ : each | each packageName = selectedPackage ]!<br>
><br>
> Item was changed:<br>
> + ----- Method: MCGOODSRepository>>allPackageNames (in category 'packages') -----<br>
> - ----- Method: MCGOODSRepository>>allPackageNames (in category 'as yet unclassified') -----<br>
> allPackageNames<br>
> ^ self root collect:<br>
> [ : ea | ea package name ]!<br>
><br>
> Item was changed:<br>
> MCVersionInspector subclass: #MCRepositoryInspector<br>
> instanceVariableNames: 'repository packageNames versionNames selectedPackage selectedVersion order versionInfo loaded newer inherited'<br>
> + classVariableNames: 'BrowseBranchedVersionsSeparately Order'<br>
> - classVariableNames: 'Order'<br>
> poolDictionaries: ''<br>
> category: 'Monticello-UI'!<br>
><br>
> Item was added:<br>
> + ----- Method: MCRepositoryInspector class>>browseBranchedVersionsSeparately (in category 'class initialization') -----<br>
> + browseBranchedVersionsSeparately<br>
> +<br>
> + <preference: 'Browse branched package versions separately'<br>
> + category: 'Monticello'<br>
> + description: 'If true, versions of packages on branches will be shown in a separate section from trunk package versions'<br>
> + type: #Boolean><br>
> + ^BrowseBranchedVersionsSeparately ifNil: [false]!<br>
><br>
> Item was added:<br>
> + ----- Method: MCRepositoryInspector class>>browseBranchedVersionsSeparately: (in category 'class initialization') -----<br>
> + browseBranchedVersionsSeparately: aBoolean<br>
> + BrowseBranchedVersionsSeparately := aBoolean!<br>
><br>
> Item was changed:<br>
> + ----- Method: MCRepositoryInspector class>>order (in category 'class initialization') -----<br>
> - ----- Method: MCRepositoryInspector class>>order (in category 'as yet unclassified') -----<br>
> order<br>
> Order isNil<br>
> ifTrue: [ Order := 5 ].<br>
> ^Order!<br>
><br>
> Item was changed:<br>
> + ----- Method: MCRepositoryInspector class>>order: (in category 'class initialization') -----<br>
> - ----- Method: MCRepositoryInspector class>>order: (in category 'as yet unclassified') -----<br>
> order: anInteger<br>
> Order := anInteger!<br>
><br>
> Item was changed:<br>
> + ----- Method: MCRepositoryInspector class>>repository:workingCopy: (in category 'instance creation') -----<br>
> - ----- Method: MCRepositoryInspector class>>repository:workingCopy: (in category 'as yet unclassified') -----<br>
> repository: aFileBasedRepository workingCopy: aWorkingCopy<br>
> ^self new<br>
> setRepository: aFileBasedRepository workingCopy: aWorkingCopy;<br>
> yourself!<br>
><br>
> Item was changed:<br>
> ----- Method: MCRepositoryInspector>>packageList (in category 'morphic ui') -----<br>
> packageList<br>
> | result loadedPackages |<br>
> packageNames ifNotNil: [ ^ packageNames ].<br>
> repository cacheAllFileNamesDuring:<br>
> [ "Enjoy emphasis side-effects of populating my versionNames."<br>
> self versionNames.<br>
> + result := self class browseBranchedVersionsSeparately<br>
> + ifTrue: [ repository allPackageAndBranchNames ]<br>
> + ifFalse: [ repository allPackageNames ] ].<br>
> - result := repository allPackageNames ].<br>
> "sort loaded packages first, then alphabetically"<br>
> loadedPackages := Set new: loaded size.<br>
> loaded do:<br>
> [ : each | loadedPackages add: each packageName ].<br>
> result := result asArray sort:<br>
> [ : a : b | | loadedA loadedB |<br>
> loadedA := loadedPackages includes: a.<br>
> loadedB := loadedPackages includes: b.<br>
> loadedA = loadedB<br>
> ifTrue: [ a < b ]<br>
> ifFalse: [ loadedA ] ].<br>
> ^ packageNames := result collect:<br>
> [ : each | self packageHighlight: each ]!<br>
><br></blockquote></div><div><br></div>-- <br>best,<div>Eliot</div><br>