[squeak-dev] The Trunk: Monticello-ul.752.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Sep 3 14:21:42 UTC 2021


Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.752.mcz

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

Name: Monticello-ul.752
Author: ul
Time: 3 September 2021, 3:51:34.80549 pm
UUID: 7e736996-9073-4456-9408-d6efd270abb1
Ancestors: Monticello-mt.751

- ifNotNilDo: -> ifNotNil:

=============== Diff against Monticello-mt.751 ===============

Item was changed:
  ----- Method: MCCodeTool>>copyReference (in category 'menus') -----
  copyReference
  	"Copy the selected selector to the clipboard"
  	self selectedMessageName ifNotNil:
  		[ : selector | Clipboard clipboardText:
  			(self selectedClassOrMetaClass
  				ifNil: [ selector asString ]
+ 				ifNotNil: [ : cls | (cls >> selector) reference ]) ]!
- 				ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!

Item was changed:
  ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') -----
  browseSelectionOrigin
  	| mcDefinition |
  	selection ifNil: [ UIManager inform: 'Make a selection.' ].
  	mcDefinition := selection definition.
  	Cursor wait showWhile:
  		[ mcDefinition mcModel ifNotNil:
  			[ : mcModel | (mcModel originOf: mcDefinition)
  				ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ]
+ 				ifNotNil:
- 				ifNotNilDo:
  					[ : version | version open ] ] ]!

Item was changed:
  ----- Method: MCRepository>>copyImageVersions (in category 'versions') -----
  copyImageVersions
  	"For each package contained in the receiver, copy the version of that package which is currently loaded in this image.  If no version of a package is loaded in the image, nothing is copied for that package."
  	self cacheAllFileNamesDuring:
  		[ self allPackageNames do:
  			[ : eachPkgName | MCWorkingCopy allManagers
  				detect: [ : each | each packageName = eachPkgName ]
  				ifFound:
  					[ : loaded | loaded ancestors do:
  						[ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse:
  							[ (MCRepositoryGroup default versionWithInfo: infoToCopy)
  								ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ]
+ 								ifNotNil:
- 								ifNotNilDo:
  									[ : ver | self storeVersion: ver ] ] ] ]
  				ifNone: [ "Image specifies no version to copy." ] ] ]!



More information about the Squeak-dev mailing list