Squeak-dev November 2017

squeak-dev@lists.squeakfoundation.org

38 participants
198 discussions

The Trunk: ToolBuilder-Morphic-tpr.198.mcz
by commits＠source.squeak.org 11 Nov '17

11 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.198.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.198 Author: tpr Time: 10 November 2017, 4:29:04.518411 pm UUID: fb6e05e6-8817-4dfc-b152-8fa5bfac720b Ancestors: ToolBuilder-Morphic-mt.197 Morphic access to FileChooser/Saver Dialogs =============== Diff against ToolBuilder-Morphic-mt.197 =============== Item was added: + ----- Method: MorphicToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') ----- + buildPluggableMultiColumnList: aSpec + | widget listClass getIndex setIndex | + aSpec getSelected ifNil:[ + listClass := self multiColumnListClass. + getIndex := aSpec getIndex. + setIndex := aSpec setIndex. + ] ifNotNil:[self error: 'not yet'. + listClass := self listByItemClass. + getIndex := aSpec getSelected. + setIndex := aSpec setSelected. + ]. + widget := listClass on: aSpec model + list: aSpec list + selected: getIndex + changeSelected: setIndex + menu: aSpec menu + keystroke: aSpec keyPress. + self register: widget id: aSpec name. + + " widget + dragItemSelector: aSpec dragItem; + dropItemSelector: aSpec dropItem; + wantsDropSelector: aSpec dropAccept; + dragStartedSelector: aSpec dragStarted." + + self setListPropertiesFor: widget spec: aSpec. + ^widget! Item was added: + ----- Method: MorphicToolBuilder>>multiColumnListClass (in category 'widget classes') ----- + multiColumnListClass + ^ PluggableMultiColumnListMorph! Item was added: + ----- Method: MorphicUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- + filenameSaverRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + "Note that this is a trulyawful message name but I can't think of a better one right now" + ^FileSaverDialog openOnInitialFilename: defaultAnswer + !

1 0

The Trunk: ToolBuilder-MVC-tpr.49.mcz
by commits＠source.squeak.org 11 Nov '17

11 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.49.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-tpr.49 Author: tpr Time: 10 November 2017, 4:27:04.88348 pm UUID: 1b05c2bc-3134-4724-bf6c-2f96952c7d8a Ancestors: ToolBuilder-MVC-nice.48 MVC handling of the FileChooser stuff; revert to boring old FillInTheBlanks until someone updates things =============== Diff against ToolBuilder-MVC-nice.48 =============== Item was added: + ----- Method: MVCUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- + filenameSaverRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + "Note that this is a trulyawful message name but I can't think of a better one right now" + "MVC has to stick with the boring way of doing it" + ^self request: queryString initialAnswer: defaultAnswer + !

1 0

The Trunk: ToolBuilder-Kernel-tpr.114.mcz
by commits＠source.squeak.org 11 Nov '17

11 Nov '17

tim Rowledge uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-tpr.114.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-tpr.114 Author: tpr Time: 10 November 2017, 4:15:30.142191 pm UUID: 19c5cd07-e942-45d4-9529-30de44339db0 Ancestors: ToolBuilder-Kernel-eem.113 Add a multi-column list to the ToolBuider world. =============== Diff against ToolBuilder-Kernel-eem.113 =============== Item was added: + PluggableListSpec subclass: #PluggableMultiColumnListSpec + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Kernel'! Item was added: + ----- Method: PluggableMultiColumnListSpec>>buildWith: (in category 'building') ----- + buildWith: builder + ^builder buildPluggableMultiColumnList: self! Item was added: + ----- Method: ToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') ----- + buildPluggableMultiColumnList: aSpec + ^self subclassResponsibility! Item was added: + ----- Method: ToolBuilder>>pluggableMultiColumnListSpec (in category 'defaults') ----- + pluggableMultiColumnListSpec + ^PluggableMultiColumnListSpec! Item was added: + ----- Method: UIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- + filenameSaverRequest: queryString initialAnswer: defaultAnswer + "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" + "Note that this is a trulyawful message name but I can't think of a better one right now" + ^self subclassResponsibility!

1 0

The Trunk: Morphic-tpr.1357.mcz
by commits＠source.squeak.org 11 Nov '17

