[squeak-dev] The Trunk: MorphicExtras-nice.218.mczDavid T. Lewis lewis at mail.msen.comFri Dec 1 00:49:26 UTC 2017
I see MorphicExtras-nice.218 in trunk, and my image is updated to include it, so I do not think there is a problem. Maybe you are seeing a local package-cache issue, or the image cache. For me, doing "MCFileBasedRepository flushAllCaches" sometimes helps. Dave On Fri, Dec 01, 2017 at 01:34:09AM +0100, Nicolas Cellier wrote: > There's somthing fishy here... > This mcz does not appear when I browse repository > http://source.squeak.org/trunk and I cannot upload a configuration with > this version... > That's why I republished (copied) but it does not seem to change anything??? > > 2017-12-01 1:30 GMT+01:00 <commits at source.squeak.org>: > > > Nicolas Cellier uploaded a new version of MorphicExtras to project The > > Trunk: > > http://source.squeak.org/trunk/MorphicExtras-nice.218.mcz > > > > ==================== Summary ==================== > > > > Name: MorphicExtras-nice.218 > > Author: nice > > Time: 26 November 2017, 11:17:28.596315 pm > > UUID: c781b24f-85b2-4fca-941a-dd8c2852a640 > > Ancestors: MorphicExtras-dtl.217 > > > > Change fancy categorization of FancyMailComposition methods. > > > > My arbitrary categorization might be less than perfect, but at least this > > makes testNoSpecialCategories pass. > > > > =============== Diff against MorphicExtras-dtl.217 =============== > > > > Item was changed: > > + ----- Method: FancyMailComposition>>addAttachment (in category > > 'actions') ----- > > - ----- 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 changed: > > + ----- Method: FancyMailComposition>>breakLines:atWidth: (in category > > 'private') ----- > > - ----- 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 changed: > > + ----- Method: FancyMailComposition>>breakLinesInMessage: (in category > > 'private') ----- > > - ----- 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 changed: > > + ----- Method: FancyMailComposition>>menuGet:shifted: (in category > > 'interface') ----- > > - ----- 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 changed: > > + ----- Method: FancyMailComposition>>messageText (in category > > 'accessing') ----- > > - ----- Method: FancyMailComposition>>messageText (in category '-- all > > --') ----- > > messageText > > "return the current text" > > ^messageText. > > ! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>messageText: (in category > > 'accessing') ----- > > - ----- Method: FancyMailComposition>>messageText: (in category '-- all > > --') ----- > > messageText: aText > > "change the current text" > > messageText := aText. > > self changed: #messageText. > > ^true! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>morphicOpen (in category 'user > > interface') ----- > > - ----- 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 changed: > > + ----- Method: FancyMailComposition>>mvcOpen (in category 'user > > interface') ----- > > - ----- Method: FancyMailComposition>>mvcOpen (in category '-- all --') > > ----- > > mvcOpen > > | textView sendButton | > > > > mvcWindow := StandardSystemView new > > label: 'Mister Postman'; > > minimumSize: 400 at 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 at 1 extent: 398 at 38). > > mvcWindow addSubView: sendButton. > > > > textView window: (0 at 40 corner: 400 at 250). > > mvcWindow addSubView: textView below: sendButton. > > > > mvcWindow controller open. > > > > > > ! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>open (in category 'user interface') > > ----- > > - ----- Method: FancyMailComposition>>open (in category '-- all --') ----- > > open > > "open an interface" > > > > ^ Project current > > dispatchTo: self > > addPrefixAndSend: #Open > > withArguments: {} > > ! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>perform:orSendTo: (in category > > 'private') ----- > > - ----- Method: FancyMailComposition>>perform:orSendTo: (in category '-- > > all --') ----- > > perform: selector orSendTo: otherTarget > > > > (self respondsTo: selector) > > ifTrue: [^self perform: selector] > > ifFalse: [^otherTarget perform: selector] > > > > ! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>sendMailMessage: (in category > > 'MailSender interface') ----- > > - ----- Method: FancyMailComposition>>sendMailMessage: (in category '-- > > all --') ----- > > sendMailMessage: aMailMessage > > self messageText: aMailMessage text! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>smtpServer (in category 'MailSender > > interface') ----- > > - ----- Method: FancyMailComposition>>smtpServer (in category '-- all > > --') ----- > > smtpServer > > ^MailSender smtpServer! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>subject (in category 'accessing') > > ----- > > - ----- Method: FancyMailComposition>>subject (in category 'access') ----- > > subject > > > > ^ subject > > > > ! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>subject: (in category 'accessing') > > ----- > > - ----- Method: FancyMailComposition>>subject: (in category 'access') ----- > > subject: x > > > > subject := x. > > self changed: #subject. > > ^true! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>to (in category 'accessing') ----- > > - ----- Method: FancyMailComposition>>to (in category 'access') ----- > > to > > > > ^to! > > > > Item was changed: > > + ----- Method: FancyMailComposition>>to: (in category 'accessing') ----- > > - ----- Method: FancyMailComposition>>to: (in category 'access') ----- > > to: x > > > > to := x. > > self changed: #to. > > ^true > > ! > > > > > > >
More information about the Squeak-dev mailing list |