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