11 Nov '17

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1357.mcz ==================== Summary ==================== Name: Morphic-tpr.1357 Author: tpr Time: 10 November 2017, 4:13:15.426389 pm UUID: bb455ee7-dae9-458e-84bd-b99b1513e2a8 Ancestors: Morphic-mt.1356 Make the multi-column lists able to scroll horizontally =============== Diff against Morphic-mt.1356 =============== Item was changed: ----- Method: LazyListMorph>>hUnadjustedScrollRange (in category 'scroll range') ----- hUnadjustedScrollRange "Ok, this is a bit messed up. We need to return the width of the widest item in the list. If we grab every item in the list, it defeats the purpose of LazyListMorph. If we don't, then we don't know the size. This is a compromise -- find the widest of the first 30 items, then double it, This width will be updated as new items are installed, so it will always be correct for the visible items. If you know a better way, please chime in." | itemsToCheck item index | "Check for a cached value" maxWidth ifNotNil:[^maxWidth]. "Compute from scratch" itemsToCheck := 30 min: (listItems size). maxWidth := 0. "Check the first few items to get a representative sample of the rest of the list." index := 1. [index < itemsToCheck] whileTrue: [ item := self getListItem: index. "Be careful not to actually install this item" + maxWidth := maxWidth max: (self widthToDisplayItem: item). - maxWidth := maxWidth max: (self widthToDisplayItem: item asStringOrText contents). index:= index + 1. ]. "Add some initial fudge if we didn't check all the items." (itemsToCheck < listItems size) ifTrue:[maxWidth := maxWidth*2]. ^maxWidth ! Item was changed: ----- Method: LazyListMorph>>item: (in category 'list access') ----- item: index "return the index-th item, using the 'listItems' cache" | newItem itemWidth | (index between: 1 and: listItems size) ifFalse: [ "there should have been an update, but there wasn't!!" ^self getListItem: index]. (listItems at: index) ifNil: [ newItem := self getListItem: index. "Update the width cache." maxWidth ifNotNil:[ + itemWidth := self widthToDisplayItem: newItem. - itemWidth := self widthToDisplayItem: newItem asStringOrText contents. itemWidth > maxWidth ifTrue:[ maxWidth := itemWidth. self adjustWidth. ]]. listItems at: index put: newItem ]. ^listItems at: index! Item was removed: - ----- Method: MulticolumnLazyListMorph>>hUnadjustedScrollRange (in category 'scroll range') ----- - hUnadjustedScrollRange - "multi column list morphs don't use hScrollbars" - - ^0 - - ! Item was removed: - ----- Method: PluggableMultiColumnListMorph>>itemFromPoint: (in category 'accessing') ----- - itemFromPoint: aPoint - "Return the list element (morph) at the given point or nil if outside" - | ptY | - scroller hasSubmorphs ifFalse:[^nil]. - (scroller fullBounds containsPoint: aPoint) ifFalse:[^nil]. - ptY := (scroller firstSubmorph point: aPoint from: self) y. - "note: following assumes that submorphs are vertical, non-overlapping, and ordered" - scroller firstSubmorph top > ptY ifTrue:[^nil]. - scroller lastSubmorph bottom < ptY ifTrue:[^nil]. - "now use binary search" - ^scroller submorphThat: [ :item | item top <= ptY and:[item bottom >= ptY] ] ifNone: []. - !

1 0

MorphicProject subclass: #EtoysProject
by David T. Lewis 10 Nov '17

10 Nov '17

An EtoysProject is a project that is configured for running Etoys. On first entry to a new EtoysProject, the playground and project preferences are initialized to provide an environment similar to that of a traditional standalone Etoys image. Certain preferences that are required for Etoys are initialized on project entry, overriding their global preference values while this EtoysProject is active. On leaving the project, these preferences are restored to their previous values. "ProjectViewMorph openOn: EtoysProject new" Change set attached for a minimal implementation. Anyone with Etoys knowledge care to help? I do not know enough about Etoys to fill in the rest of the initialization that will be required, but it should not be hard to do. Dave

7 69

Please consider Apache Integration of Services
by henry 10 Nov '17

10 Nov '17

