Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.421.mcz
==================== Summary ====================
Name: Monticello-cmm.421 Author: cmm Time: 28 February 2011, 6:15:02.72 pm UUID: 72a9c3d1-ea9a-4aaf-826c-24893d23b8cd Ancestors: Monticello-cmm.420
- Added printing forMCFileName. - Fixed #versionHighlight: for new MCFileName model.
=============== Diff against Monticello-cmm.420 ===============
Item was added: + ----- Method: MCFileName>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream + space ; + nextPutAll: self fileName!
Item was added: + ----- Method: MCFileName>>versionName (in category 'access') ----- + versionName + "Answer my version name, without the file suffix." + ^ extension + ifNil: [ fileName ] + ifNotNil: + [ String streamContents: + [ : stream | stream + nextPutAll: self packageName ; + nextPut: $- ; + nextPutAll: self author ; + nextPut: $. ; + nextPutAll: self versionNumber asString ] ]!
Item was removed: - ----- Method: MCFileRepositoryInspector>>buttonSpecs (in category 'morphic ui') ----- - buttonSpecs - ^#(('Refresh' refresh 'refresh the version-list')) , super buttonSpecs!
Item was changed: ----- Method: MCFileRepositoryInspector>>versionHighlight: (in category 'morphic ui') ----- + versionHighlight: aMCFileName - versionHighlight: aString - - | verName | inherited ifNil: [inherited := #()]. - verName := (aString copyUpToLast: $.) copyUpTo: $(. ^Text + string: aMCFileName fileName - string: aString attribute: (TextEmphasis new emphasisCode: ( + ((loaded includes: aMCFileName) ifTrue: [ 4 "underlined" ] + ifFalse: [ (inherited includes: aMCFileName versionName) - ((loaded includes: verName) ifTrue: [ 4 "underlined" ] - ifFalse: [ (inherited includes: verName) ifTrue: [ 0 ] ifFalse: [ 1 "bold" ] ])))!
Item was changed: ----- Method: MCFileRepositoryInspector>>versionList (in category 'morphic ui') ----- versionList | result | result := selectedPackage ifNil: [ versions copy ] ifNotNil: [ versions select: [ : each | selectedPackage = each packageName ] ]. "Not sure why we need this ugly Error trapping here.." (self orderSpecs at: order) value ifNotNil: [ : sortBlock | result sort: [ : a : b | [ sortBlock value: a value: b ] on: Error do: [ true ] ] ]. ^ result replace: + [ : each | self versionHighlight: each ]! - [ : each | self versionHighlight: each fileName ]!
Item was removed: - ----- Method: MCRepositoryInspector>>buttonSpecs (in category 'morphic ui') ----- - buttonSpecs - ^#(('Refresh' refresh 'refresh the version-list')) , super buttonSpecs!
Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^ #(('Refresh' refresh 'refresh the version-list') + (Browse browse 'Browse this version' hasVersion) - ^ #((Browse browse 'Browse this version' hasVersion) (History history 'Browse the history of this version' hasVersion) (Changes changes 'Browse the changes this version would make to the image' hasVersion) (Load load 'Load this version into the image' hasVersion) (Merge merge 'Merge this version into the image' hasVersion) (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) (Copy save 'Copy this version to another repository' hasVersion) (Diff diff 'Create an equivalent version based on an earlier release' hasVersion))!