The Trunk: Monticello-bp.411.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Monticello-bp.411.mcz

commits-2
Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bp.411.mcz

==================== Summary ====================

Name: Monticello-bp.411
Author: bp
Time: 21 November 2010, 6:38:42.624 pm
UUID: cb55688c-2329-45c5-9d98-8df274e13a43
Ancestors: Monticello-bp.410

- Changed MCWorkingCopy description so that the package name is not duplicated when, e.g. Kernel (dtl.517) instead of Kernel (Kernel-dtl.517). This makes the Monticello Browser easier to use.

=============== Diff against Monticello-bp.410 ===============

Item was added:
+ ----- Method: MCAncestry>>ancestorStringWithout: (in category 'ancestry') -----
+ ancestorStringWithout: packageName
+ ^ String streamContents:
+ [:s | self ancestors do: [:ea | s nextPutAll: (ea nameWithout: packageName)] separatedBy: [s nextPutAll: ', ']]!

Item was added:
+ ----- Method: MCVersionInfo>>nameWithout: (in category 'accessing') -----
+ nameWithout: packageName
+ | result |
+ result := self name.
+ (result startsWith: packageName , '-') ifTrue: [
+ result := result copyFrom: packageName size + 2 to: result size].
+ ^result!

Item was changed:
  ----- Method: MCWorkingCopy>>description (in category 'accessing') -----
  description
+ ^ self packageNameWithStar, ' (', (ancestry ancestorStringWithout: self packageName), ')'!
- ^ self packageNameWithStar, ' (', ancestry ancestorString, ')'!