[Pkg] Monticello Public: Monticello.impl-kph.623.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.623.mcz

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

Name: Monticello.impl-kph.623
Author: kph
Time: 11 February 2009, 5:16:23 pm
UUID: 35ba2cb2-4b18-4459-b235-a4740e5996b0
Ancestors: Monticello.impl-kph.622

Repository Browser versions menu is now extendable. The idea being that the Author auduting options could be a loadable package

=============== Diff against Monticello.impl-kph.622 ===============

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem200ListOrderOptions: (in category 'menu items') -----
+ menuItem200ListOrderOptions: aMenu
+ 	 	
+ 	aMenu addLine.
+ 	self versionListOrderMenu: aMenu.
+ 	!

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:  'find authors' target: self selector: #authorsFind.
- 		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.
- 		aMenu add:  'find authors (forked)' target: self selector: #authorsFindAll.
- 		
- 	].
- 
- 	aMenu addLine.
  	
+ 	((self class allSelectorsBelow: MCTool) 
+ 		select: [ :sel | (sel beginsWith: #menuItem) ]) asSortedCollection
+ 		do: [ :ea | self perform: ea with: aMenu ].
- 	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 added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem060FindAuthors: (in category 'menu items') -----
+ menuItem060FindAuthors: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add:  'find authors'' code' target: self selector: #authorsFind ].
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem040DualChangesBrowser: (in category 'menu items') -----
+ menuItem040DualChangesBrowser: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add: 'open dual changes browser' target: self selector: #openDual ].
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem100Delete: (in category 'menu items') -----
+ menuItem100Delete: aMenu
+ 	 	
+ 	self isVersionDeletable ifTrue: [ aMenu add: 'delete' target: self selector: #delete ].!

Item was added:
+ ----- Method: MCRepositoryPackagesVersionsInspector>>menuItem900SwitchToTwoColumnInspector: (in category 'menu items') -----
+ menuItem900SwitchToTwoColumnInspector: aMenu
+ 
+ 	"null"!

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem010Adopt: (in category 'menu items') -----
+ menuItem010Adopt: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add:  'adopt' target: self selector: #adopt ].
+ 
+ 	!

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem050CopyAll: (in category 'menu items') -----
+ menuItem050CopyAll: aMenu
+ 	 	
+ 	aMenu add:  'copy all' target: self selector: #copyAll.!

Item was changed:
+ ----- Method: MCRepositoryVersionsInspector>>openDual (in category 'menu items') -----
- ----- Method: MCRepositoryVersionsInspector>>openDual (in category 'morphic ui') -----
  openDual
  
     |  dual r2 |
  
  	r2 := self pickRepository.
  	
  	dual :=	MCRepositoryDualVersionsInspector repository: self repository repository2: r2.
  		
  	dual versionSelection: self versionSelection.
  	
  	dual show.!

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem051CopyAllForked: (in category 'menu items') -----
+ menuItem051CopyAllForked: aMenu
+ 	 	
+ 		aMenu add:  'copy all (forked)' target: self selector: #copyAllFork.
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem070ExploreAllAuthors: (in category 'menu items') -----
+ menuItem070ExploreAllAuthors: aMenu
+ 	 	
+ 	self hasSnapshot ifFalse: [ 
+ 		aMenu add:  'explore all authors (forked)' target: self selector: #authorsAll.
+ 	].!

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem071FindAuthorsCode: (in category 'menu items') -----
+ menuItem071FindAuthorsCode: aMenu
+ 	 	
+ 	self hasSnapshot ifFalse: [ 
+ 		aMenu add:  'find authors'' code (forked)' target: self selector: #authorsFindAll.
+ 		].!

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem900SwitchToTwoColumnInspector: (in category 'menu items') -----
+ menuItem900SwitchToTwoColumnInspector: aMenu
+ 	 	
+ 	aMenu addLine.
+ 	aMenu add: 'open two column display' target: self selector: #twoColumnOpen.
+ 	aMenu add: 'always use two column display' target: self selector: #twoColumnAlways.
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem061ExploreAuthors: (in category 'menu items') -----
+ menuItem061ExploreAuthors: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add:  'explore authors' target: self selector: #authors. ].
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem030ChangeLogEntry: (in category 'menu items') -----
+ menuItem030ChangeLogEntry: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add:  'change log entry' target: self selector: #openChangeLogEntry ].
+ 
+ !

Item was added:
+ ----- Method: MCRepositoryVersionsInspector>>menuItem020Diff: (in category 'menu items') -----
+ menuItem020Diff: aMenu
+ 	 	
+ 	self hasSnapshot ifTrue: [ aMenu add:  'diff' target: self selector: #diff ].
+ 
+ 	!