The Trunk: Tools-ct.1354.mcz
| Newsgroups | gmane.comp.lang.smalltalk.squeak.general |
|---|---|
| Message-ID | <[email protected]> |
Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1354.mcz ==================== Summary ==================== Name: Tools-ct.1354 Author: ct Time: 30 May 2026, 7:09:57.212435 pm UUID: cd2e5773-fc5e-4bca-a83e-18eb7d0bb8e9 Ancestors: Tools-ct.1353 Adds missing file extension when filing out a method from a versions browser. Thanks to Robert (rhi) for the fix! =============== Diff against Tools-ct.1353 =============== Item was changed: ----- Method: VersionsBrowser>>fileOutSelection (in category 'menu') ----- fileOutSelection + + | them it fileName | - | them it | them := OrderedCollection new. + listSelections with: changeList do: [:selected :item | + selected ifTrue: [them add: item]]. - listSelections with: changeList do: - [:selected :item | selected ifTrue: [them add: item]]. them size ~= 1 ifTrue: [self inform: 'single version not selected, so nothing done' translated] + ifFalse: [ + it := them first. + fileName := it methodClassName, + (it isMetaClassChange ifTrue: [' class'] ifFalse: ['']), + '-' , + (it methodSelector copyReplaceAll: ':' with: ''), + FileDirectory dot, 'st'. + FileStream newFileNamed: fileName do: [ :strm | + strm header; timeStamp. + it fileOutOn: strm.]].! - ifFalse: - [it := them first. - FileStream newFileNamed: it methodClassName, (it isMetaClassChange ifTrue: [' class'] ifFalse: ['']), '-' , (it methodSelector copyReplaceAll: ':' with: '') do: - [:strm| - strm header; timeStamp. - it fileOutOn: strm]]! Squeak-dev mailing list -- [email protected] To unsubscribe send an email to [email protected]