[squeak-dev] The Trunk: Monticello-eem.499.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 5 16:54:23 UTC 2012


Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.499.mcz

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

Name: Monticello-eem.499
Author: eem
Time: 5 April 2012, 9:53:54.998 am
UUID: fecd6d87-7d1c-4888-9d94-c792265c3295
Ancestors: Monticello-eem.498

Provide add repository... to package list in Monticello Browser

=============== Diff against Monticello-eem.498 ===============

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') -----
+ addPackageRepository
+ 
+ 	workingCopy ifNotNil:
+ 		[
+ 		(self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ])
+ 			ifNotNilDo:
+ 				[:repos |
+ 					workingCopy repositoryGroup addRepository: repos.
+ 					self repository: repos.	
+ 					self
+ 						changed: #repositoryList;
+ 						changed: #repositorySelection.
+ 					self changedButtons]]!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>pickRepositorySatisfying: (in category 'morphic ui') -----
+ pickRepositorySatisfying: aBlock
+ 	| repos index |
+ 	repos := MCRepositoryGroup default repositories select: aBlock.
+ 	index := UIManager default chooseFrom: (repos collect: [:ea | ea description])
+ 				title: 'Repository:'.
+ 	^ index = 0 ifFalse: [repos at: index]!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') -----
  workingCopyListMenu: aMenu
  	workingCopy ifNil: [^ aMenu].
  	self 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)
  			('revert package...' #revertPackage)
  			('unload package' #unloadPackage)
  			('delete working copy' #deleteWorkingCopy)
  			('rename package...' #renamePackage)).
  	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
  		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
  	].
  	self insertExternalMenuEntries: aMenu.
  	^aMenu!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyTreeMenu: (in category 'morphic ui') -----
  workingCopyTreeMenu: aMenu
  	workingCopy ifNil: [^ aMenu].
  	self fillMenu: aMenu fromSpecs:
  		#(('add required package' #addRequiredPackage)
  			('clear required packages' #clearRequiredPackages)
  			('browse package' #browseWorkingCopy)
+ 			('add repository...' #addPackageRepository)
  			('view changes' #viewChanges)
  			('view history' #viewHistory)
  			('recompile package' #recompilePackage)
  			('revert package...' #revertPackage)
  			('unload package' #unloadPackage)
  			('delete working copy' #deleteWorkingCopy)
  			('inspect working copy' #inspectWorkingCopy)).
  	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
  		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
  	].
  	^aMenu!



More information about the Squeak-dev mailing list