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