[Pkg] The Trunk: Monticello-nice.670.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 10 15:50:06 UTC 2017
Nicolas Cellier uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-nice.670.mcz
==================== Summary ====================
Name: Monticello-nice.670
Author: nice
Time: 10 June 2017, 5:49:59.546878 pm
UUID: 590e192e-d0a0-435a-a012-0c4859896286
Ancestors: Monticello-topa.669
Massively replace ifNotNilDo: by ifNotNil:
We don't need two different selectors to do a single thing.
=============== Diff against Monticello-topa.669 ===============
Item was changed:
----- Method: MCCodeTool>>copyReference (in category 'menus') -----
copyReference
"Copy the selected selector to the clipboard"
+ self selectedMessageName ifNotNil:
- self selectedMessageName ifNotNilDo:
[ : selector | Clipboard clipboardText:
(self selectedClassOrMetaClass
ifNil: [ selector asString ]
ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!
Item was changed:
----- Method: MCDefinition>>mcModel (in category 'private') -----
mcModel
"Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup."
self repositoryGroup ifNotNil:
[ : group | group repositoriesDo:
+ [ : each | each mcModel ifNotNil:
- [ : each | each mcModel ifNotNilDo:
[ : mcModel | ^ mcModel ] ] ].
^ nil!
Item was changed:
----- Method: MCRepositoryInspector>>versionListMenu: (in category 'morphic ui') -----
versionListMenu: aMenu
1 to: self orderSpecs size do: [ :index |
aMenu addUpdating: #orderString: target: self selector: #order: argumentList: { index } ].
aMenu addLine.
aMenu add: 'Changes against ...' action: [| ri |
ri := aMenu defaultTarget.
(UIManager default
chooseFrom: ri versionList
values: ri versionList
+ title: 'Select version to show patch against ...') ifNotNil: [:name |
- title: 'Select version to show patch against ...') ifNotNilDo: [:name |
| versionName target base |
versionName := MCVersionName on: name.
target := ri repository versionNamed: ri versionInfo name.
base := aMenu defaultTarget repository versionNamed: versionName.
(MCPatchBrowser
forPatch: (target snapshot patchRelativeToBase: base snapshot))
showLabelled: 'Changes from ', versionName, ' to ', ri versionInfo name]].
^aMenu!
Item was changed:
----- Method: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') -----
addPackageRepository
workingCopy ifNotNil:
[
(self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ])
+ ifNotNil:
- ifNotNilDo:
[:repos |
workingCopy repositoryGroup addRepository: repos.
self repository: repos.
self
changed: #repositoryList;
changed: #repositorySelection.
self changedButtons]]!
More information about the Packages
mailing list