[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