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

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

Name: Morphic-mt.1887
Author: mt
Time: 10 February 2022, 2:58:42.857689 pm
UUID: 544258e2-bbbd-4b4d-b7bd-9b6fc592d382
Ancestors: Morphic-mt.1886

Revise recent layout tweaks in FontImporterTool. Use #helpFieldHeight abstraction and #standardBalloonHelpFont to show a font's copyright because that's kind of a helpful information about the font. (... was regular text field + button font ...)

=============== Diff against Morphic-mt.1886 ===============

Item was changed:
  ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'toolbuilder') -----
  buildPreviewPaneWith: builder
  	"Build the preview panel"
  	
  	^ builder pluggablePanelSpec new
  "		wantsResizeHandles: true;"
  		children: {
  			builder pluggableTextSpec new
  				model: self;
  				getText: #filename;
  				readOnly: true;
  				indicateUnacceptedChanges: false;
  				font: self filenameFont;
  				frame: (LayoutFrame 
  					fractions: (0 at 0 corner: 1 at 0)
  					offsets: (0 at 0 corner: 0@ self filenameHeight));
  				yourself.
  
  			builder pluggableTextSpec new
  				model: self;
  				getText: #previewText;
  				textStyle: #selectedFontTextStyle;
  				askBeforeDiscardingEdits: false;
  				indicateUnacceptedChanges: false;
  				softLineWrap: false;
  				frame: (LayoutFrame 
  					fractions: (0 at 0 corner: 1 at 1)
  					offsets: (0@ self filenameHeight corner: 0@ (self copyrightHeight negated)));
  				yourself.
  				
  			builder pluggableTextSpec new
  				model: self;
  				getText: #copyright;
+ 				font: Preferences standardBalloonHelpFont; 
- 				font: Preferences standardButtonFont; 
  				readOnly: true;
  				indicateUnacceptedChanges: false;
  				frame: (LayoutFrame 
  					fractions: (0 at 1 corner: 1 at 1)
  					offsets: (0 @ (self copyrightHeight negated) corner: 0 @ 0));
  				yourself
  			
  		};
  		yourself!

Item was changed:
  ----- Method: FontImporterTool>>copyrightHeight (in category 'layout') -----
  copyrightHeight
  
+ 	^ ToolBuilder default helpFieldHeightFor: 3!
- 	^ ToolBuilder default inputFieldHeightFor: 2 "lines of normal text"!