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!
packages@lists.squeakfoundation.org