Patrick Rein uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-pre.279.mcz==================== Summary ====================
Name: MorphicExtras-pre.279
Author: pre
Time: 26 October 2020, 6:35:34.734595 pm
UUID: 1deb32ba-e1e4-1a43-ae43-cc06c2dd2245
Ancestors: MorphicExtras-mt.278
Deprecates two private methods that stated that they are deprecated in their comments. Adds one such comment to yet another method.
=============== Diff against MorphicExtras-mt.278 ===============
Item was removed:
- ----- Method: FancyMailComposition>>breakLinesInMessage: (in category 'private') -----
- 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 removed:
- ----- Method: PostscriptCanvas>>text:at:font:color:justified:parwidth: (in category 'private') -----
- text: s at:point font: fontOrNil color: c justified:justify parwidth:parwidth
-
- self flag: #bob. "deprecated in favor of #textStyled......."
-
-
-
-
-
-
-
- self setFont:(fontOrNil ifNil:[self defaultFont]).
- self comment:' text color: ',c printString.
- self setColor:c.
- self comment:' origin ', origin printString.
- self moveto: point.
- target print:' (';
- print:s asPostscript; print:') '.
- justify ifTrue:[
- target write:parwidth; print:' jshow'; cr.
- ] ifFalse:[
- target print:'show'.
- ].
- target cr.
- !
Item was changed:
----- Method: PostscriptCanvas>>text:at:font:color:spacePad: (in category 'private') -----
text: s at: point font: fontOrNil color: c spacePad: pad
+ "Potentially deprecated, no senders in 5.3, seems to have been replaced by textStyled:..."
| fillC oldC |
fillC := self shadowColor
ifNil: [c].
self
setFont: (fontOrNil
ifNil: [self defaultFont]).
self comment: ' text color: ' , c printString.
oldC := currentColor.
self setColor: fillC.
self comment: ' origin ' , origin printString.
self moveto: point.
target write: pad;
print: ' 0 32 (';
print: s asPostscript;
print: ') widthshow';
cr.
self setColor: oldC.!
Locked