Note, my quote below, Storm is implementable by any language, hello Smalltalk! At the risk of throwing a rock in the pool, I must as well acknowledging the unique offerings we have in Smalltalk spaces. The challenge as I see it is the lack of a coordinated effort to adopt common interfaces used in industry. I would hold up the history of the Cryptography team how different folks came together to join efforts in creating a shared library. Which they did. It holds up over the test of time and is ported through multiple Smalltalk environments. Using that as a reference, were the various cloud and BigData applications be seen as worthy to build good integration with, the access to all the great data-manipulation tools and presentations that Smalltalk environments offer will finally be accessible to put on the table in corporate and advanced data processing environments. Alright, you may accept what I have been saying then for those of us still in contemplation will be curious about what work that entails. Allow me to present a few of the projects working together through Apache Foundation. They are truly leaders in creating the computing of BigData. The core architecture that is commonly used in BigData and Cloud is called the Lambda Architecture, consisting of a fault-tolerant event streaming source, such as Apache Kafka [1], a batch-processing pipe and NoSQL database coordinator, such as Apache Cassandra [2], and a real-time processing pipe, for example Apache Storm [3]. There is also analytics on the other side of storage, such as through Cassandra to Hadoop and queries. What I would like to highlight is Apache Storm. Apache Storm is quite simple in idea though more complex on hardware. One thing to keep in mind is that the fault-tolerance requirement has forced Kafka and Storm to both be replication centric in a de-centralized way. They tend to use Apache Zookeeper [4] to monitor progress through durable queues of data. Storm in particular is a way to consume streams of events, including the ability to join and filter them. Here are two blurbs, one about Storm Architecture and the other about how other languages can implement Storm architecture pieces, especially Bolts. My question is why can't and why shouldn't Smalltalks (Pharo, Squeak, Gemstone, Smalltalk Express, Swift, ST/X, Dolphin) be able to participate? Working software engineers are building this stuff and lots of time and money are being spent converting critical data in industry. It seems now is the time to jump aboard as much computing will be done in these areas and we can compete! Here are blurbs about Storm then links to Kafka [1], Cassandra [2] and Storm [3]. ------ "There are just three abstractions in Storm: spouts, bolts, and topologies. A spout is a source of streams in a computation. Typically a spout reads from a queueing broker such as Kestrel, RabbitMQ, or Kafka, but a spout can also generate its own stream or read from somewhere like the Twitter streaming API. Spout implementations already exist for most queueing systems. A bolt processes any number of input streams and produces any number of new output streams. Most of the logic of a computation goes into bolts, such as functions, filters, streaming joins, streaming aggregations, talking to databases, and so on. A topology is a network of spouts and bolts, with each edge in the network representing a bolt subscribing to the output stream of some other spout or bolt. A topology is an arbitrarily complex multi-stage stream computation. Topologies run indefinitely when deployed." ------ "Storm was designed from the ground up to be usable with any programming language. At the core of Storm is a [Thrift](http://thrift.apache.org/) [definition](https://github.com/apache/storm/blob/master/storm-core/src/stor… for defining and submitting topologies. Since Thrift can be used in any language, topologies can be defined and submitted from any language. Similarly, spouts and bolts can be defined in any language. Non-JVM spouts and bolts communicate to Storm over a [JSON-based protocol](http://storm.apache.org/documentation/Multilang-protocol.html) over stdin/stdout. Adapters that implement this protocol exist for [Ruby](https://github.com/apache/storm/blob/master/storm-multilang/ruby/src/…, [Python](https://github.com/apache/storm/blob/master/storm-multilang/python/…, [Javascript](https://github.com/apache/storm/blob/master/storm-multilang/jav…, [Perl](https://github.com/dan-blanchard/io-storm)." ------ [1] https://kafka.apache.org/ [2] http://cassandra.apache.org/ [3] http://storm.apache.org/ [4] https://zookeeper.apache.org/ - HH

1 0

The Trunk: Morphic-mt.1356.mcz
by commits＠source.squeak.org 10 Nov '17

