[Pkg] The Trunk: Morphic-mt.1898.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 14 16:36:01 UTC 2022
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!
More information about the Packages
mailing list