[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
|