10 Nov '17

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1356.mcz ==================== Summary ==================== Name: Morphic-mt.1356 Author: mt Time: 10 November 2017, 3:25:39.530435 pm UUID: fdffa374-b148-2544-9404-1df1ab59c5e8 Ancestors: Morphic-tpr.1355 Adds support for pretty-print in Workspaces. =============== Diff against Morphic-tpr.1355 =============== Item was changed: ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') ----- prettyPrint: decorated + "Reformat the contents of the receiver's view (a Browser or Workspace)." + - "Reformat the contents of the receiver's view (a Browser)." | selectedClass newText | selectedClass := model selectedClassOrMetaClass. + newText := selectedClass + ifNil: [ + Compiler new + formatNoPattern: self text + environment: model environment ] + ifNotNil: [:cls | + selectedClass newCompiler + format: self text + in: cls + notifying: self + decorated: decorated ]. - selectedClass ifNil: [ ^ morph flash ]. - newText := selectedClass newCompiler - format: self text - in: selectedClass - notifying: self - decorated: decorated. newText ifNotNil: [ self deselect ; selectInvisiblyFrom: 1 to: paragraph text size. + self replaceSelectionWith: (selectedClass ifNil: [newText] ifNotNil: [newText asText makeSelectorBoldIn: selectedClass]). - self replaceSelectionWith: (newText asText makeSelectorBoldIn: selectedClass). self selectAt: self text size + 1 ]!

4 3

The Trunk: MorphicExtras-pre.213.mcz
by commits＠source.squeak.org 10 Nov '17

10 Nov '17

