[Pkg] Monticello Public: Monticello.impl-kph.605.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.605.mcz

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

Name: Monticello.impl-kph.605
Author: kph
Time: 12 December 2008, 12:08:54 am
UUID: ae55b65a-d1e4-4e5c-b021-b288bd6ed58c
Ancestors: Monticello.impl-kph.604

added ability to add to working copy menu via method extensions.

Sake-Packages uses this, SARDumper could use it

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

Item was added:
+ ----- Method: MCWorkingCopy>>myMenuForSARDumper: (in category 'menu') -----
+ myMenuForSARDumper: aMenu
+ 
+ 	(Smalltalk classNamed: 'SARMCPackageDumper') ifNotNil: [
+ 		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
+ 	].		
+ !

Item was changed:
  ----- Method: MCWorkingCopy>>myMenu:inBrowser: (in category 'menu') -----
  myMenu: aMenu inBrowser: browser
   
  	browser fillMenu: aMenu fromSpecs:
  		#(
  			('add required package' #addRequiredPackage)
  			('clear required packages' #clearRequiredPackages)
  			('add repository...' #addPackageRepository)
  			"('browse package' #browseWorkingCopy)
  			('view changes' #viewChanges)
  			('view history' #viewHistory)"
  			('recompile package' #recompilePackage)
  			('recompile all packages' #recompileAllPackages)		
  			('memory use for all packages' #viewMemoryUseAll)		
  			('memory use' #viewMemoryUse)		
  			('revert package...' #revertPackage)
  			('unload package code' #unloadPackage)
  			('trim ancestry' #trimAncestry)
  			('ancestry go back one' #ancestryGoBackOne)
  			('remove package name from list' #deleteWorkingCopy)
  			('explore working copy' #exploreWorkingCopy)
  		).
+ 
+ 	self class selectors select: [ :sel | (sel beginsWith: #myMenu) and: [ sel ~= #myMenu:inBrowser: ]]
+ 		thenDo: [ :ea | self perform: ea with: aMenu ].
+ 
- 	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
- 		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
- 	].
-  
  	^ aMenu
  !