The Trunk: Monticello-eem.727.mcz

Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.727.mcz

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

Name: Monticello-eem.727
Author: eem
Time: 17 September 2020, 1:33:24.024802 pm
UUID: 5415d5d8-f2cd-49ac-974d-54d74f352585
Ancestors: Monticello-cmm.726

Have the snapshot browser file-out the selected method definition(s), not the installed definition(s).

=============== Diff against Monticello-cmm.726 ===============

Item was added:
+ ----- Method: MCSnapshotBrowser>>fileOutMessage (in category 'menus') -----
+ fileOutMessage
+ "Put a description of the selected message on a file"
+
+ | definitions wildcard |
+ wildcard := protocolSelection = '-- all --'.
+ definitions := methodSelection
+ ifNotNil: [{methodSelection}]
+ ifNil: [items select:
+ [:item|
+ item isMethodDefinition
+ and: [item className = classSelection
+ and: [wildcard or: [item protocol = protocolSelection]]]]].
+ definitions isEmpty ifTrue:
+ [^self].
+ FileStream
+ writeSourceCodeFrom: ((MCStWriter on: (WriteStream on: (String new: 100)))
+ writeDefinitions: (definitions);
+ stream)
+ baseName: (methodSelection
+ ifNil: [categorySelection, '-', classSelection, (wildcard ifTrue: [''] ifFalse: ['-', protocolSelection])]
+ ifNotNil: [methodSelection actualClass name, '-', (methodSelection selector copyReplaceAll: ':' with: '')])
+ isSt: true
+ useHtml: false!