Patrick Rein uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-pre.213.mcz ==================== Summary ==================== Name: MorphicExtras-pre.213 Author: pre Time: 10 November 2017, 4:38:54.614812 pm UUID: 981d5423-d82a-334d-ab1b-fee6122876ee Ancestors: MorphicExtras-dtl.212 Reworks the FancyMailComposition to make it independent of the base MailComposition in order to make it possible to refactor the MailComposition class. =============== Diff against MorphicExtras-dtl.212 =============== Item was changed: + Model subclass: #FancyMailComposition + instanceVariableNames: 'messageText textEditor morphicWindow mvcWindow theLinkToInclude to subject textFields' - MailComposition subclass: #FancyMailComposition - instanceVariableNames: 'theLinkToInclude to subject textFields' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-EToy-Download'! Item was added: + ----- Method: FancyMailComposition>>addAttachment (in category '-- all --') ----- + addAttachment + | file fileResult fileName | + textEditor + ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. + + (fileResult := StandardFileMenu oldFile) + ifNotNil: + [fileName := fileResult directory fullNameFor: fileResult name. + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: + [file binary. + self messageText: + ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: fileResult name; text). + file close]] ! Item was added: + ----- Method: FancyMailComposition>>breakLines:atWidth: (in category '-- all --') ----- + breakLines: aString atWidth: width + "break lines in the given string into shorter lines" + | result atAttachment | + + result := WriteStream on: (String new: (aString size * 50 // 49)). + + atAttachment := false. + aString asString linesDo: [ :line | | start end | + (line beginsWith: '====') ifTrue: [ atAttachment := true ]. + atAttachment ifTrue: [ + "at or after an attachment line; no more wrapping for the rest of the message" + result nextPutAll: line. result cr ] + ifFalse: [ + (line beginsWith: '>') ifTrue: [ + "it's quoted text; don't wrap it" + result nextPutAll: line. result cr. ] + ifFalse: [ + "regular old line. Wrap it to multiple lines" + start := 1. + "output one shorter line each time through this loop" + [ start + width <= line size ] whileTrue: [ + + "find the end of the line" + end := start + width - 1. + [end >= start and: [ (line at: (end+1)) isSeparator not ]] whileTrue: [ + end := end - 1 ]. + end < start ifTrue: [ + "a word spans the entire width!!" + end := start + width - 1 ]. + + "copy the line to the output" + result nextPutAll: (line copyFrom: start to: end). + result cr. + + "get ready for next iteration" + start := end+1. + (line at: start) isSeparator ifTrue: [ start := start + 1 ]. + ]. + + "write out the final part of the line" + result nextPutAll: (line copyFrom: start to: line size). + result cr. + ]. + ]. + ]. + + ^result contents! Item was added: + ----- Method: FancyMailComposition>>breakLinesInMessage: (in category '-- all --') ----- + breakLinesInMessage: message + "reformat long lines in the specified message into shorter ones" + self flag: #TODO. "Maybe deprecated" + message body mainType = 'text' ifTrue: [ + "it's a single-part text message. reformat the text" + | newBodyText | + newBodyText := self breakLines: message bodyText atWidth: 72. + message body: (MIMEDocument contentType: message body contentType content: newBodyText). + + ^self ]. + + message body isMultipart ifTrue: [ + "multipart message; process the top-level parts. HACK: the parts are modified in place" + message parts do: [ :part | + part body mainType = 'text' ifTrue: [ + | newBodyText | + newBodyText := self breakLines: part bodyText atWidth: 72. + part body: (MIMEDocument contentType: part body contentType content: newBodyText) ] ]. + message regenerateBodyFromParts. ].! Item was added: + ----- Method: FancyMailComposition>>menuGet:shifted: (in category '-- all --') ----- + menuGet: aMenu shifted: shifted + + aMenu addList: { + {'find...(f)' translated. #find}. + {'find selection again (g)' translated. #findAgain}. + #-. + {'accept (s)' translated. #accept}. + {'send message' translated. #submit}}. + + ^aMenu.! Item was added: + ----- Method: FancyMailComposition>>messageText (in category '-- all --') ----- + messageText + "return the current text" + ^messageText. + ! Item was added: + ----- Method: FancyMailComposition>>messageText: (in category '-- all --') ----- + messageText: aText + "change the current text" + messageText := aText. + self changed: #messageText. + ^true! Item was added: + ----- Method: FancyMailComposition>>morphicOpen (in category '-- all --') ----- + morphicOpen + "open an interface for sending a mail message with the given initial + text " + | textMorph buttonsList sendButton attachmentButton | + morphicWindow := SystemWindow labelled: 'Mister Postman'. + morphicWindow model: self. + textEditor := textMorph := PluggableTextMorph + on: self + text: #messageText + accept: #messageText: + readSelection: nil + menu: #menuGet:shifted:. + morphicWindow addMorph: textMorph frame: (0 @ 0.1 corner: 1 @ 1). + buttonsList := AlignmentMorph newRow. + sendButton := PluggableButtonMorph + on: self + getState: nil + action: #submit. + sendButton + hResizing: #spaceFill; + vResizing: #spaceFill; + label: 'send message'; + setBalloonText: 'Accept any unaccepted edits and add this to the queue of messages to be sent'; + onColor: Color white offColor: Color white. + buttonsList addMorphBack: sendButton. + + attachmentButton := PluggableButtonMorph + on: self + getState: nil + action: #addAttachment. + attachmentButton + hResizing: #spaceFill; + vResizing: #spaceFill; + label: 'add attachment'; + setBalloonText: 'Send a file with the message'; + onColor: Color white offColor: Color white. + buttonsList addMorphBack: attachmentButton. + + morphicWindow addMorph: buttonsList frame: (0 @ 0 extent: 1 @ 0.1). + morphicWindow openInWorld! Item was added: + ----- Method: FancyMailComposition>>mvcOpen (in category '-- all --') ----- + mvcOpen + | textView sendButton | + + mvcWindow := StandardSystemView new + label: 'Mister Postman'; + minimumSize: 400@250; + model: self. + + textView := PluggableTextView + on: self + text: #messageText + accept: #messageText:. + textEditor := textView controller. + + sendButton := PluggableButtonView + on: self + getState: nil + action: #submit. + sendButton label: 'Send'. + sendButton borderWidth: 1. + + sendButton window: (1@1 extent: 398@38). + mvcWindow addSubView: sendButton. + + textView window: (0@40 corner: 400@250). + mvcWindow addSubView: textView below: sendButton. + + mvcWindow controller open. + + + ! Item was added: + ----- Method: FancyMailComposition>>open (in category '-- all --') ----- + open + "open an interface" + + ^ Project current + dispatchTo: self + addPrefixAndSend: #Open + withArguments: {} + ! Item was added: + ----- Method: FancyMailComposition>>perform:orSendTo: (in category '-- all --') ----- + perform: selector orSendTo: otherTarget + + (self respondsTo: selector) + ifTrue: [^self perform: selector] + ifFalse: [^otherTarget perform: selector] + + ! Item was added: + ----- Method: FancyMailComposition>>sendMailMessage: (in category '-- all --') ----- + sendMailMessage: aMailMessage + self messageText: aMailMessage text! Item was added: + ----- Method: FancyMailComposition>>smtpServer (in category '-- all --') ----- + smtpServer + ^MailSender smtpServer! Item was changed: + ----- Method: FancyMailComposition>>subject (in category 'access') ----- - ----- Method: FancyMailComposition>>subject (in category 'accessing') ----- subject + ^ subject - ^subject ! Item was changed: + ----- Method: FancyMailComposition>>subject: (in category 'access') ----- - ----- Method: FancyMailComposition>>subject: (in category 'accessing') ----- subject: x subject := x. self changed: #subject. ^true! Item was changed: + ----- Method: FancyMailComposition>>to (in category 'access') ----- - ----- Method: FancyMailComposition>>to (in category 'accessing') ----- to ^to! Item was changed: + ----- Method: FancyMailComposition>>to: (in category 'access') ----- - ----- Method: FancyMailComposition>>to: (in category 'accessing') ----- to: x to := x. self changed: #to. ^true !

