Packages November 2017

packages@lists.squeakfoundation.org

1 participants
117 discussions

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

The Trunk: Network-pre.207.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.207.mcz ==================== Summary ==================== Name: Network-pre.207 Author: pre Time: 10 November 2017, 4:40:14.388812 pm UUID: 85f492c1-3470-bb43-afe5-bea036995824 Ancestors: Network-pre.206 A new MailComposition window allowing a more structured access to the underlying mail message. =============== Diff against Network-pre.206 =============== Item was changed: Model subclass: #MailComposition + instanceVariableNames: 'mailMessage' - instanceVariableNames: 'messageText textEditor morphicWindow mvcWindow' classVariableNames: '' poolDictionaries: '' category: 'Network-MailSending'! + !MailComposition commentStamp: 'pre 5/16/2017 20:00' prior: 0! + a message being composed in a fancy way. The mail is send via the registered MailSender by default. Fields do not have to be saved, they are saved automatically on send. ! - !MailComposition commentStamp: '<historical>' prior: 0! - a message being composed. When finished, it will be submitted via a Celeste.! Item was changed: + ----- Method: MailComposition class>>initialize (in category 'class initialization') ----- - ----- Method: MailComposition class>>initialize (in category 'instance creation') ----- initialize + + MailSender register: self ! - super initialize. - MailSender register: self.! Item was added: + ----- Method: MailComposition class>>open (in category 'opening') ----- + open + + ^ ToolBuilder default open: self! Item was added: + ----- Method: MailComposition class>>openOn: (in category 'opening') ----- + openOn: aMessage + + ^ ToolBuilder default open: (self new on: aMessage; yourself)! Item was changed: + ----- Method: MailComposition class>>sendMailMessage: (in category 'MailSender interface') ----- + sendMailMessage: aMessage + + self openOn: aMessage! - ----- Method: MailComposition class>>sendMailMessage: (in category 'instance creation') ----- - sendMailMessage: aMailMessage - | newComposition | - newComposition := self new. - newComposition messageText: aMailMessage text; open! Item was changed: + ----- Method: MailComposition class>>unload (in category 'initialize-release') ----- - ----- Method: MailComposition class>>unload (in category 'instance creation') ----- unload MailSender unregister: self ! Item was added: + ----- Method: MailComposition>>addAttachment (in category 'actions') ----- + addAttachment + | file fileResult fileName | + + self saveFields. + + (fileResult := StandardFileMenu oldFile) + ifNotNil: + [fileName := fileResult directory fullNameFor: fileResult name. + file := FileStream readOnlyFileNamed: fileName. + file ifNotNil: + [file binary. + mailMessage addAttachmentFrom: file withName: fileResult name. + file close. + self changed: #messageText]] ! Item was added: + ----- Method: MailComposition>>addAttachmentButtonLabel (in category 'ui constants') ----- + addAttachmentButtonLabel + + ^ 'add attachment' translated! Item was added: + ----- Method: MailComposition>>bccLabel (in category 'ui constants') ----- + bccLabel + + ^ 'BCC' translated! Item was added: + ----- Method: MailComposition>>buildButtonBarSpecWith: (in category 'toolbuilder') ----- + buildButtonBarSpecWith: aBuilder + + | buttonBarSpec | + buttonBarSpec := aBuilder pluggablePanelSpec new + children: OrderedCollection new; + layout: #horizontal; + frame: (LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self buttonBarHeight); + yourself. + + buttonBarSpec children add: (aBuilder pluggableButtonSpec new + model: self; + action: #sendMail; + label: #sendMailButtonLabel; + yourself). + + buttonBarSpec children add: (aBuilder pluggableButtonSpec new + model: self; + action: #addAttachment; + label: #addAttachmentButtonLabel; + yourself). + + buttonBarSpec children add: (aBuilder pluggableButtonSpec new + model: self; + action: #removeAttachment; + label: #removeAttachmentButtonLabel; + yourself). + + ^ buttonBarSpec! Item was added: + ----- Method: MailComposition>>buildWith: (in category 'toolbuilder') ----- + buildWith: aBuilder + + | windowSpec detailsPanelSpec textSpec | + + windowSpec := aBuilder pluggableWindowSpec new + model: self; + label: self dialogTitle; + children: OrderedCollection new. + + windowSpec children add: (self buildButtonBarSpecWith: aBuilder). + + detailsPanelSpec := aBuilder pluggablePanelSpec new + children: OrderedCollection new; + layout: #vertical; + yourself. + windowSpec children add: detailsPanelSpec. + + self createDetailsFieldsIn: detailsPanelSpec by: aBuilder. + + detailsPanelSpec children: detailsPanelSpec children reversed. + detailsPanelSpec frame: (LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: self buttonBarHeight; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self buttonBarHeight + (detailsPanelSpec children size * self lineHeight)). + + textSpec := aBuilder pluggableTextSpec new + model: self; + indicateUnacceptedChanges: true; + getText: #messageText; + setText: #messageText:; + frame: (LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: self buttonBarHeight + (detailsPanelSpec children size * self lineHeight); + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0); + yourself. + windowSpec children add: textSpec. + + ^ aBuilder build: windowSpec! Item was added: + ----- Method: MailComposition>>buttonBarHeight (in category 'ui constants') ----- + buttonBarHeight + + ^ 25 "pixel"! Item was added: + ----- Method: MailComposition>>ccLabel (in category 'ui constants') ----- + ccLabel + + ^ 'CC' translated! Item was added: + ----- Method: MailComposition>>createDetailsFieldsIn:by: (in category 'toolbuilder') ----- + createDetailsFieldsIn: detailsPanelSpec by: aBuilder + + #((senderLabel messageSender messageSender:) + (recipientLabel messageRecipient messageRecipient:) + (ccLabel messageCC messageCC:) + (bccLabel messageBCC messageBCC:) + (subjectLabel messageSubject messageSubject:)) + do: [:config | detailsPanelSpec children add: + (self createFieldInputNamed: config first + getter: config second + setter: config third + with: aBuilder)] + ! Item was added: + ----- Method: MailComposition>>createFieldInputNamed:getter:setter:with: (in category 'toolbuilder') ----- + createFieldInputNamed: fieldLabelGetter getter: fieldGetter setter: fieldSetter with: aBuilder + + ^ aBuilder pluggableInputFieldSpec new + model: self; + indicateUnacceptedChanges: false; + getText: fieldGetter; + setText: fieldSetter; + frame: (LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self lineHeight); + help: fieldLabelGetter; + yourself! Item was added: + ----- Method: MailComposition>>dialogTitle (in category 'toolbuilder') ----- + dialogTitle + + ^ 'mail editor' translated! Item was added: + ----- Method: MailComposition>>doSendMail (in category 'private') ----- + doSendMail + + (SMTPClient openOnHostNamed: self smtpServer port: self smtpServerPort) + user: self smtpUser; + password: self smtpPassword; + login; + mailFrom: mailMessage from to: (mailMessage to findTokens: ',') text: mailMessage asSendableText.! Item was added: + ----- Method: MailComposition>>initialize (in category 'initialize-release') ----- + initialize + + mailMessage := MailMessage empty! Item was added: + ----- Method: MailComposition>>lineHeight (in category 'ui constants') ----- + lineHeight + + ^ 25 "pixel"! Item was added: + ----- Method: MailComposition>>messageBCC (in category 'access to mail object') ----- + messageBCC + + ^ mailMessage bcc! Item was added: + ----- Method: MailComposition>>messageBCC: (in category 'access to mail object') ----- + messageBCC: emailAddresses + + self flag: #TODO. "add validation" + mailMessage bcc: emailAddresses asString. + ^ true! Item was added: + ----- Method: MailComposition>>messageCC (in category 'access to mail object') ----- + messageCC + + ^ mailMessage cc! Item was added: + ----- Method: MailComposition>>messageCC: (in category 'access to mail object') ----- + messageCC: emailAddresses + + self flag: #TODO. "add validation" + mailMessage cc: emailAddresses asString. + ^ true! Item was added: + ----- Method: MailComposition>>messageRecipient (in category 'access to mail object') ----- + messageRecipient + + ^ mailMessage to! Item was added: + ----- Method: MailComposition>>messageRecipient: (in category 'access to mail object') ----- + messageRecipient: emailAddresses + + self flag: #TODO. "add validation" + mailMessage to: emailAddresses asString. + ^ true! Item was added: + ----- Method: MailComposition>>messageSender (in category 'access to mail object') ----- + messageSender + + ^ mailMessage from! Item was added: + ----- Method: MailComposition>>messageSender: (in category 'access to mail object') ----- + messageSender: emailAddress + + self flag: #TODO. "add validation" + mailMessage from: emailAddress asString. + ^ true! Item was added: + ----- Method: MailComposition>>messageSubject (in category 'access to mail object') ----- + messageSubject + + ^ mailMessage subject! Item was added: + ----- Method: MailComposition>>messageSubject: (in category 'access to mail object') ----- + messageSubject: aSubject + + self flag: #TODO. "add validation" + mailMessage subject: aSubject asString. + ^ true! Item was changed: + ----- Method: MailComposition>>messageText (in category 'access to mail object') ----- - ----- Method: MailComposition>>messageText (in category 'access') ----- messageText + + ^ mailMessage bodyTextFormatted! - "return the current text" - ^messageText. - ! Item was changed: + ----- Method: MailComposition>>messageText: (in category 'access to mail object') ----- - ----- Method: MailComposition>>messageText: (in category 'access') ----- messageText: aText + + mailMessage body: ((MIMEDocument + contentType: MIMEDocument contentTypePlainText + content: aText asString) + charset: 'UTF-8'; + yourself). + ^ true! - "change the current text" - messageText := aText. - self changed: #messageText. - ^true! Item was added: + ----- Method: MailComposition>>on: (in category 'initialize-release') ----- + on: aMessage + + mailMessage := aMessage! Item was added: + ----- Method: MailComposition>>recipientLabel (in category 'ui constants') ----- + recipientLabel + + ^ 'Recipients' translated! Item was added: + ----- Method: MailComposition>>removeAttachment (in category 'actions') ----- + removeAttachment + + | attachmentToBeRemoved | + + self saveFields. + attachmentToBeRemoved := UIManager default + chooseFrom: (mailMessage attachments collect: [:m | m attachmentFileName ]) + values: mailMessage attachments + title: 'Choose attachment to be removed' translated. + mailMessage removeAttachment: attachmentToBeRemoved. + self changed: #messageText.! Item was added: + ----- Method: MailComposition>>removeAttachmentButtonLabel (in category 'ui constants') ----- + removeAttachmentButtonLabel + + ^ 'remove attachment' translated! Item was added: + ----- Method: MailComposition>>saveFields (in category 'private') ----- + saveFields + + (self dependents select: [:d | d hasUnacceptedEdits]) do: [:d | d accept].! Item was added: + ----- Method: MailComposition>>sendMail (in category 'actions') ----- + sendMail + + self saveFields. + + [self doSendMail. + Project current addDeferredUIMessage: [self changed: #close]] + forkAt: 30! Item was added: + ----- Method: MailComposition>>sendMailButtonLabel (in category 'ui constants') ----- + sendMailButtonLabel + + ^ 'send mail' translated! Item was added: + ----- Method: MailComposition>>senderLabel (in category 'ui constants') ----- + senderLabel + + ^ 'Sender' translated! Item was added: + ----- Method: MailComposition>>smtpPassword (in category 'MailSender interface') ----- + smtpPassword + + ^ MailSender userPassword! Item was changed: + ----- Method: MailComposition>>smtpServer (in category 'MailSender interface') ----- - ----- Method: MailComposition>>smtpServer (in category 'access') ----- smtpServer + + ^ MailSender smtpServer! - ^MailSender smtpServer! Item was added: + ----- Method: MailComposition>>smtpServerPort (in category 'MailSender interface') ----- + smtpServerPort + + ^ MailSender smtpServerPort! Item was added: + ----- Method: MailComposition>>smtpUser (in category 'MailSender interface') ----- + smtpUser + + ^ MailSender userName! Item was added: + ----- Method: MailComposition>>subjectLabel (in category 'ui constants') ----- + subjectLabel + + ^ 'Subject' translated!

