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

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

Name: Monticello.impl-kph.626
Author: kph
Time: 12 February 2009, 12:40:28 am
UUID: 1f5cec81-5033-4244-b3e9-039f1c31928c
Ancestors: Monticello.impl-kph.625

added trim ALL ancestry

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

Item was changed:
+ ----- Method: MCVersionReader class>>serviceLoadVersion (in category '*monticello-file services-override-override') -----
- ----- Method: MCVersionReader class>>serviceLoadVersion (in category 'file services') -----
  serviceLoadVersion
  	^ (SimpleServiceEntry
  		provider: self
  		label: 'load version'
+ 		selector: #loadVersionStream:fromDirectory:
- 		selector: #loadVersionFile:
  		description: 'load a package version'
+ 		buttonLabel: 'load')
+ 		argumentGetter: [ :fileList | { fileList readOnlyStream . fileList directory } ]!
- 		buttonLabel: 'load')!

Item was changed:
+ ----- Method: MCWorkingCopy>>trimAncestry (in category 'accessing') -----
- ----- Method: MCWorkingCopy>>trimAncestry (in category 'private') -----
  trimAncestry
+ 	 
+ 	self ancestry trimAfterVersionInfo: self ancestry !
- 
- 	self ancestry trimAfterVersionInfo: versionInfo!

Item was changed:
  ----- Method: MCWorkingCopy>>myMenu:inBrowser: (in category 'menu') -----
  myMenu: aMenu inBrowser: browser
   
+ 	"note these actions are sent to the 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 ].
  
  	^ aMenu
  !

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') -----
  workingCopyListMenu: aMenu
+  
+ 	workingCopy ifNil: [ ^ self workingCopyAllMenu: aMenu ] ifNotNilDo: [ :wc | wc myMenu: aMenu inBrowser: self  ].
+ 	
+ 	^ aMenu!
- 	workingCopy ifNil: [^ aMenu].
- 	self fillMenu: aMenu fromSpecs:
- 		#(('add required package' #addRequiredPackage)
- 			('add required all dirty packages' #addRequiredDirtyPackage)
- 			('clear required packages' #clearRequiredPackages)
- 			('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' #unloadPackage)
- 			('delete working copy' #deleteWorkingCopy)).
- 	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
- 		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
- 	].
- 	^aMenu!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>workingCopyAllMenu: (in category 'morphic ui') -----
+ workingCopyAllMenu: aMenu
+  
+ 	aMenu add: 'trim ALL ancestry' target: self selector: #trimAncestryAll.
+ 
+ 	^aMenu!

Item was changed:
+ ----- Method: MCVersionReader class>>serviceOpenVersion (in category '*monticello-file services-override-override') -----
- ----- Method: MCVersionReader class>>serviceOpenVersion (in category 'file services') -----
  serviceOpenVersion
  	^ (SimpleServiceEntry
  		provider: self
  		label: 'open version'
+ 		selector: #openVersionFromStream:
- 		selector: #openVersionFile:
  		description: 'open a package version'
+ 		buttonLabel: 'open')
+ 		argumentGetter: [ :fileList | fileList readOnlyStream ]!
- 		buttonLabel: 'open')!

Item was changed:
+ ----- Method: MCVersionReader class>>serviceMergeVersion (in category '*monticello-file services-override-override') -----
- ----- Method: MCVersionReader class>>serviceMergeVersion (in category 'file services') -----
  serviceMergeVersion
  	^ (SimpleServiceEntry
  		provider: self
  		label: 'merge version'
+ 		selector: #mergeVersionStream:
- 		selector: #mergeVersionFile:
  		description: 'merge a package version into the image'
+ 		buttonLabel: 'merge')
+ 		argumentGetter: [ :fileList | fileList readOnlyStream ]!
- 		buttonLabel: 'merge')!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyTreeMenu: (in category 'morphic ui') -----
  workingCopyTreeMenu: aMenu
+  	self halt.
+ 	workingCopy ifNil: [ ^ self workingCopyAllMenu: aMenu ] ifNotNilDo: [ :wc | wc myMenu: aMenu inBrowser: self  ].
- 
- 	workingCopy ifNotNilDo: [ :wc | wc myMenu: aMenu inBrowser: self  ].
  	
  	^ aMenu!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>trimAncestryAll (in category 'actions') -----
+ trimAncestryAll
+ 
+ 	self workingCopies do: [ :ea | 
+ 		
+ 		workingCopy ancestry trimAncestry.
+ 		
+ 	].
+ 	 !

Item was removed:
- ----- Method: MCWorkingCopyBrowser>>trimOldestAncestry (in category 'actions') -----
- trimOldestAncestry
- 	self pickAncestorVersionInfo ifNotNilDo:
- 		[:ancestor |
- 		workingCopy ancestry trimAfterVersionInfo: ancestor]!