1 0

The Trunk: Network-pre.206.mcz
by commits＠source.squeak.org 10 Nov '17

10 Nov '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.206.mcz ==================== Summary ==================== Name: Network-pre.206 Author: pre Time: 10 November 2017, 4:37:27.243812 pm UUID: b250fbfd-7a6e-b540-bc80-101c7a85a8af Ancestors: Network-topa.205 Adds convenience methods to access and remove attachments in mail messages and the bcc and cc fields. =============== Diff against Network-topa.205 =============== Item was added: + ----- Method: MIMEDocument>>attachmentFileName (in category 'accessing') ----- + attachmentFileName + + ^ (self fieldNamed: 'content-disposition' ifAbsent: [^ '']) + parameterAt: 'filename' ifAbsent: [''] ! Item was added: + ----- Method: MailMessage>>attachments (in category 'multipart') ----- + attachments + + ^ self body parts select: [:p | + (p fieldNamed: 'content-disposition' ifAbsent: [nil]) + ifNil: [false] + ifNotNilDo: [:headerValue | headerValue mainValue = 'attachment' ]]! Item was added: + ----- Method: MailMessage>>bcc (in category 'accessing') ----- + bcc + + ^ self fieldsNamed: 'bcc' separatedBy: ', '! Item was added: + ----- Method: MailMessage>>bcc: (in category 'accessing') ----- + bcc: commaSeperatedListOfEmailAddresses + + ^ self setField: 'bcc' toString: commaSeperatedListOfEmailAddresses! Item was changed: + ----- Method: MailMessage>>cc (in category 'accessing') ----- - ----- Method: MailMessage>>cc (in category 'access') ----- cc + ^ self fieldsNamed: 'cc' separatedBy: ', '! - ^self fieldsNamed: 'cc' separatedBy: ', '! Item was added: + ----- Method: MailMessage>>cc: (in category 'accessing') ----- + cc: commaSeperatedListOfEmailAddresses + + ^ self setField: 'cc' toString: commaSeperatedListOfEmailAddresses! Item was added: + ----- Method: MailMessage>>removeAttachment: (in category 'multipart') ----- + removeAttachment: aMIMEDocument + + ^ self body parts remove: aMIMEDocument ifAbsent: []!

1 0

The Trunk: NetworkTests-pre.53.mcz
by commits＠source.squeak.org 10 Nov '17

10 Nov '17

Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.53.mcz ==================== Summary ==================== Name: NetworkTests-pre.53 Author: pre Time: 10 November 2017, 4:35:25.501812 pm UUID: dcadda34-fe34-4f4e-8f8b-905ebe4a35dc Ancestors: NetworkTests-topa.52 Adds a test for convenience methods to access attachments in mail messages =============== Diff against NetworkTests-topa.52 =============== Item was added: + ----- Method: MailMessageTest>>testAttachmentsReturnsTheAttachments (in category 'testing') ----- + testAttachmentsReturnsTheAttachments + + | fileName message | + message := MailMessage empty + addAttachmentFrom: 'abcxxx' readStream withName: 'aTestingAttachment'; + body: ((MIMEDocument contentType: 'application/foo' content: 'This is the main text' squeakToUtf8) + charset: 'utf-8'; yourself). + + self assert: message attachments size equals: 1. + + fileName := (message attachments first fieldNamed: 'content-disposition' ifAbsent: [self fail]) + parameterAt: 'filename' ifAbsent: ['']. + + self assert: fileName equals: 'aTestingAttachment'. + !

1 0

← Newer
1
...
13
14
15
16
17
18
19
20
Older →

Jump to page: