[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