[Pkg] Monticello Public: Monticello.impl-kph.618.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sat Feb 7 21:37:24 UTC 2009
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.618.mcz
==================== Summary ====================
Name: Monticello.impl-kph.618
Author: kph
Time: 7 February 2009, 9:37:12 pm
UUID: d94cfad2-645f-4710-9ce1-69f20bc5537e
Ancestors: Monticello.impl-kph.617
- halt
+ fork the authors scan
=============== Diff against Monticello.impl-kph.617 ===============
Item was changed:
----- Method: MCRepositoryVersionsInspector>>versionListMenu: (in category 'morphic ui') -----
versionListMenu: aMenu
self hasSnapshot ifTrue: [
self fillMenu: aMenu fromSpecs:
#(
('adopt' #adopt)
('diff' #diff)
('change log entry' #openChangeLogEntry)
('open dual changes browser' #openDual)
).
aMenu add: 'copy all' target: self selector: #copyAll.
aMenu add: 'copy all (forked)' target: self selector: #copyAllFork.
aMenu add: 'print authors' target: self selector: #authors.
aMenu addLine.
self isVersionDeletable ifTrue: [
aMenu add: 'delete' target: self selector: #delete.
].
].
+ self hasSnapshot ifFalse: [ aMenu add: 'print all authors (forked)' target: self selector: #authorsAll ].
- self hasSnapshot ifFalse: [ aMenu add: 'print all authors' target: self selector: #authorsAll ].
aMenu addLine.
self versionListOrderMenu: aMenu.
(self class = MCRepositoryVersionsInspector)
ifTrue: [
aMenu addLine.
aMenu add: 'open two column display' target: self selector: #twoColumnOpen.
aMenu add: 'always use two column display' target: self selector: #twoColumnAlways.
].
^ aMenu
!
Item was changed:
----- Method: MCRepositoryVersionsInspector>>authorsAll (in category 'authorship') -----
authorsAll
| authors |
authors := Set new.
+
+ [versionInfos do: [ :ea |
- self halt.
- versionInfos do: [ :ea |
Transcript cr show: 'inspecting ', ea description.
self authorsForVersionInfo: ea on: authors ].
self authorsPrint: authors.
+ authors explore ] fork!
- ^ authors explore!
More information about the Packages
mailing list