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!