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

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

Name: Morphic-mt.1898
Author: mt
Time: 14 February 2022, 5:35:56.734304 pm
UUID: cd4ab310-428e-474c-ada8-642fcd8234a3
Ancestors: Morphic-mt.1897

Complements Tools-mt.1134

=============== Diff against Morphic-mt.1897 ===============

Item was changed:
  ----- Method: FontImporterTool>>browseImported (in category 'actions') -----
  browseImported
  
  	| filenames fonts ttcFonts |
  	fonts := self currentSelection.
  	filenames := fonts allFilenames.
  	
  	ttcFonts := (filenames gather: [:ea | TTFontReader parseFileNamed: ea])
  		collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself].
  	
+ 	ttcFonts do: [:ea | ea browseAllGlyphs; browseAllGlyphsByCategory].!
- 	ttcFonts do: [:ea | ea browseAllGlyphs].!

Item was changed:
  ----- Method: FontImporterTool>>browseLinked (in category 'actions') -----
  browseLinked
  
  	| filenames fonts ttcFonts |
  	fonts := self currentSelection.
  	filenames := fonts allFilenames.
  	
  	ttcFonts := filenames gather: [:ea | 
  		(TTFileDescription readFontsFrom: ea)
  			collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]].
  	
+ 	ttcFonts do: [:ea | ea browseAllGlyphs; browseAllGlyphsByCategory].!
- 	ttcFonts do: [:ea | ea browseAllGlyphs].!

Item was changed:
  ----- Method: FontImporterTool>>currentSelection: (in category 'accessing') -----
  currentSelection: anObject
  
  	anObject = currentSelection ifTrue: [^ self].
  	currentSelection := anObject.
  	self changed: #currentSelection.
+ "	self changed: #previewText.
+ 	self changed: #selectedFontTextStyle."
- 	self changed: #previewText.
- 	self changed: #selectedFontTextStyle.
  	self changed: #filename.
  	self changed: #copyright.!

Item was added:
+ ----- Method: FontImporterTool>>exploreImported (in category 'actions') -----
+ exploreImported
+ 
+ 	| filenames fonts ttcFonts |
+ 	fonts := self currentSelection.
+ 	filenames := fonts allFilenames.
+ 	
+ 	ttcFonts := (filenames gather: [:ea | TTFontReader parseFileNamed: ea])
+ 		collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself].
+ 	
+ 	ttcFonts do: [:ea | ea explore].!

Item was added:
+ ----- Method: FontImporterTool>>exploreLinked (in category 'actions') -----
+ exploreLinked
+ 
+ 	| filenames fonts ttcFonts |
+ 	fonts := self currentSelection.
+ 	filenames := fonts allFilenames.
+ 	
+ 	ttcFonts := filenames gather: [:ea | 
+ 		(TTFileDescription readFontsFrom: ea)
+ 			collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]].
+ 	
+ 	ttcFonts do: [:ea | ea explore].!

Item was changed:
  ----- Method: FontImporterTool>>fontListMenu: (in category 'font list') -----
  fontListMenu: aMenu
  
  	^ aMenu addTranslatedList: #(
  		('Browse Font (imported)'	browseImported 'Import and browse all available glyphs')
  		('Browse Font (linked)'	browseLinked 'Browse all available glyphs')
  		-
+ 		('Explore Font (imported)'	exploreImported 'Import and explore the font object')
+ 		('Explore Font (linked)'	exploreLinked 'Explore the font object')		
+ 		-
  		('Install Font (imported)'	import	'Include the font data in the image and provide a TextStyle for the font')
  		('Install Font (linked)'		link  'Install the font as a link to its file and provide a TextStyle for the referenced font')
  		), (self selectedFont textStyleOrNil ifNil: [#()] ifNotNil: [#(
  			-
  			('Delete Font'	delete	'Remove imported font data or link to font from the system')
  			)])
  	yourself!