Christoph Thiede uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ct.273.mcz
==================== Summary ====================
Name: Network-ct.273 Author: ct Time: 20 May 2023, 9:40:56.35156 pm UUID: 3dd4f9f6-a5d8-7741-a80b-0e502def6970 Ancestors: Network-ct.272
Adds file services for viewing and exploring mail messages from EML files.
=============== Diff against Network-ct.272 ===============
Item was added: + ----- Method: MailMessage class>>exploreFromFileNamed: (in category 'file services') ----- + exploreFromFileNamed: fileName + + ^ (self fromFileNamed: fileName) explore!
Item was added: + ----- Method: MailMessage class>>fileReaderServicesForFile:suffix: (in category 'file services') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^ suffix = 'eml' + ifTrue: [self services] + ifFalse: [#()]!
Item was added: + ----- Method: MailMessage class>>fromFileNamed: (in category 'instance creation') ----- + fromFileNamed: fileName + + | contents | + contents := FileStream readOnlyFileNamed: fileName do: [:stream | + stream contents]. + ^ self from: contents!
Item was added: + ----- Method: MailMessage class>>initialize (in category 'class initialization') ----- + initialize + + FileServices registerFileReader: self.!
Item was added: + ----- Method: MailMessage class>>readFromFileNamed: (in category 'file services') ----- + readFromFileNamed: fileName + + ^ (self fromFileNamed: fileName) formattedText edit!
Item was added: + ----- Method: MailMessage class>>serviceExploreMessage (in category 'file services') ----- + serviceExploreMessage + + ^ SimpleServiceEntry + provider: self + label: 'explore mail message' translated + selector: #exploreFromFileNamed: + description: 'open a mail message in an explorer' translated + buttonLabel: 'explore mail message' translated!
Item was added: + ----- Method: MailMessage class>>serviceViewMessage (in category 'file services') ----- + serviceViewMessage + + ^ SimpleServiceEntry + provider: self + label: 'view mail message' translated + selector: #viewFromFileNamed: + description: 'view contents of the mail message' translated + buttonLabel: 'view mail message' translated!
Item was added: + ----- Method: MailMessage class>>services (in category 'file services') ----- + services + + ^ {self serviceViewMessage. self serviceExploreMessage}!
Item was added: + ----- Method: MailMessage class>>unload (in category 'class initialization') ----- + unload + + FileServices unregisterFileReader: self.!
Item was added: + ----- Method: MailMessage class>>viewFromFileNamed: (in category 'file services') ----- + viewFromFileNamed: fileName + + ^ (self fromFileNamed: fileName) view!