1 0

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

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

10 Nov '17

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.359.mcz ==================== Summary ==================== Name: Compiler-mt.359 Author: mt Time: 10 November 2017, 3:29:46.851435 pm UUID: 322cf1dd-62e8-aa47-8cb2-3dc89c780138 Ancestors: Compiler-mt.358 Fix spacing. Still needs a better implementation, I guess. =============== Diff against Compiler-mt.358 =============== Item was changed: ----- Method: Compiler>>formatNoPattern:environment: (in category 'public access') ----- formatNoPattern: textOrStream environment: env "Pretty-print a code snippet. Removes leading 'DoIt' and the '^' in the last statement. To be used in workspace-like tools." | aNode | self setCue: (CompilationCue source: textOrStream environment: env). aNode := self formatNoPattern: true ifFail: [^ nil]. ^ (aNode decompileString lines allButFirst "DoIt" collect: [:ea | + ea allButFirst "tab" in: [:result | (result beginsWith: '^ ') ifTrue: [result allButFirst: 2] ifFalse: [result]]]) - ea allButFirst "tab" in: [:result | (result beginsWith: '^') ifTrue: [result allButFirst] ifFalse: [result]]]) joinSeparatedBy: String cr!

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 ]!

1 0

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

10 Nov '17

1 0

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

10 Nov '17

1 0

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

10 Nov '17

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.358.mcz ==================== Summary ==================== Name: Compiler-mt.358 Author: mt Time: 10 November 2017, 3:24:38.351435 pm UUID: 0e253457-6396-ae48-aad7-b819986854cb Ancestors: Compiler-eem.357 Adds a way to pretty-print code snippets. =============== Diff against Compiler-eem.357 =============== Item was added: + ----- Method: Compiler>>formatNoPattern:environment: (in category 'public access') ----- + formatNoPattern: textOrStream environment: env + "Pretty-print a code snippet. Removes leading 'DoIt' and the '^' in the last statement. To be used in workspace-like tools." + + | aNode | + self setCue: (CompilationCue + source: textOrStream + environment: env). + + aNode := self formatNoPattern: true ifFail: [^ nil]. + + ^ (aNode decompileString lines allButFirst "DoIt" collect: [:ea | + ea allButFirst "tab" in: [:result | (result beginsWith: '^') ifTrue: [result allButFirst] ifFalse: [result]]]) + joinSeparatedBy: String cr!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2017