Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1920.mcz

==================== Summary ====================

Name: Morphic-mt.1920
Author: mt
Time: 3 March 2022, 8:44:36.942874 am
UUID: 9f726572-570d-2849-a91c-1bae818fb7af
Ancestors: Morphic-mt.1919

In the font-importer tool, ensure readable error messages for the preview text.

=============== Diff against Morphic-mt.1919 ===============

Item was removed:
- ----- Method: FontImporterTool>>emphasis (in category 'accessing') -----
- emphasis
- 
- 	^ emphasis!

Item was removed:
- ----- Method: FontImporterTool>>emphasis: (in category 'accessing') -----
- emphasis: anObject
- 
- 	emphasis := anObject!

Item was added:
+ ----- Method: FontImporterTool>>errorText: (in category 'preview text') -----
+ errorText: aString
+ 	"Style the error text in a font that can display the characters."
+ 	
+ 	^ Text
+ 		string: aString
+ 		attribute: (TextFontReference toFont: TextStyle defaultFont)!

Item was changed:
  ----- Method: FontImporterTool>>previewText (in category 'preview text') -----
  previewText
  	"Answer the current preview text. Avoid using a text with font-reference attributes so that any not-yet-installed font does not get spreaded across the system. See #selectedFontTextStyle to learn how the preview is rendered using the selected font."
  
  	self selectedFont ifNil: [^ ''].
  	self customPreviewText ifNotEmpty: [:text | ^ text withCRs].
  	
  	previewTextSelector = #fontSample ifTrue: [
  		^ self selectedFont ttcDescription sampleText
+ 			ifEmpty: [self errorText: 'This font does not provide a sample text.' translated]].
- 			ifEmpty: ['This font does not provide a sample text.' translated]].
  
  	(previewTextSelector ~= #textSample and: [self selectedFont isSymbolFont])
+ 		ifTrue: [^ self errorText: 'This symbol font does not support the preview text.\Please use ''Text/Symbol'' or type a custom text.' translated withCRs].
- 		ifTrue: [^ 'This symbol font does not support the preview text.\Please use ''Text/Symbol'' or type a custom text.' translated withCRs asText addAttribute: (TextFontReference toFont: TextStyle defaultFont); yourself].
  
  	self selectedFont isSymbolFont
  		ifTrue: [^ self selectedFont symbolSample asString].
  	(Text respondsTo: previewTextSelector)
  		ifTrue: [^ (Text perform: previewTextSelector) asString].
  	previewTextSelector = #widgetSample
  		ifTrue: [^ self widgetSample].
  		
  	^ ''!