Packages March 2022

packages@lists.squeakfoundation.org

1 participants
182 discussions

The Trunk: Morphic-mt.1917.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1917.mcz ==================== Summary ==================== Name: Morphic-mt.1917 Author: mt Time: 1 March 2022, 5:38:45.946136 pm UUID: 7266c339-a1ef-904c-b634-0b4163950574 Ancestors: Morphic-mt.1916 Next major iteration on the FontImporterTool. Needs TrueType-mt.78 =============== Diff against Morphic-mt.1916 =============== Item was changed: + SystemOrganization addCategory: #'Morphic-Balloon'! + SystemOrganization addCategory: #'Morphic-Basic'! SystemOrganization addCategory: #'Morphic-Basic-NewCurve'! + SystemOrganization addCategory: #'Morphic-Borders'! - SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! SystemOrganization addCategory: #'Morphic-Collections-Arrayed'! + SystemOrganization addCategory: #'Morphic-Demo'! + SystemOrganization addCategory: #'Morphic-Events'! - SystemOrganization addCategory: #'Morphic-Widgets'! SystemOrganization addCategory: #'Morphic-Explorer'! + SystemOrganization addCategory: #'Morphic-Kernel'! + SystemOrganization addCategory: #'Morphic-Layouts'! - SystemOrganization addCategory: #'Morphic-Borders'! - SystemOrganization addCategory: #'Morphic-Menus-DockingBar'! SystemOrganization addCategory: #'Morphic-Menus'! + SystemOrganization addCategory: #'Morphic-Menus-DockingBar'! + SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! + SystemOrganization addCategory: #'Morphic-Sound-Synthesis'! SystemOrganization addCategory: #'Morphic-Support'! + SystemOrganization addCategory: #'Morphic-Text Support'! SystemOrganization addCategory: #'Morphic-TrueType'! + SystemOrganization addCategory: #'Morphic-Widgets'! - SystemOrganization addCategory: #'Morphic-Basic'! - SystemOrganization addCategory: #'Morphic-Demo'! SystemOrganization addCategory: #'Morphic-Windows'! - SystemOrganization addCategory: #'Morphic-Balloon'! - SystemOrganization addCategory: #'Morphic-Kernel'! - SystemOrganization addCategory: #'Morphic-Sound-Synthesis'! SystemOrganization addCategory: #'Morphic-Worlds'! - SystemOrganization addCategory: #'Morphic-Layouts'! - SystemOrganization addCategory: #'Morphic-Text Support'! - SystemOrganization addCategory: #'Morphic-Events'! Item was removed: - Object subclass: #FontImporterFontDescription - instanceVariableNames: 'fontname filename children parent' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Support'! Item was removed: - ----- Method: FontImporterFontDescription>><= (in category 'comparing') ----- - <= other - - ^ self fontname asString <= other fontname asString! Item was removed: - ----- Method: FontImporterFontDescription>>addChild: (in category 'accessing') ----- - addChild: aChild - - ^ self children add: aChild! Item was removed: - ----- Method: FontImporterFontDescription>>allFilenames (in category 'accessing') ----- - allFilenames - - ^ self filename - ifNil: [ - (self children - select: [:child | child filename notNil] - thenCollect: [:child | child filename]) - asSet asArray] - ifNotNil: [:f | {f}] ! Item was removed: - ----- Method: FontImporterFontDescription>>children (in category 'accessing') ----- - children - - ^ children ifNil: [children := OrderedCollection new].! Item was removed: - ----- Method: FontImporterFontDescription>>children: (in category 'accessing') ----- - children: anObject - - children := anObject! Item was removed: - ----- Method: FontImporterFontDescription>>filename (in category 'accessing') ----- - filename - - ^ filename! Item was removed: - ----- Method: FontImporterFontDescription>>filename: (in category 'accessing') ----- - filename: anObject - - filename := anObject! Item was removed: - ----- Method: FontImporterFontDescription>>fontname (in category 'accessing') ----- - fontname - - ^ fontname! Item was removed: - ----- Method: FontImporterFontDescription>>fontname: (in category 'accessing') ----- - fontname: anObject - - fontname := anObject! Item was removed: - ----- Method: FontImporterFontDescription>>hasChildren (in category 'testing') ----- - hasChildren - - ^ self children notNil and: [self children notEmpty]! Item was removed: - ----- Method: FontImporterFontDescription>>normalize (in category 'actions') ----- - normalize - - self children size = 1 ifTrue: [ | pseudoChild | - pseudoChild := self children removeFirst. - (self filename notNil and: [pseudoChild filename ~= self filename]) - ifTrue: [self error: 'Inconsistent state']. - self filename: pseudoChild filename]! Item was removed: - ----- Method: FontImporterFontDescription>>parent (in category 'accessing') ----- - parent - - ^ parent! Item was removed: - ----- Method: FontImporterFontDescription>>parent: (in category 'accessing') ----- - parent: anObject - - parent := anObject! Item was removed: - ----- Method: FontImporterFontDescription>>printOn: (in category 'printing') ----- - printOn: aStream - - self parent ifNotNil: [:p | aStream nextPutAll: p fontname; nextPut: $ ]. - aStream nextPutAll: self fontname. - self children notEmpty ifTrue: [aStream nextPut: $ ]. - self children - do: [:subfont | aStream nextPutAll: subfont fontname] - separatedBy: [aStream nextPut: $/]. - aStream nextPut: $ ; nextPut: $(. - self allFilenames - do: [:filename | aStream nextPutAll: filename] - separatedBy: [aStream nextPut: $,; nextPut: $ ]. - aStream nextPut: $). - ! Item was changed: Model subclass: #FontImporterTool + instanceVariableNames: 'title allFonts currentSelection currentParent selectedFont previewTextSelector customPreviewText pointSize lineSpacing editModeWidgets' + classVariableNames: 'CustomPreviewTexts' - instanceVariableNames: 'title allFonts emphasis currentSelection currentParent warningSeen' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Support'! !FontImporterTool commentStamp: 'topa 3/9/2015 18:56' prior: 0! A tool to import platform (native) fonts into the image! Item was added: + ----- Method: FontImporterTool>>aboutToStyle: (in category 'preview text - code styling') ----- + aboutToStyle: aStyler + + previewTextSelector = #codeSample ifFalse: [^ false]. + self customPreviewText ifNotEmpty: [^ false]. + + aStyler parseAMethod: true. "See Text class >> #codeSample." + ^ true! Item was added: + ----- Method: FontImporterTool>>acceptCustomPreviewText: (in category 'preview text - custom') ----- + acceptCustomPreviewText: aStringOrTextOrNil + "The user accepted (i.e. CMD+S or Return) the current input text, Now we store it in the list of custom texts so that it is retrievable via the preview button." + + customPreviewText := aStringOrTextOrNil ifNotNil: [:value | value asString]. + self changed: #customPreviewText. + + self customPreviewText ifNotEmpty: [:customText | + CustomPreviewTexts ifNil: [CustomPreviewTexts := OrderedCollection new]. + (CustomPreviewTexts includes: customText) + ifFalse:[CustomPreviewTexts add: customText] ]. + + ^ true! Item was added: + ----- Method: FontImporterTool>>adjustXHeight (in category 'edit mode - actions') ----- + adjustXHeight + + self selectedFont adjustXHeight; adjustLineGapToGlyphScale. + + self currentSelection + ttExtraScale: self selectedFont extraGlyphScale; + ttExtraGap: self selectedFont extraLineGap. + + self changed: #objectChanged with: self currentSelection. + self changed: #selectedFontTextStyle. + + self changed: #pointSizeInput. + self changed: #lineSpacingInput. + self changed: #ttExtraScaleInput. + self changed: #ttExtraGapInput.! Item was changed: + ----- Method: FontImporterTool>>allFonts (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>allFonts (in category 'accessing') ----- allFonts - ^ allFonts ifNil: [ | fonts | - fonts := Dictionary new. - Cursor wait showWhile: [ - TTFileDescription fontPathsDo:[:path | - TTFileDescription fontFilesIn: path do:[:font| | fontDesc filename fname | - filename := path, FileDirectory slash, font fileName. - fname := self textForFamily: font familyName subfamily: nil. - fontDesc := fonts - at: font familyName - ifAbsentPut: (FontImporterFontDescription new fontname: fname; yourself). - font subfamilyName - ifNil: [fontDesc filename: filename] - ifNotNil: [ |subfontDesc sname | - sname := self textForFamily: font familyName subfamily: font subfamilyName. - subfontDesc := FontImporterFontDescription new fontname: sname; yourself. - subfontDesc - parent: fontDesc; - filename: filename. - fontDesc addChild: subfontDesc]]]]. - allFonts := fonts values sorted. - allFonts do: [:fontDesc | fontDesc normalize]. - allFonts]. + ^ allFonts ifNil: [Cursor wait showWhile: [allFonts := TTFontFileHandle allHandles values sorted]]! - ! Item was changed: + ----- Method: FontImporterTool>>allFonts: (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>allFonts: (in category 'accessing') ----- allFonts: anObject allFonts := anObject. self changed: #allFonts.! Item was added: + ----- Method: FontImporterTool>>applyFont (in category 'actions') ----- + applyFont + + | fontSymbols fontLabels choice | + fontSymbols := self fontSymbolsToUse. + fontLabels := fontSymbols collect: [:ea | (ea findFeatures joinSeparatedBy: ' ') capitalized]. + choice := Project uiManager chooseFrom: fontLabels values: fontSymbols title: 'Apply font as...' translated. + choice ifNil: [^ self]. + self applyFontTo: choice.! Item was added: + ----- Method: FontImporterTool>>applyFontTo: (in category 'actions') ----- + applyFontTo: fontSymbol + + self currentSelection isInstalled ifFalse: [self installFont]. + + Cursor wait showWhile: [ + UserInterfaceTheme setFont: fontSymbol to: self selectedFont].! Item was added: + ----- Method: FontImporterTool>>browseFont (in category 'actions') ----- + browseFont + + self selectedFont browseAllGlyphsByCategory.! Item was removed: - ----- 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].! Item was removed: - ----- 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].! Item was added: + ----- Method: FontImporterTool>>browseSystemFonts (in category 'actions') ----- + browseSystemFonts + "Open a workspace that shows the current preview text with the usual system fonts so that users can compare the font they want to import." + + | sample tmp fonts sorted contents preview | + previewTextSelector = #widgetSample + ifTrue: [ sample := [:font | self widgetSampleFor: font] ] + ifFalse: [ + tmp := self previewText. + sample := [:font | tmp]]. + (TextStyler for: #Smalltalk) ifNotNil: [:stylerClass | + | styler | + styler := stylerClass new. + (self aboutToStyle: styler) + ifTrue: [sample := [:font | styler styledTextFor: tmp asText]]]. + + fonts := IdentityDictionary new. + self fontSymbolsToUse do: [:ea | + | font | + font := UserInterfaceTheme current get: ea. + (fonts at: font ifAbsentPut: [OrderedCollection new]) add: ea]. + + sorted := fonts keys sorted: [:a :b | + a familyName < b familyName or: [a familyName = b familyName and: [ + a pointSize < b pointSize or: [a pointSize = b pointSize and: [ + a emphasis < b emphasis]]]]]. + + contents := Text streamContents: [:s | + + sorted do: [:font | + preview := '{1} ({2} {3}pt)\ #{4}\\' withCRs asText format: { + font familyName asText addAttribute: (PluggableTextAttribute evalBlock: [font explore]); yourself. + font subfamilyName. + font pointSize. + (fonts at: font) joinSeparatedBy: '\ #' withCRs. }. + + preview := preview, (sample value: font). + preview := preview, String cr. "for the consistent line height at the end" + + s cr; nextPutAll: (preview asText addAttribute: (TextFontReference toFont: font); yourself); cr ]]. + + contents editWithLabel: 'Current system fonts'.! Item was changed: + ----- Method: FontImporterTool>>buildButtonBarWith: (in category 'ui - building') ----- - ----- Method: FontImporterTool>>buildButtonBarWith: (in category 'toolbuilder') ----- buildButtonBarWith: builder "Build the button bar" | panelSpec | panelSpec := builder pluggablePanelSpec new. panelSpec layout: #horizontal; children: OrderedCollection new. { + #installButtonLabel. + #installButtonHelp. + #installButtonHit. + #installButtonColor. + #installButtonEnabled. + + 'Apply...' translated. + 'Apply the current font in the system. Assure that the font is installed.' translated. + #applyFont. + nil. + nil. + + "nil. nil. nil. nil." + 'Browse' translated. + 'Browse the glyphs. Do not install the font into the image.' translated. + #browseFont. - 'Read the font data and browse the glyphs. Do not install the font into the image.' translated. - #browseImported. - 'Install' translated. - 'Include the font data in the image and provide a TextStyle for the font' translated. - #import. - 'Close' translated. nil. + nil. + + 'Explore' translated. + 'Explore the font object.' translated. + #exploreFont. + nil. + nil. + } groupsDo: [:label :help :action :buttonColor :enabled | + | spec | + action + ifNil: [ + spec := builder pluggableSpacerSpec new] + ifNotNil: [ + spec := builder pluggableButtonSpec new + model: self; + label: label; + color: buttonColor; + help: help; + action: action; + enabled: enabled; + yourself]. + panelSpec children addLast: spec ]. - #close. - } groupsDo: [:label :help :action | - | buttonSpec | - buttonSpec := builder pluggableButtonSpec new - model: self; - label: label; - help: help; - action: action; - yourself. - panelSpec children addLast: buttonSpec]. ^panelSpec! Item was changed: + ----- Method: FontImporterTool>>buildFontListWith: (in category 'ui - building') ----- - ----- Method: FontImporterTool>>buildFontListWith: (in category 'toolbuilder') ----- buildFontListWith: builder "Build the font choosers list of font names" ^ builder pluggableTreeSpec new model: self; roots: #allFonts; label: #labelOf: ; getChildren: #childrenOf: ; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #fontListMenu:; autoDeselect: false; yourself ! Item was added: + ----- Method: FontImporterTool>>buildFontPanelWith: (in category 'ui - building') ----- + buildFontPanelWith: builder + "Build the main panel for the currently selected font (family). Includes a list of associated file names, an interactive preview panel and the copyright." + + ^ builder pluggablePanelSpec new + children: { + builder pluggableTextSpec new + model: self; + getText: #filename; + readOnly: true; + indicateUnacceptedChanges: false; + font: self filenameFont; + help: '<- Please select a font family'; + frame: (LayoutFrame + fractions: (0@0 corner: 1@0) + offsets: (0@0 corner: 0@ self filenameHeight)); + yourself. + + (self buildPreviewPaneWith: builder) + frame: (LayoutFrame + fractions: (0@0 corner: 1@1) + offsets: (0@ self filenameHeight corner: 0@ (self copyrightHeight negated))); + yourself. + + builder pluggableTextSpec new + model: self; + getText: #copyright; + font: self copyrightFont; + readOnly: true; + indicateUnacceptedChanges: false; + frame: (LayoutFrame + fractions: (0@1 corner: 1@1) + offsets: (0 @ (self copyrightHeight negated) corner: 0 @ 0)); + yourself + + }; + yourself! Item was changed: + ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'ui - building') ----- - ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'toolbuilder') ----- buildPreviewPaneWith: builder + "Build the preview panel. Offer the user the change preview text through the default font, point size, extra (glyph) scale and extra (line) gap." - "Build the preview panel" ^ builder pluggablePanelSpec new " wantsResizeHandles: true;" children: { + builder pluggablePanelSpec new + children: { + builder pluggableButtonSpec new + model: self; + help: #previewTextButtonHelp; + label: #previewTextButtonLabel; + action: #offerPreviewTextMenu; + frame: (LayoutFrame fractions: (0@0 corner: 0.15@1)); + yourself. + + builder pluggableInputFieldSpec new + model: self; + help: 'Type custom preview text here...' translated; + getText: #customPreviewText; + setText: #acceptCustomPreviewText:; + editText: #editCustomPreviewText:; + plainTextOnly: true; + frame: (LayoutFrame fractions: (0.15@0 corner: 0.85@1)); + yourself. + + builder pluggableButtonSpec new + model: self; + help: 'Click to see current preview text using the system''s current fonts for comparison' translated; + label: 'Compare' translated; + action: #browseSystemFonts; + frame: (LayoutFrame fractions: (0.85@0 corner: 1@1)); + yourself }; + frame: (LayoutFrame - builder pluggableTextSpec new - model: self; - getText: #filename; - readOnly: true; - indicateUnacceptedChanges: false; - font: self filenameFont; - frame: (LayoutFrame fractions: (0@0 corner: 1@0) + offsets: (0@0 corner: 0@ self customPreviewTextHeight)); - offsets: (0@0 corner: 0@ self filenameHeight)); yourself. + - builder pluggableTextSpec new model: self; getText: #previewText; textStyle: #selectedFontTextStyle; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; softLineWrap: false; + padding: self previewTextPadding; + stylerClass: (TextStyler for: #Smalltalk); + menu: #previewTextMenu:shifted:; + frame: (LayoutFrame - frame: (LayoutFrame fractions: (0@0 corner: 1@1) + offsets: (0 @ self customPreviewTextHeight corner: 0@ self configurationPanelHeight negated)); - offsets: (0@ self filenameHeight corner: 0@ (self copyrightHeight negated))); yourself. + builder pluggablePanelSpec new name: #configPanel; children: (Array streamContents: [:s | | n | + n := 0. + self fontConfigurationSpecs groupsDo: [:kind :get :help :label :group | | w | + kind caseOf: { + [#spacer] -> [ + w := builder pluggableSpacerSpec new fillSpaceHorizontally]. + [#button] -> [ + w := builder pluggableButtonSpec new + model: self; label: label; action: get; help: help; yourself]. + [#text] -> [ + w := builder pluggableInputFieldSpec new + model: self; getText: get; setText: get asSimpleSetter; + help: help; plainTextOnly: true; yourself]. + } otherwise: [ "Ignore" ]. + w ifNotNil: [ "Remember the group. See #toggleEditMode" + w name: (group, (n := n + 1)) asSymbol. + s nextPut: w] ]]); + layout: #horizontal; + frame: self configurationPanelFrame; + yourself. - builder pluggableTextSpec new - model: self; - getText: #copyright; - font: Preferences standardBalloonHelpFont; - readOnly: true; - indicateUnacceptedChanges: false; - frame: (LayoutFrame - fractions: (0@1 corner: 1@1) - offsets: (0 @ (self copyrightHeight negated) corner: 0 @ 0)); - yourself - }; yourself! Item was changed: + ----- Method: FontImporterTool>>buildWith: (in category 'ui - building') ----- - ----- Method: FontImporterTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" "ToolBuilder open: self" + | windowSpec window | - | windowSpec | windowSpec := self buildWindowWith: builder specs: { (self fontListFrame) -> [self buildFontListWith: builder]. + (self fontPanelFrame) -> [self buildFontPanelWith: builder]. - (self previewFrame) -> [self buildPreviewPaneWith: builder]. (self buttonsFrame) -> [self buildButtonBarWith: builder]. }. + window := builder build: windowSpec. + self prepareEditMode: (builder widgetAt: #configPanel). + ^ window! - ^ builder build: windowSpec! Item was changed: + ----- Method: FontImporterTool>>buttonHeight (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>buttonHeight (in category 'layout') ----- buttonHeight ^ ToolBuilder default buttonRowHeight! Item was changed: + ----- Method: FontImporterTool>>buttonsFrame (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>buttonsFrame (in category 'layout') ----- buttonsFrame ^ LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@ self buttonHeight negated corner: 0@0) ! Item was changed: + ----- Method: FontImporterTool>>childrenOf: (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>childrenOf: (in category 'accessing') ----- childrenOf: aFontDescription ^ aFontDescription children! Item was removed: - ----- Method: FontImporterTool>>close (in category 'actions') ----- - close - self changed: #close.! Item was added: + ----- Method: FontImporterTool>>configurationPanelFrame (in category 'ui - layout') ----- + configurationPanelFrame + + ^ LayoutFrame + fractions: (0@1 corner: 1@1) + offsets: (0 @ self configurationPanelHeight negated corner: 0@0)! Item was added: + ----- Method: FontImporterTool>>configurationPanelHeight (in category 'ui - layout') ----- + configurationPanelHeight + + ^ ToolBuilder default inputFieldHeight! Item was changed: + ----- Method: FontImporterTool>>copyright (in category 'accessing') ----- - ----- Method: FontImporterTool>>copyright (in category 'model access') ----- copyright | f | f := self selectedFont ifNil:[^ '']. ^ f isTTCFont ifTrue: [f ttcDescription copyright ifNil: ['']] ifFalse: ['']! Item was added: + ----- Method: FontImporterTool>>copyrightFont (in category 'ui - layout') ----- + copyrightFont + + ^ Preferences standardBalloonHelpFont! Item was changed: + ----- Method: FontImporterTool>>copyrightHeight (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>copyrightHeight (in category 'layout') ----- copyrightHeight ^ ToolBuilder default helpFieldHeightFor: 3! Item was changed: + ----- Method: FontImporterTool>>currentParent (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>currentParent (in category 'accessing') ----- currentParent ^ currentParent! Item was changed: + ----- Method: FontImporterTool>>currentParent: (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>currentParent: (in category 'accessing') ----- currentParent: anObject anObject = currentParent ifTrue: [^ self]. currentParent := anObject. self changed: #currentParent. ! Item was changed: + ----- Method: FontImporterTool>>currentSelection (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>currentSelection (in category 'accessing') ----- currentSelection ^ currentSelection! Item was changed: + ----- Method: FontImporterTool>>currentSelection: (in category 'font list/tree') ----- + currentSelection: fontHandleOrNil - ----- Method: FontImporterTool>>currentSelection: (in category 'accessing') ----- - currentSelection: anObject + fontHandleOrNil = currentSelection ifTrue: [^ self]. + currentSelection := fontHandleOrNil. - anObject = currentSelection ifTrue: [^ self]. - currentSelection := anObject. self changed: #currentSelection. + + fontHandleOrNil + ifNotNil: [self editModeEnabled: self currentSelection isModified]. + + self selectedFont: nil. "Refresh preview"! - " self changed: #previewText. - self changed: #selectedFontTextStyle." - self changed: #filename. - self changed: #copyright.! Item was added: + ----- Method: FontImporterTool>>customPreviewText (in category 'preview text - custom') ----- + customPreviewText + + ^ customPreviewText ifNil: ['']! Item was added: + ----- Method: FontImporterTool>>customPreviewTextFont (in category 'ui - layout') ----- + customPreviewTextFont + + ^ TextStyle defaultFont! Item was added: + ----- Method: FontImporterTool>>customPreviewTextHeight (in category 'ui - layout') ----- + customPreviewTextHeight + + ^ ToolBuilder default inputFieldHeight! Item was added: + ----- Method: FontImporterTool>>defaultButtonColor (in category 'ui - colors') ----- + defaultButtonColor + + ^ (UserInterfaceTheme current get: #color for: #PluggableButtonMorph) ifNil: [Color gray: 0.91]! Item was removed: - ----- Method: FontImporterTool>>delete (in category 'actions') ----- - delete - - | font | - (font := self selectedFont) textStyleOrNil ifNotNil: [:style | - TextConstants removeKey: font familyName]. - TTCFont registerAll. - TTFontDescription removeDescriptionNamed: font familyName. - self allFonts: nil. "force redraw"! Item was added: + ----- Method: FontImporterTool>>discardCustomPreviewTexts (in category 'preview text - custom') ----- + discardCustomPreviewTexts + + CustomPreviewTexts := nil. + self setCustomPreviewText: nil.! Item was added: + ----- Method: FontImporterTool>>editButtonHelp (in category 'edit mode - ui') ----- + editButtonHelp + + ^ 'Modify font properties such as extra glyph scale and extra line gap, which will be shared through all point sizes and text styles. Be careful.' translated asTextFromHtml! Item was added: + ----- Method: FontImporterTool>>editCustomPreviewText: (in category 'preview text - custom') ----- + editCustomPreviewText: aStringOrTextOrNil + "The user typed something. Use it directly as a new preview text. Note that CMD+S (or Return) means that the user wants to save the text for later." + + customPreviewText := aStringOrTextOrNil ifNotNil: [:value | value asString]. + self changed: #previewText. + self changed: #previewTextButtonLabel.! Item was added: + ----- Method: FontImporterTool>>editModeEnabled (in category 'edit mode') ----- + editModeEnabled + + ^ Project current isMorphic + ifFalse: [false] + ifTrue: [(editModeWidgets at: #on) first visible]! Item was added: + ----- Method: FontImporterTool>>editModeEnabled: (in category 'edit mode') ----- + editModeEnabled: showEditWidgets + + Project current isMorphic ifFalse: [^ self]. + + showEditWidgets + ifFalse: [ + (editModeWidgets at: #on) do: [:ea | ea hide; disableLayout: true]. + (editModeWidgets at: #off) do: [:ea | ea show; disableLayout: false]] + ifTrue: [ + (editModeWidgets at: #on) do: [:ea | ea show; disableLayout: false]. + (editModeWidgets at: #off) do: [:ea | ea hide; disableLayout: true]].! Item was added: + ----- Method: FontImporterTool>>exploreFont (in category 'actions') ----- + exploreFont + + self selectedFont explore.! Item was removed: - ----- 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 removed: - ----- 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>>filename (in category 'accessing') ----- - ----- Method: FontImporterTool>>filename (in category 'model access') ----- filename ^ self currentSelection ifNil: [''] ifNotNil: [:sel | String streamContents: [:stream | + (sel allFilenames ifEmpty: [{'(unknown file location; image only)' translated}]) - sel allFilenames do: [:filename | stream nextPutAll: filename] separatedBy: [stream cr ]]]! Item was changed: + ----- Method: FontImporterTool>>filenameFont (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>filenameFont (in category 'toolbuilder') ----- filenameFont + + ^ Preferences standardBalloonHelpFont! - ^ Preferences standardDefaultTextFont! Item was changed: + ----- Method: FontImporterTool>>filenameHeight (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>filenameHeight (in category 'layout') ----- filenameHeight + ^ ToolBuilder default helpFieldHeightFor: 2 "lines"! - ^ ToolBuilder default inputFieldHeightFor: 3 "lines"! Item was removed: - ----- Method: FontImporterTool>>font:hasGlyphOf: (in category 'helper') ----- - font: f hasGlyphOf: aCharacter - - | font | - font := f isFontSet ifTrue: [f fontArray first] ifFalse: [f]. - ^ font hasGlyphOf: aCharacter! Item was added: + ----- Method: FontImporterTool>>fontConfigurationSpecs (in category 'ui - building') ----- + fontConfigurationSpecs + + ^ #( + text pointSizeInput pointSizeInputHelp nil preview + text lineSpacingInput lineSpacingInputHelp nil preview + spacer nil nil nil preview + button adjustXHeight 'Adjust the font''s x-height to match the system''s default font.' 'Adjust x' edit + text ttExtraScaleInput ttExtraScaleInputHelp nil edit + text ttExtraGapInput ttExtraGapInputHelp nil edit + button resetFontMetrics 'Reset all fields to their default value. Disable the edit mode.' 'Reset' edit + button toggleEditMode editButtonHelp 'Edit' toggle + )! Item was removed: - ----- Method: FontImporterTool>>fontFromFamily: (in category 'helper') ----- - fontFromFamily: aFamily - - | readFonts | - aFamily ifNil: [^ TextStyle defaultFont]. - readFonts := TTFileDescription readFontsFrom: aFamily allFilenames anyOne. - ^ (readFonts size > 1 - ifTrue: [ - | ftArray | - " see TTCFontSet>>newTextStyleFromTT: " - ftArray := readFonts collect: [:ttc | |f| - ttc ifNil: [nil] ifNotNil: [ - f := TTCFont new. - f ttcDescription: ttc. - f pointSize: TextStyle defaultFont pointSize. - f]]. - TTCFontSet newFontArray: ftArray] - ifFalse: [ |f| - f := TTCFont new. - f ttcDescription: readFonts anyOne. - f pointSize: TextStyle defaultFont pointSize. - f])! Item was changed: + ----- Method: FontImporterTool>>fontListFrame (in category 'ui - layout') ----- - ----- Method: FontImporterTool>>fontListFrame (in category 'layout') ----- fontListFrame ^ LayoutFrame + fractions: (0@0 corner: 0.25@1) - fractions: (0@0 corner: 0.4@1) offsets: (0@0 corner: 0@ self buttonHeight negated)! Item was changed: + ----- Method: FontImporterTool>>fontListMenu: (in category 'font list/tree') ----- - ----- Method: FontImporterTool>>fontListMenu: (in category 'font list') ----- fontListMenu: aMenu ^ aMenu addTranslatedList: #( + ('Browse' browseFont 'Browse all glyphs in the font') + ('Explore' exploreFont 'Explore the font object') - ('Browse Font (imported)' browseImported 'Import and browse all available glyphs') - ('Browse Font (linked)' browseLinked 'Browse all available glyphs') - + ('Install' installFont 'Make the font available in the environment but keep the glyph data outside the image') + ('Install & Load' installAndLoadFont 'Make the font available in the environment including all the glyph data to ensure portability of the image') - ('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: [#( - + ('Uninstall' uninstallFont 'Remove the font from the system') - ('Delete Font' delete 'Remove imported font data or link to font from the system') )]) yourself! Item was added: + ----- Method: FontImporterTool>>fontPanelFrame (in category 'ui - layout') ----- + fontPanelFrame + + ^ LayoutFrame + fractions: (0.25@0 corner: 1@1) + offsets: (0@0 corner: 0@ self buttonHeight negated)! Item was added: + ----- Method: FontImporterTool>>fontSymbolsToUse (in category 'accessing') ----- + fontSymbolsToUse + + ^ UserInterfaceTheme knownFontSymbols reject: [:ea | ea beginsWith: #wizard]! Item was removed: - ----- Method: FontImporterTool>>import (in category 'actions') ----- - import - | megaSize filenames fonts | - fonts := self currentSelection. - filenames := fonts allFilenames. - megaSize := ((filenames inject: 0 into: [ :sum :fn | - sum + (FileStream readOnlyFileNamed: fn do: [:file | file size])]) / (1024 * 1024)) asFloat. - (UIManager default confirm: ( - 'About to import {1}{2}.\\This is at least {3} MB of space required in the image.\ - Please respect the copyright and embedding restrictions of the font.\ - Proceed?' - translated withCRs format: { - self currentParent - ifNotNil: [:p| p fontname, ' ', self currentSelection fontname] - ifNil: [self currentSelection fontname]. - filenames size > 1 ifTrue: [' ({1} font files)' translated format: {filenames size}] ifFalse: ['']. - megaSize printShowingDecimalPlaces: 2})) - ifTrue: [ - filenames do: [:filename | | readFonts | - readFonts := TTFontDescription addFromTTFile: filename. - readFonts isCollection - ifFalse: [TTCFont newTextStyleFromTT: readFonts] - ifTrue: [self importFontFamily: readFonts]]]. - self allFonts: nil. "force redraw" - TTCFont registerAll.! Item was removed: - ----- Method: FontImporterTool>>importFontFamily: (in category 'helper') ----- - importFontFamily: readFonts - - |r rest array | - r := readFonts detect: [:f | - [f isRegular] on: Error do: [false] "hack for unknown emphases" - ] ifNone: [^ TTCFont newTextStyleFromTT: readFonts first]. - rest := readFonts copyWithout: r. - array :=TTCFont pointSizes collect: [:pt | | f | - f := TTCFont new ttcDescription: r; pointSize: pt; yourself. - rest do: [:rf | - (self isStyleNameSupported: rf subfamilyName) - ifTrue: [f derivativeFont: (TTCFont new ttcDescription: rf; pointSize: pt; yourself)] - ifFalse: [ - Transcript show: 'Cannot import unknown style ', rf subfamilyName, ' from Font family ', f name]]. - f]. - ^ TTCFont reorganizeForNewFontArray: array name: array first name asSymbol.! Item was changed: ----- Method: FontImporterTool>>initialExtent (in category 'initialize') ----- initialExtent + ^ 670@500! - ^ 600@400.! Item was changed: ----- Method: FontImporterTool>>initialize (in category 'initialize') ----- initialize super initialize. + + previewTextSelector := #textSample.! - emphasis := 0. - ! Item was added: + ----- Method: FontImporterTool>>installAndLoadFont (in category 'actions') ----- + installAndLoadFont + + self installFont ifTrue: [ + self selectedFont becomeLocalFont. + self currentSelection parent ifNotNil: [:p | self currentSelection: p]. + self changed: #objectChanged with: self currentSelection]. + + self flag: #todo. "mt: Warn the user about space constraints!!"! Item was added: + ----- Method: FontImporterTool>>installButtonColor (in category 'ui - installation') ----- + installButtonColor + + self currentSelection ifNil: [^ self defaultButtonColor]. + + ^ self currentSelection isFullyInstalled + ifTrue: [self uninstallColor] + ifFalse: [self installColor]! Item was added: + ----- Method: FontImporterTool>>installButtonEnabled (in category 'ui - installation') ----- + installButtonEnabled + + ^ self currentSelection + ifNil: [false] + ifNotNil: [:handle | handle isProtected not]! Item was added: + ----- Method: FontImporterTool>>installButtonHelp (in category 'ui - installation') ----- + installButtonHelp + + self currentSelection ifNil: [^ '']. + + ^ self currentSelection isInstalled + ifTrue: ['Remove all font data from the image. Note that existing texts or text styles may still refer to it for a while longer.' translated] + ifFalse: ['Include the font data in the image and provide a TextStyle for the font' translated].! Item was added: + ----- Method: FontImporterTool>>installButtonHit (in category 'ui - installation') ----- + installButtonHit + + self currentSelection ifNil: [^ self]. + + self currentSelection isFullyInstalled + ifTrue: [self uninstallFont] + ifFalse: [self installFont]. + + self changed: #installButtonLabel. + self changed: #installButtonColor.! Item was added: + ----- Method: FontImporterTool>>installButtonLabel (in category 'ui - installation') ----- + installButtonLabel + + self currentSelection ifNil: [^ 'Install' translated]. + + ^ self currentSelection isFullyInstalled + ifTrue: ['Uninstall' translated] + ifFalse: [ + self currentSelection isInstalled + ifTrue: ['Update' translated] + ifFalse: ['Install' translated] ]! Item was added: + ----- Method: FontImporterTool>>installColor (in category 'ui - colors') ----- + installColor + + ^ (UserInterfaceTheme current get: #okColor for: #ListChooser) ifNil: [Color r: 0.49 g: 0.749 b: 0.49]! Item was added: + ----- Method: FontImporterTool>>installFont (in category 'actions') ----- + installFont + "Install the selected font. Inform tha user that a modification is best reflected with a custom font name so that it is possible to also install the font with its original parameters." + + | handle wasRenamed | + handle := self currentSelection. + wasRenamed := false. + + (handle isModified and: [handle hasModifiedName not]) ifTrue: [ + (Project uiManager + request: 'You modified the selected font.\Please choose a new name:' translated withCRs + initialAnswer: 'My ', handle familyName) + ifEmpty: [^ false] + ifNotEmpty: [:answer | + wasRenamed := true. + handle fontname: answer]]. + + self currentSelection installFont. + self selectedFont: nil. "New identity from the handle" + + wasRenamed ifTrue: [ + "New child in the tree. So refresh everything." + allFonts := nil. self changed: #allFonts. ^ true]. + + self currentSelection parent ifNotNil: [:p | self currentSelection: p]. + self changed: #objectChanged with: self currentSelection. + + ^ true! Item was removed: - ----- Method: FontImporterTool>>isStyleNameSupported: (in category 'helper') ----- - isStyleNameSupported: subfamilyName - - ^ (TextStyle decodeStyleName: subfamilyName) second isEmpty! Item was changed: + ----- Method: FontImporterTool>>labelOf: (in category 'font list/tree') ----- + labelOf: aHandle - ----- Method: FontImporterTool>>labelOf: (in category 'model access') ----- - labelOf: aFontDescription + | label numSubfamilies| + self flag: #performance. "mt: Cache labels?" + + label := aHandle fontname. + + aHandle isLocalFont ifTrue: [label := '[', label, ']']. + (aHandle hasChildren and: [(numSubfamilies := aHandle children size) > 1]) + ifTrue: [label := label, ' (', numSubfamilies, ')']. + aHandle isModified ifTrue: [label := label, ' *']. + label := label asText. + aHandle isFullyInstalled + ifTrue: [label addAttribute: TextEmphasis underlined] + ifFalse: [aHandle isInstalled ifTrue: [ + label := '!! ' asText, label ]]. + aHandle isSubfamilySupported + ifFalse: [label addAttribute: TextColor gray]. + ^ label! - ^ aFontDescription fontname - - ! Item was added: + ----- Method: FontImporterTool>>lineSpacing (in category 'preview text - ui') ----- + lineSpacing + + ^ lineSpacing ifNil: [0.0]! Item was added: + ----- Method: FontImporterTool>>lineSpacingInput (in category 'preview text - ui') ----- + lineSpacingInput + "Redirect through #selectedFontTextStyle to get automatic suggestions e.g., for symbol fonts." + + ^ (lineSpacing ifNil: [self selectedFontTextStyle lineSpacing]) asString! Item was added: + ----- Method: FontImporterTool>>lineSpacingInput: (in category 'preview text - ui') ----- + lineSpacingInput: anObject + + self currentSelection ifNil: [^ false]. + + lineSpacing := [anObject asNumber] on: NumberParserError do: [nil]. + self changed: #lineSpacingInput. + self changed: #selectedFontTextStyle. + + ^ true! Item was added: + ----- Method: FontImporterTool>>lineSpacingInputHelp (in category 'preview text - ui') ----- + lineSpacingInputHelp + + self editModeEnabled ifFalse: [ + ^ 'Line spacing in the preview box' translated]. + + ^ 'Line spacing in the preview box. A factor of 0.0 means no extra spacing while 1.0 means to double the current line height, which is based on the fonts within each line. The value may be negative. Note that line spacing is application-specific and can thus be different for any text style (or text field). You can tweak the font itself through extra line gap to affect all its uses. Make empty to reset to default value.' translated asTextFromHtml! Item was removed: - ----- Method: FontImporterTool>>link (in category 'actions') ----- - link - | filenames fonts | - fonts := self currentSelection. - self warningSeen ifFalse: [ - (Project uiManager confirm: ( - 'Note that linking a font instead of importing may make the - image un-portable, since the linked font must be present on - the system the next time the image is run. - - This warning is only shown once per session.' translated) trueChoice: 'Proceed' translated falseChoice: 'Cancel' translated) - ifFalse: [^ self]. - self warningSeen: true].. - filenames := fonts allFilenames. - filenames do: [:filename | | readFonts | - readFonts := TTFileDescription readFontsFrom: filename. - readFonts isCollection - ifFalse: [TTCFont newTextStyleFromTT: readFonts] - ifTrue: [self importFontFamily: readFonts]]. - self allFonts: nil. "force redraw" - TTCFont registerAll.! Item was added: + ----- Method: FontImporterTool>>offerPreviewTextMenu (in category 'preview text') ----- + offerPreviewTextMenu + + | builder menuSpec | + builder := ToolBuilder default. + menuSpec := builder pluggableMenuSpec new. + + #(textSample codeSample widgetSample nil forssmanSample melvilleSample fontSample) do: [:selector | + selector ifNil: [menuSpec addLine] ifNotNil: [ + | item marker | + marker := (customPreviewText isEmptyOrNil and: [previewTextSelector = selector]) + ifTrue: ['<yes>'] ifFalse: ['<no>']. + item := menuSpec + add: marker, (self previewTextSelectorLabelFor: selector) + target: self + selector: #setPreviewTextSelector: + argumentList: {selector}. + item help: (self previewTextSelectorHelpFor: selector)]]. + menuSpec addLine. + + (CustomPreviewTexts ifNil: [CustomPreviewTexts := OrderedCollection new]) + do: [:text | | marker | + marker := customPreviewText = text ifTrue: ['<yes>'] ifFalse: ['<no>']. + menuSpec + add: marker, (text contractTo: 40) + target: self + selector: #setCustomPreviewText: + argumentList: {text}]. + CustomPreviewTexts ifNotEmpty: [menuSpec addLine]. + + menuSpec + add: 'Discard custom texts' translated + target: self + selector: #discardCustomPreviewTexts + argumentList: #(). + + builder runModal: (builder open: menuSpec).! Item was added: + ----- Method: FontImporterTool>>okToClose (in category 'ui - building') ----- + okToClose + "Check for modifications to not installed fonts. Ask the user if those modifications should be discarded. Not that modifications to installed fonts were already applied." + + | modifiedFonts | + modifiedFonts := self allFonts "top level" select: [:ea | ea isModified and: [ea isInstalled not]]. + ^ (super okToClose and: [modifiedFonts isEmpty]) + ifTrue: [true] + ifFalse: [Project uiManager + confirm: ('You modified the following fonts:\\' translated, + (modifiedFonts inject: '' into: [:list :each | list, ' ', each fontname, '\']), + '\These fonts are not yet installed. Do\you want to discard your changes?' translated) withCRs + title: 'Discard Changes' translated]! Item was added: + ----- Method: FontImporterTool>>pointSize (in category 'preview text - ui') ----- + pointSize + + ^ pointSize ifNil: [TextStyle defaultFont pointSize]! Item was added: + ----- Method: FontImporterTool>>pointSizeInput (in category 'preview text - ui') ----- + pointSizeInput + + ^ self pointSize asString! Item was added: + ----- Method: FontImporterTool>>pointSizeInput: (in category 'preview text - ui') ----- + pointSizeInput: anObject + + self currentSelection ifNil: [^ false]. + + pointSize := [anObject asNumber roundTo: 0.5] on: NumberParserError do: [TextStyle defaultFont pointSize]. + pointSize := pointSize max: 1.0. + self changed: #pointSizeInput. + self selectedFont: nil. + + ^ true! Item was added: + ----- Method: FontImporterTool>>pointSizeInputHelp (in category 'preview text - ui') ----- + pointSizeInputHelp + + self editModeEnabled ifFalse: [ + ^ 'Point size in the preview box' translated]. + + ^ ('Point size in the preview box. The system''s default is currently {1} points. It is recommended to adjust the font''s extra glyph scale and extra line gap using the default point size. Look at other text in the system to assess whether this font would integrate nicely. Make empty to reset to default value.' translated + format: {TextStyle defaultFont pointSize}) asTextFromHtml! Item was added: + ----- Method: FontImporterTool>>prepareEditMode: (in category 'edit mode') ----- + prepareEditMode: container + + Project current isMorphic ifFalse: [^ self]. + + editModeWidgets := Dictionary new + at: #on put: OrderedCollection new; + at: #off put: OrderedCollection new; + yourself. + + container allMorphsDo: [:m | + ((m knownName ifNil: ['']) beginsWith: 'edit') + ifTrue: [(editModeWidgets at: #on) add: m] + ifFalse: [((m knownName ifNil: ['']) beginsWith: 'toggle') + ifTrue: [(editModeWidgets at: #off) add: m]]]. + + self toggleEditMode. "Turn it off"! Item was removed: - ----- Method: FontImporterTool>>previewFrame (in category 'layout') ----- - previewFrame - - ^ LayoutFrame - fractions: (0.4@0 corner: 1@1) - offsets: (0@0 corner: 0@ self buttonHeight negated)! Item was changed: + ----- Method: FontImporterTool>>previewText (in category 'preview text') ----- - ----- Method: FontImporterTool>>previewText (in category 'model access') ----- 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: ['This font does not provide a sample text.' translated]]. + + (previewTextSelector ~= #textSample and: [self selectedFont isSymbolFont]) + 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]. + + ^ ''! - ^ self selectedFont - ifNil: [Text new] - ifNotNil: [:font | font sampleText]! Item was added: + ----- Method: FontImporterTool>>previewTextButtonHelp (in category 'preview text') ----- + previewTextButtonHelp + + ^ self customPreviewText + ifNotEmpty: [^ 'Custom ->' "The arrow points to the input field in the UI."] + ifEmpty: [self previewTextSelectorHelpFor: previewTextSelector]! Item was added: + ----- Method: FontImporterTool>>previewTextButtonLabel (in category 'preview text') ----- + previewTextButtonLabel + + ^ self customPreviewText + ifNotEmpty: ['Custom ->'] + ifEmpty: [self previewTextSelectorLabelFor: previewTextSelector]! Item was added: + ----- Method: FontImporterTool>>previewTextMenu:shifted: (in category 'preview text') ----- + previewTextMenu: aMenu shifted: shifted + <previewTextMenu> + "See commentary in StringHolder >> #mainCodePaneMenu:shifted:." + + ^ StringHolder codePaneMenu: aMenu shifted: shifted! Item was added: + ----- Method: FontImporterTool>>previewTextPadding (in category 'preview text') ----- + previewTextPadding + "Static. Give a little bit more space so that the user can focus on the font, not the window ui. For UI themes that use bitmap fonts (i.e., the default 75%, 100%, 125%, and 150% scale factor) use the current font metrics. Otherwise, just use a font-agnostic measure in points. Maybe we can make text-field margins more dynamic (and per-font) in the future." + + ^ UserInterfaceTheme current isTTCBased + ifTrue: [(TextStyle pointsToPixels: 16 "pt" @20 "pt") truncated] + ifFalse: [(TextStyle defaultFont widthOf: $m) @ TextStyle defaultFont lineGrid]! Item was added: + ----- Method: FontImporterTool>>previewTextSelectorHelpFor: (in category 'preview text') ----- + previewTextSelectorHelpFor: symbol + + ^ symbol caseOf: { + [#textSample] -> ['See the font''s alphabet as a dummy text. For symbol fonts, show a selection of symbols.' translated]. + [#codeSample] -> ['See how the font would render some Smalltalk source code.' translated]. + [#forssmanSample] -> ['See an example of ragged text used in the book "Detailtypografie" by Friedrich Forssman and Ralf de Jong.' translated]. + [#melvilleSample] -> ['See the first two paragraphs of "Moby Dick" by Herman Melville.' translated]. + [#fontSample] -> ['See the example text that was provided by the font designer in the font description itself.' translated asTextFromHtml]. + [#widgetSample] -> ['See how the font would look in a list, tree, or menu widget.' translated]. + } otherwise: [ '' ]! Item was added: + ----- Method: FontImporterTool>>previewTextSelectorLabelFor: (in category 'preview text') ----- + previewTextSelectorLabelFor: symbol + + ^ symbol caseOf: { + [#textSample] -> ['Text/Symbols']. + [#codeSample] -> ['Source code']. + [#widgetSample] -> ['Widgets']. + [#forssmanSample] -> ['Forssman']. + [#melvilleSample] -> ['Melville']. + [#fontSample] -> ['Font sample']. + } otherwise: [ '???' ]! Item was added: + ----- Method: FontImporterTool>>resetFontMetrics (in category 'edit mode - actions') ----- + resetFontMetrics + + self selectedFont familyName = TextStyle defaultTTFont familyName + ifTrue: [^ self inform: 'You should not reset the font that is used as\reference for x-height adjustment. Please\change manually if at all.' translated withCRs]. + + self toggleEditMode. + + pointSize := nil. + lineSpacing := nil. + + self currentSelection ifNotNil: [:fontDescr | + fontDescr ttExtraScale: nil. + fontDescr ttExtraGap: nil]. + + self changed: #objectChanged with: self currentSelection. + self selectedFont: nil. ! Item was changed: + ----- Method: FontImporterTool>>selectedFont (in category 'accessing') ----- - ----- Method: FontImporterTool>>selectedFont (in category 'font list') ----- selectedFont + + ^ selectedFont ifNil: [selectedFont := self currentSelection + ifNil: [TextStyle defaultFont] + ifNotNil: [:o | o fontOfPointSize: self pointSize] ]! - | fontDesc font | - fontDesc := self currentSelection. - font := self fontFromFamily: fontDesc. - font isFontSet ifTrue: [ - font := (self currentParent isNil or: [self currentParent = self currentSelection]) - ifTrue: [font fontArray anyOne] - ifFalse: [ "we have selected a leaf " - font fontArray - detect: [:subfont | subfont subfamilyName = fontDesc fontname] - ifNone: [font]]]. - ^font emphasized: emphasis! Item was added: + ----- Method: FontImporterTool>>selectedFont: (in category 'accessing') ----- + selectedFont: aTTCFont + + selectedFont := aTTCFont. + + self changed: #previewText. + self changed: #selectedFontTextStyle. + + self changed: #filename. + self changed: #copyright. + + self changed: #pointSizeInput. + self changed: #lineSpacingInput. + self changed: #ttExtraScaleInput. + self changed: #ttExtraGapInput. + + self changed: #installButtonColor. + self changed: #installButtonLabel. + self changed: #installButtonEnabled. + + self changed: #windowTitle.! Item was changed: + ----- Method: FontImporterTool>>selectedFontTextStyle (in category 'accessing') ----- - ----- Method: FontImporterTool>>selectedFontTextStyle (in category 'font list') ----- selectedFontTextStyle + "Construct a new text style from the #selectedFont." + + ^ (TextStyle fontArray: {self selectedFont}) + lineSpacing: ((lineSpacing isNil and: [self selectedFont isSymbolFont]) + ifTrue: [ 0.3 ] + ifFalse: [ self lineSpacing ]); + yourself + + ! - - | font | - ^ (font := self selectedFont) isSymbolFont - ifFalse: [TextStyle fontArray: {font}] - ifTrue: [TextStyle default copy]! Item was added: + ----- Method: FontImporterTool>>setCustomPreviewText: (in category 'preview text - custom') ----- + setCustomPreviewText: aString + + self editCustomPreviewText: aString. + self changed: #customPreviewText.! Item was added: + ----- Method: FontImporterTool>>setPreviewTextSelector: (in category 'preview text') ----- + setPreviewTextSelector: symbol + + previewTextSelector := symbol. + self setCustomPreviewText: nil.! Item was removed: - ----- Method: FontImporterTool>>textForFamily:subfamily: (in category 'helper') ----- - textForFamily: familyName subfamily: subfamilyName - - subfamilyName ifNil: [ - ^ (TextStyle named: (familyName copyWithout: Character space)) - ifNil: [familyName] - ifNotNil: [:style | style isTTCStyle - ifTrue: ["we are already present " - Text string: familyName attribute: TextEmphasis underlined] - ifFalse: [familyName]]]. - - " frome here on it is only about subfamilies" - - (self isStyleNameSupported: subfamilyName) - ifFalse: [^ Text string: subfamilyName attribute: TextColor gray]. - - ^ (TextStyle named: familyName) - ifNil: ["importable" subfamilyName] - ifNotNil: [:style | - (style isTTCStyle and: [ | regular emph | - regular := style fonts anyOne. - emph := TTCFont indexOfSubfamilyName: subfamilyName. - " detect if this style is already imported " - regular emphasis = emph or: [(regular emphasis: emph) ~= regular]]) - ifFalse: ["again importable" subfamilyName] - ifTrue: [Text string: subfamilyName attribute: TextEmphasis underlined]]! Item was added: + ----- Method: FontImporterTool>>toggleEditMode (in category 'edit mode') ----- + toggleEditMode + + self editModeEnabled: self editModeEnabled not.! Item was added: + ----- Method: FontImporterTool>>ttExtraGapInput (in category 'edit mode - ui') ----- + ttExtraGapInput + + ^ (self currentSelection + ifNil: [0] + ifNotNil: [:handle | handle ttExtraGap]) asString! Item was added: + ----- Method: FontImporterTool>>ttExtraGapInput: (in category 'edit mode - ui') ----- + ttExtraGapInput: anObject + + self currentSelection ifNil: [^ false]. + + self currentSelection ttExtraGap: ([anObject asNumber truncated] on: NumberParserError do: [nil]). + self changed: #ttExtraGapInput. + self changed: #objectChanged with: self currentSelection. + + self selectedFont: nil. + + ^ true! Item was added: + ----- Method: FontImporterTool>>ttExtraGapInputHelp (in category 'edit mode - ui') ----- + ttExtraGapInputHelp + + | tt | + tt := self selectedFont ifNotNil: [:f | f isTTCFont ifTrue: [ f ttcDescription ] ]. + ^ ('Extra line gap in font measures. This font''s own value is {1} with units-per-em (UPM) being {2}. Adjust to change the font''s line grid (or "height") to compensate for extra glyph scale. The value may be negative. Note that there is also line spacing, which is not per font but per text style and thus application-specific. Make empty to reset to default value.' translated + format: { + tt ifNil: ['?'] ifNotNil: [tt typographicLineGap]. + tt ifNil: ['?'] ifNotNil: [tt unitsPerEm]. + }) asTextFromHtml! Item was added: + ----- Method: FontImporterTool>>ttExtraScaleInput (in category 'edit mode - ui') ----- + ttExtraScaleInput + + ^ (self currentSelection + ifNil: [1.0] + ifNotNil: [:handle | handle ttExtraScale]) printShowingDecimalPlaces: 3! Item was added: + ----- Method: FontImporterTool>>ttExtraScaleInput: (in category 'edit mode - ui') ----- + ttExtraScaleInput: anObject + + self currentSelection ifNil: [^ false]. + + self currentSelection ttExtraScale: ([anObject asNumber] on: NumberParserError do: [nil]). + self changed: #ttExtraScaleInput. + self changed: #objectChanged with: self currentSelection. + + self selectedFont: nil. + + ^ true! Item was added: + ----- Method: FontImporterTool>>ttExtraScaleInputHelp (in category 'edit mode - ui') ----- + ttExtraScaleInputHelp + + (self selectedFont isNil or: [self selectedFont isTTCFont not]) + ifTrue: [ ^ '']. + + ^ ('Extra glyph scale to accommodate varying heights when using different fonts side-by-side. This font has a relative x-height of {1} while the system''s reference is {2}. You can only use values greater than 0.0. Note that this does not change the font''s "pixel height" and is thus unrelated to the system''s overall UI scale factor. You may want to adjust extra line gap as well to retain the font''s aesthetics. Make empty to reset to default value.' translated + format: { + self selectedFont xHeightFraction printShowingDecimalPlaces: 3. + TextStyle defaultTTFont xHeightFraction printShowingDecimalPlaces: 3 }) asTextFromHtml! Item was added: + ----- Method: FontImporterTool>>uninstallColor (in category 'ui - colors') ----- + uninstallColor + + ^ (UserInterfaceTheme current get: #cancel for: #ListChooser) ifNil: [Color r: 1 g: 0.6 b: 0.588]! Item was added: + ----- Method: FontImporterTool>>uninstallFont (in category 'actions') ----- + uninstallFont + + (Project uiManager + confirm: ('Do you want to uninstall the following font?\\ ' translated, + self currentSelection familyName, + '\\(There may be references left to this font\in text attributes and text styles.)' translated) withCRs + title: 'Uninstall Font' translated) ifFalse: [^ false]. + + self currentSelection uninstallFont. + + self currentSelection parent ifNotNil: [:p | self currentSelection: p]. + self changed: #objectChanged with: self currentSelection. + + ^ true! Item was removed: - ----- Method: FontImporterTool>>warningSeen (in category 'accessing') ----- - warningSeen - - ^ warningSeen ifNil: [false]! Item was removed: - ----- Method: FontImporterTool>>warningSeen: (in category 'accessing') ----- - warningSeen: anObject - - warningSeen := anObject! Item was added: + ----- Method: FontImporterTool>>widgetSample (in category 'preview text') ----- + widgetSample + + ^ self widgetSampleFor: self selectedFont! Item was added: + ----- Method: FontImporterTool>>widgetSampleFor: (in category 'preview text') ----- + widgetSampleFor: font + + | widgets data preferredWidth | + data := ChronologyConstants classPool at: #MonthNames. + widgets := OrderedCollection new. + preferredWidth := ((font widthOfString: (data detectMax: [:ea | ea size])) * 1.3) truncated. + + "1) List morph" + widgets add: ((PluggableListMorph on: data list: #value selected: nil changeSelected: nil) vResizing: #shrinkWrap; width: preferredWidth; font: font; yourself). + + "2) Menu morph" + widgets add: (MenuMorph new in: [:menu | data do: [:o | menu add: o action: #yourself. menu lastItem font: font]. menu]). + + "3) Buttons" + widgets add: (Morph new color: Color transparent; changeTableLayout; listDirection: #topToBottom; vResizing: #shrinkWrap; cellGap: (font widthOf: Character space); width: preferredWidth; addAllMorphs: (data collect: [:ea | (PluggableButtonMorph on: ea getState: nil action: #yourself label: #yourself) hResizing: #spaceFill; font: font; fullBounds; in: [:button | MorphicProject useCompactButtons ifFalse: [button vResizing: #rigid; height: button height * 1.6; flag: #magicNumber]]; yourself ])). + + ^ Text streamContents: [:sample | + widgets + do: [:widget | + widget textAnchorProperties verticalAlignment: #top. + sample nextPutAll: ( + Text + string: Character startOfHeader asString + attribute: widget asTextAnchor)] + separatedBy: [sample space: 5]]! Item was changed: + ----- Method: FontImporterTool>>windowTitle (in category 'ui - building') ----- - ----- Method: FontImporterTool>>windowTitle (in category 'toolbuilder') ----- windowTitle + ^ 'Font Importer', (self currentSelection + ifNil: [''] + ifNotNil: [:desc | ': ', desc familyName])! - ^'Choose a Font to import' translated! Item was changed: ----- Method: TTFontDescription>>asMorph (in category '*Morphic-TrueType') ----- asMorph + + ^ self asHandle font + browseAllGlyphs; + browseAllGlyphsByCategory; + browseAllSymbols; + yourself. + + "^TTSampleFontMorph font: self"! - ^TTSampleFontMorph font: self!

1 0

The Trunk: ReleaseBuilder-mt.229.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.229.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.229 Author: mt Time: 1 March 2022, 5:37:28.624136 pm UUID: 5f6536e8-f210-4749-9b1a-8fd47e4e8ae5 Ancestors: ReleaseBuilder-mt.228 Complements TrueType-mt.78 =============== Diff against ReleaseBuilder-mt.228 =============== Item was changed: ----- Method: ReleaseBuilder class>>cleanUpBitstreamVeraSans (in category 'scripts - support') ----- cleanUpBitstreamVeraSans + | descriptions styleNames default handles | + descriptions := OrderedCollection new. + styleNames := Set new. + default := TTFontDescription descriptionNamed: #BitstreamVeraSans. - | descriptions | - descriptions := Dictionary new. + "1) Collect the font descriptions we want to keep." + TTFontDescription allSubInstancesDo: [:tt | + styleNames add: tt name. - TTFontDescription allInstancesDo: [:tt | (tt familyName beginsWith: 'Bitstream Vera') + ifTrue: [descriptions add: tt]]. + styleNames addAll: (TextStyle actualTextStyles select: [:ea | ea isTTCStyle]) keys. "Also aliases" - ifTrue: [(descriptions at: tt name ifAbsentPut: [Set new]) add: tt]]. + "2) Uninstall *all* TrueType font descriptions from the system." TTCFont registry removeAll. TTFontDescription clearDefault; clearDescriptions. + styleNames do: [:styleName | TextConstants removeKey: styleName ifAbsent: []]. + "3) Install the fonts we want to have." + handles := TTFontFileHandle allHandlesFromFontDescriptions: descriptions. + handles do: [:handle | handle installFont]. + TTFontDescription setDefault: default. "Must do this only now. See #addAllFromFont: ... Sigh." - descriptions keysAndValuesDo: [:name :tts | - TextConstants removeKey: name ifAbsent: []. - tts do: [:ea | TTFontDescription addToDescription: ea]]. + "3*) Alias Bitstream Bold as ComicSansMS" + TextConstants at: #ComicSansMS put: (TextStyle fontArray: {(TextStyle named: #BitstreamVeraSans) defaultFont emphasized: 1 "bold"}). + + "4) Configure the properties we want to use in the Squeak UI. Slightly larger glyphs to improve legibility for lower PPI. Note that such extra scaling typically does not match 0.5 points and should thus not be expressed with using a larger point size. We have glyph caches for each point size." + #( BitstreamVeraSans 1.059 24 'Bitstream Vera Sans For Squeak' + BitstreamVeraSansMono 1.059 24 'Bitstream Vera Sans Mono For Squeak' ) + groupsDo: [:name :scale :gap :customName | + (TextStyle named: name) asHandle + rename: customName; + ttExtraScale: scale; ttExtraGap: gap; + installFont].! - TTFontDescription setDefault. - - descriptions valuesDo: [:tts | - (FontImporterTool new importFontFamily: tts) in: [:textStyle | - TTCFont - register: textStyle fontArray - at: textStyle defaultFont name asSymbol]].!

1 0

The Trunk: System-mt.1315.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1315.mcz ==================== Summary ==================== Name: System-mt.1315 Author: mt Time: 1 March 2022, 5:36:54.207136 pm UUID: ae33a7e8-ebe5-ec4e-bdb8-04890c3a90de Ancestors: System-mt.1314 Complements TrueType-mt.78 =============== Diff against System-mt.1314 =============== Item was changed: ----- Method: SARInstaller>>fileInTrueTypeFontNamed: (in category 'client services') ----- fileInTrueTypeFontNamed: memberOrName | member description | member := self memberNamed: memberOrName. member ifNil: [^self errorNoSuchMember: memberOrName]. + description := TTFontDescription addFromBinaryStream: member contentStream. - description := TTFontDescription addFromTTStream: member contentStream. TTCFont newTextStyleFromTT: description. Project current world doOneCycle. self installed: member! Item was changed: ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme theme set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFixedFont to: (TTCFont familyName: #BitstreamVeraSansMonoForSqueak pointSize: 10.5); - set: #standardFixedFont to: (TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 10.5); set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode); set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); set: #wizardStandardFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); set: #wizardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); set: #wizardHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); set: #wizardTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 23.5).! Item was changed: ----- Method: StrikeFont class>>fromUser:allowKeyboard: (in category '*System-Fonts') ----- fromUser: priorFont allowKeyboard: aBoolean "StrikeFont fromUser" "Present a menu of available fonts, and if one is chosen, return it. Otherwise return nil. Using ToolBuilder for added abstraction." | fontList fontMenu font builder resultBlock widget style result item | builder := ToolBuilder default. fontList := StrikeFont actualFamilyNames. fontMenu := builder pluggableMenuSpec new. resultBlock := [:value| result := value]. fontList do: [:fontName | | active ptMenu | style := TextStyle named: fontName. active := priorFont familyName sameAs: fontName. ptMenu := builder pluggableMenuSpec new. style pointSizes do: [:pt | | label | label := pt printString, ' pt'. item := ptMenu add: label target: resultBlock selector: #value: argumentList: {{fontName. pt}}. item checked: (active and:[pt = priorFont pointSize]). ]. style isTTCStyle ifTrue: [ ptMenu add: 'new size' target: style selector: #addNewFontSizeDialog: argumentList: {{fontName. fontMenu}}. ]. item := fontMenu add: fontName action: nil. item subMenu: ptMenu. item checked: active. ]. - TTFileDescription offerNonPortableFonts ifTrue:[ - fontMenu addSeparator. - item := fontMenu add: 'More (non-portable) Fonts...' - target: resultBlock - selector: #value: - argumentList: #(TTFileDescription). - ]. widget := builder open: fontMenu. builder runModal: widget. result ifNil:[^nil]. "Pick a non-portable font if requested" result == #TTFileDescription ifTrue:[ ^Smalltalk at: #TTFileDescription ifPresent:[:ttf| ttf fontFromUser: priorFont allowKeyboard: aBoolean]]. style := TextStyle named: result first. style ifNil: [^ self]. font := style fonts detect: [:any | any pointSize = result last] ifNone: [nil]. ^ font! Item was changed: ----- Method: UserInterfaceTheme class>>addDefaultFonts: (in category 'initialize-release') ----- addDefaultFonts: theme "There must be fonts installed in the default theme. Unlike all other theme properties, there are no defaults encoded throughout the system for these properties. That is, there are no #ifNil: checks when requesting a font from the current theme." | defaultBuilder | + defaultBuilder := TTCFont familyName: #BitstreamVeraSansForSqueak pointSize: TTCFont referencePointSize. + self knownFontSymbols do: [:symbolicName | theme set: symbolicName to: defaultBuilder].! - defaultBuilder := TTCFont familyName: 'BitstreamVeraSans' pointSize: TTCFont referencePointSize. - #( - standardSystemFont - standardFixedFont - - standardCodeFont - standardListFont - standardButtonFont - standardMenuFont - standardFlapFont - - windowTitleFont - balloonHelpFont - haloLabelFont - - wizardStandardFont - wizardButtonFont - wizardHelpFont - wizardTitleFont - ) - do: [:symbolicName | theme set: symbolicName to: defaultBuilder].! Item was added: + ----- Method: UserInterfaceTheme class>>knownFontSymbols (in category 'initialize-release') ----- + knownFontSymbols + + ^ #( + standardSystemFont + standardFixedFont + + standardCodeFont + standardListFont + standardButtonFont + standardMenuFont + standardFlapFont + + windowTitleFont + balloonHelpFont + haloLabelFont + + wizardStandardFont + wizardButtonFont + wizardHelpFont + wizardTitleFont + )! Item was changed: ----- Method: UserInterfaceTheme>>ttcFallbackName (in category 'private - display scale') ----- ttcFallbackName "Answer the name of the TTCFont that should be used as a fallback for pre-rendered StrikeFonts that do not have the requested #pointSize available." + ^ #BitstreamVeraSansForSqueak! - ^ 'BitstreamVeraSans'!

1 0

The Trunk: Tools-mt.1138.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1138.mcz ==================== Summary ==================== Name: Tools-mt.1138 Author: mt Time: 1 March 2022, 5:36:12.550136 pm UUID: 18107322-ed21-a74d-8d0b-922e83e066c7 Ancestors: Tools-ct.1137 Complements TrueType-mt.78 =============== Diff against Tools-ct.1137 =============== Item was changed: ----- Method: AbstractFont>>browseAllSymbols (in category '*Tools-Browsing') ----- browseAllSymbols "This is a variation of #browseAllGlyphs that is optimized to show all available glyphs in a single run, even though their code points may be scattered all over the Unicode range. See #browseAllSymbolsByCategory." + "self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]." - self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]. ^ self + browseGlyphsOf: (((self minCodePoint max: 16r1000) to: self maxCodePoint) select: [:ea | self hasGlyphForCode: ea]) - browseGlyphsOf: ((self minCodePoint to: self maxCodePoint) select: [:ea | self hasGlyphForCode: ea]) label: 'All symbols in ', self familyName! Item was added: + ----- Method: TTCFont>>browseAllGlyphsScaledToDisplay (in category '*Tools-Browsing') ----- + browseAllGlyphsScaledToDisplay + "Overwritten to support not-yet-registered fonts, e.g. through the FontImporterTool." + + ^ self isInstalled + ifTrue: [super browseAllGlyphsScaledToDisplay] + ifFalse: [self browseAllGlyphs]! Item was added: + ----- Method: TTCFont>>browseGlyphsByCategoryOf:select:label: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil + "Overwritten to speed up browsing for remote fonts. We have to compose a paragraph with a lot of new glyphs in a paragraph ... even though we will not render all at the same time." + + ttcDescription cacheGlyphDataDuring: [ + ^ super browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil].! Item was added: + ----- Method: TTCFont>>browseGlyphsOf:select:label: (in category '*Tools-Browsing') ----- + browseGlyphsOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil + "Overwritten to speed up browsing for remote fonts. We have to compose a paragraph with a lot of new glyphs in a paragraph ... even though we will not render all at the same time." + + ttcDescription cacheGlyphDataDuring: [ + ^ super browseGlyphsOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil].!

1 0

The Trunk: Help-Squeak-Project-mt.87.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-mt.87.mcz ==================== Summary ==================== Name: Help-Squeak-Project-mt.87 Author: mt Time: 1 March 2022, 5:35:13.559136 pm UUID: 31843766-5c46-3b47-a329-059d7741b571 Ancestors: Help-Squeak-Project-mt.86 Complements TrueType-mt.78 =============== Diff against Help-Squeak-Project-mt.86 =============== Item was changed: ----- Method: SqueakMessageCategoriesHelp>>testing (in category 'testing') ----- testing "The testing category contains predicate methods which typically answer a Boolean value." + ^ {SMPackage>>#isAvailable . TTFontFileHandle>>#hasChildren} - ^ {SMPackage>>#isAvailable . FontImporterFontDescription>>#hasChildren} !

1 0

The Trunk: EToys-mt.465.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.465.mcz ==================== Summary ==================== Name: EToys-mt.465 Author: mt Time: 1 March 2022, 5:32:01.728136 pm UUID: c28e837f-7902-1544-a001-b6ed9b8bd2e7 Ancestors: EToys-mt.464 Complements TrueType-mt.78 =============== Diff against EToys-mt.464 =============== Item was changed: ----- Method: TTCFontSet class>>newTextStyleFromSmartRefStream: (in category '*Etoys-Squeakland-file out/in') ----- newTextStyleFromSmartRefStream: ref | descriptions | + descriptions := TTCFontDescription addFromSmartRefStream: ref. - descriptions := TTFontDescription addFromSmartRefStream: ref. descriptions do: [:desc | self newTextStyleFromTT: desc].!

1 0

The Trunk: 60Deprecated-mt.107.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.107.mcz ==================== Summary ==================== Name: 60Deprecated-mt.107 Author: mt Time: 1 March 2022, 5:31:15.469136 pm UUID: 442bd414-30a2-7141-9e0f-9a336155713b Ancestors: 60Deprecated-ct.106 Complements TrueType-mt.78 =============== Diff against 60Deprecated-ct.106 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Collections-Streams'! + SystemOrganization addCategory: #'60Deprecated-Compiler-Support'! + SystemOrganization addCategory: #'60Deprecated-Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'60Deprecated-HelpSystem-Core-Model'! SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! + SystemOrganization addCategory: #'60Deprecated-Kernel-Numbers-Exceptions'! SystemOrganization addCategory: #'60Deprecated-Morphic-Events'! SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'! SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'! SystemOrganization addCategory: #'60Deprecated-System-Support'! SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! SystemOrganization addCategory: #'60Deprecated-Tools-Menus'! + SystemOrganization addCategory: #'60Deprecated-TrueType-Fonts'! - SystemOrganization addCategory: #'60Deprecated-Etoys-Squeakland-System-Support'! - SystemOrganization addCategory: #'60Deprecated-Kernel-Numbers-Exceptions'! - SystemOrganization addCategory: #'60Deprecated-Compiler-Support'! Item was added: + Object subclass: #TTFileDescription + instanceVariableNames: 'fileName fileOffset familyName subfamilyName copyright ascender descender lineGap unitsPerEm numGlyphs indexToLocOffset indexToLocFormat glyphTableOffset cmapType cmapOffset numHMetrics hmtxTableOffset sTypoAscender sTypoDescender sTypoLineGap sxHeight sCapHeight minCodePoint maxCodePoint' + classVariableNames: 'AllFontsAndFiles FontPaths' + poolDictionaries: '' + category: '60Deprecated-TrueType-Fonts'! + + !TTFileDescription commentStamp: 'mt 2/18/2022 15:01' prior: 0! + Original comment from ar 7/29/2009 22:18: + Contrary to TTFontDescritption, this class leaves true type files on disk and only reads the required portions when constructing glyphs. This avoids the need of reading the entire font into memory at the cost of having to hit disk whenever a glyph is requested. + + ** + + In 2022, we combined the two TrueType parsers -- one in TTFileDescription and one in TTFontReader -- into a single TTFontReader. A specialization of TTFontDescription, namely TTRemoteFontDescription, can use TTFontReader to also fetch glyph data on demand.! Item was added: + ----- Method: TTFileDescription class>>allFamilyNamesAndFiles (in category 'font paths') ----- + allFamilyNamesAndFiles + "Answer a dictionary of all known family names and their corresponding file names." + + AllFontsAndFiles ifNil:[ + AllFontsAndFiles := Dictionary new. + Cursor wait showWhile:[self allFontsDo:[:font| + | names | + names := AllFontsAndFiles at: font familyName + ifAbsentPut:[OrderedCollection new]. + names add: font fileName]]]. + ^AllFontsAndFiles ! Item was added: + ----- Method: TTFileDescription class>>allFontsAndFiles (in category 'font paths') ----- + allFontsAndFiles + "Answer a dictionary of all known family names and their corresponding file names." + + AllFontsAndFiles ifNil:[ + AllFontsAndFiles := Dictionary new. + Cursor wait showWhile:[self allFontsDo:[:font| + | names | + names := AllFontsAndFiles at: font familyName + ifAbsentPut:[OrderedCollection new]. + names add: font fileName]]]. + ^AllFontsAndFiles ! Item was added: + ----- Method: TTFileDescription class>>allFontsDo: (in category 'font paths') ----- + allFontsDo: aBlock + "Evaluate aBlock with all the fonts we can find. Use sparingly." + self fontPathsDo:[:path| + self fontFilesIn: path do:[:font| + font familyName + ifNotNil:[aBlock value: font]]]! Item was added: + ----- Method: TTFileDescription class>>findFontFile: (in category 'font paths') ----- + findFontFile: fontFileName + "Find the path containing the font with the given name. + If it can't be found, return nil." + + self fontPathsDo:[:path| + | fd | + fd := FileDirectory on: path. + ([fd fileExists: fontFileName] on: Error do:[false]) + ifTrue:[^fd fullNameFor: fontFileName]. + ]. + ^nil! Item was added: + ----- Method: TTFileDescription class>>fontFilesIn:do: (in category 'font paths') ----- + fontFilesIn: path do: aBlock + "TTFileDescription loadAllFilesIn: 'C:\Windows\Fonts'" + "Load all the TTF files we can find in the given path" + | fd | + fd := FileDirectory on: path. + (fd fileNamesMatching: '*.ttf;*.ttc') do:[:fn| + ([self readFontsFrom: fn] on: Error do: [#()]) do: aBlock ]! Item was added: + ----- Method: TTFileDescription class>>fontFromUser (in category 'user interaction') ----- + fontFromUser + "TTFileDescription fontFromUser" + ^self fontFromUser: TextStyle defaultFont! Item was added: + ----- Method: TTFileDescription class>>fontFromUser: (in category 'user interaction') ----- + fontFromUser: priorFont + ^self fontFromUser: priorFont allowKeyboard: true! Item was added: + ----- Method: TTFileDescription class>>fontFromUser:allowKeyboard: (in category 'user interaction') ----- + fontFromUser: priorFont allowKeyboard: aBoolean + "TTFileDescription fontFromUser" + | fontMenu fontNames builder resultBlock style font widget result | + builder := ToolBuilder default. + fontNames := self allFontsAndFiles keys asArray sort. + fontMenu := builder pluggableMenuSpec new. + fontMenu label: 'Non-portable fonts'. + resultBlock := [:value| result := value]. + fontNames do: [:fontName | | active ptMenu item | + active := priorFont familyName sameAs: fontName. + ptMenu := builder pluggableMenuSpec new. + TTCFont pointSizes do: [:pt | | label | + label := pt printString, ' pt'. + item := ptMenu add: label + target: resultBlock + selector: #value: + argumentList: {{fontName. pt}}. + item checked: (active and:[pt = priorFont pointSize]). + ]. + item := fontMenu add: fontName action: nil. + item subMenu: ptMenu. + item checked: active. + ]. + widget := builder open: fontMenu. + builder runModal: widget. + result ifNil:[^nil]. + style := (TextStyle named: result first) ifNil:[self installFamilyNamed: result first]. + style ifNil: [^ self]. + font := style fonts detect: [:any | any pointSize = result last] ifNone: [nil]. + ^ font + ! Item was added: + ----- Method: TTFileDescription class>>fontOffsetsInFile: (in category 'instance creation') ----- + fontOffsetsInFile: file + "Answer a collection of font offsets in the given file" + | tag version nFonts | + file position: 0. + tag := file next: 4. + tag caseOf: { + ['true' asByteArray] -> ["Version 1.0 TTF file" + "http://developer.apple.com/textfonts/TTRefMan/RM06/Chap6.html + The values 'true' (0x74727565) and 0x00010000 are recognized by the Mac OS + as referring to TrueType fonts." + ^Array with: 0 "only one font" + ]. + [#[0 1 0 0]] -> ["Version 1.0 TTF file" + ^Array with: 0 "only one font" + ]. + ['ttcf' asByteArray] -> ["TTC file" + version := file next: 4. + (version = #[0 1 0 0] or: [version = #[0 2 0 0]]) ifFalse: [^self error: 'Unsupported TTC version']. + nFonts := file nextNumber: 4. + ^(1 to: nFonts) collect: [:i | file nextNumber: 4]. + ]. + } otherwise:[ + self error: 'This is not a valid Truetype file'. + ].! Item was added: + ----- Method: TTFileDescription class>>fontPathsDo: (in category 'font paths') ----- + fontPathsDo: aBlock + "Evaluate aBlock with all of the font paths that should be searched on the current platform" + + "Start with the current directory" + aBlock value: FileDirectory default pathName. + + "Then subdirectory 'fonts'" + aBlock value: (FileDirectory default directoryNamed: 'fonts') pathName. + + "Platform specific directories" + Smalltalk platformName caseOf:{ + ['Win32'] -> [ + "Standard Windows fonts directory" + aBlock value: 'C:\Windows\Fonts'. + ]. + ['Mac OS'] -> [ + "Standard system fonts directories" + #('/System/Library/Fonts' '/Library/Fonts') do: [:fontDir | + aBlock value: fontDir]. + ]. + ['unix'] -> [ | base | + "Standard fonts are in /usr/share/fonts/*" + base := '/usr/share/fonts'. + (FileDirectory on: base) directoryTreeDo: [ :path | + path last isDirectory ifTrue: [ + aBlock value: path last fullName ] ]. + ]. + } otherwise:[]. + ! Item was added: + ----- Method: TTFileDescription class>>initialize (in category 'class initialization') ----- + initialize + "TTFileDescription initialize" + Smalltalk addToShutDownList: self. + FontPaths := Dictionary new. + AllFontsAndFiles := nil.! Item was added: + ----- Method: TTFileDescription class>>installFamilyNamed: (in category 'instance creation') ----- + installFamilyNamed: familyName + "Install all the corresponding fonts for this family" + " + TTFileDescription installFamilyNamed: 'Arial'. + TTFileDescription installFamilyNamed: 'Batang'. + " + | fontFiles | + fontFiles := self allFontsAndFiles at: familyName ifAbsent:[#()]. + fontFiles do:[:fileName| | ttDesc | + ttDesc := (self readFontsFrom: fileName) detect:[:fnt| fnt familyName = familyName]. + TTCFont newTextStyleFromTT: ttDesc. + ]. + ^TextStyle named: familyName! Item was added: + ----- Method: TTFileDescription class>>loadAllFontFiles (in category 'examples') ----- + loadAllFontFiles + "Load all the TTF files we can find in all font paths" + " + TTFileDescription loadAllFontFiles. + " + self fontPathsDo:[:path| | fd | + fd := FileDirectory on: path. + (fd fileNamesMatching: '*.ttf;*.ttc') do:[:fn| + (self readFontsFrom: fn) do:[:font| + (1 to: font numGlyphs) + do:[:i| font readGlyphAt: i-1] + displayingProgress: 'Reading ', font name]. + ] displayingProgress: 'Scanning ', path. + ].! Item was added: + ----- Method: TTFileDescription class>>openFontFile:do: (in category 'instance creation') ----- + openFontFile: fontFileName do: aBlock + "Open the font with the given font file name" + | fontFilePath file | + fontFilePath := FontPaths at: fontFileName + ifAbsentPut:[self findFontFile: fontFileName]. + fontFilePath ifNil:[^nil]. + file := [FileStream readOnlyFileNamed: fontFilePath] on: Error do:[:ex| + "We lost the font; someone might have moved it away" + fontFilePath removeKey: fontFileName ifAbsent:[]. + ^nil + ]. + ^[aBlock value: file binary] ensure:[file close].! Item was added: + ----- Method: TTFileDescription class>>readFontsFrom: (in category 'instance creation') ----- + readFontsFrom: aFilename + "Reads and returns all the fonts in the given file" + " + TTFileDescription readFontsFrom: 'batang.ttc'. + " + ^self openFontFile: aFilename do:[:file| + (self fontOffsetsInFile: file) + collect:[:offset| self new on: aFilename offset: offset] + thenSelect:[:font| font notNil]]. + ! Item was added: + ----- Method: TTFileDescription class>>shutDown (in category 'class initialization') ----- + shutDown + "Flush my caches" + FontPaths := Dictionary new. + AllFontsAndFiles := nil.! Item was added: + ----- Method: TTFileDescription>>ascender (in category 'accessing') ----- + ascender + "Ascender of the font. Relative to unitsPerEm. + Easily confused with the typographic ascender." + ^ascender! Item was added: + ----- Method: TTFileDescription>>at: (in category 'accessing') ----- + at: charOrCode + "Compatibility with TTFontDescription" + ^self glyphAt: charOrCode! Item was added: + ----- Method: TTFileDescription>>cacheGlyphDataDuring: (in category 'glyphs') ----- + cacheGlyphDataDuring: aBlock + "We don't have an extra cache." + + ^ aBlock value! Item was added: + ----- Method: TTFileDescription>>capHeight (in category 'accessing') ----- + capHeight + "https://docs.microsoft.com/en-us/typography/opentype/spec/os2#scapheight + + This metric specifies the distance between the baseline and the approximate height of uppercase letters measured in FUnits. This value would normally be specified by a type designer but in situations where that is not possible, for example when a legacy font is being converted, the value may be set equal to the top of the unscaled and unhinted glyph bounding box of the glyph encoded at U+0048 (LATIN CAPITAL LETTER H). If no glyph is encoded in this position the field should be set to 0." + + ^ sCapHeight ifNil: [ + | glyph | + glyph := self at: 16r48 "$H". + glyph isFallback + ifTrue: [sCapHeight := 0] + ifFalse: [sCapHeight := glyph bounds bottom "=top ..."] ]! Item was added: + ----- Method: TTFileDescription>>childGlyphAt:in:fromFile: (in category 'glyphs') ----- + childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile + "Get the glyph with the given glyph index. Look in cache first, then read from file. + Ensure file is positioned at point where it was when it came here." + ^glyphCache at: glyphIndex ifAbsentPut:[ | glyph filePos | + filePos := fontFile position. + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + fontFile position: filePos. + glyph].! Item was added: + ----- Method: TTFileDescription>>copyright (in category 'accessing') ----- + copyright + + ^ copyright! Item was added: + ----- Method: TTFileDescription>>descender (in category 'accessing') ----- + descender + "Descender of the font. Relative to unitsPerEm. + Easily confused with the typographic descender." + ^descender! Item was added: + ----- Method: TTFileDescription>>displayAll (in category 'private') ----- + displayAll + "Read all the glyphs and display them" + | glyph form scale points x y | + points := 24. + scale := points asFloat / unitsPerEm. + x := y := 0. + Display deferUpdates: true. + 1 to: numGlyphs do:[:i| + glyph := self readGlyphAt: i-1. + form := glyph asFormWithScale: scale + ascender: ascender + descender: descender. + Display fillWhite: (x@y extent: form extent). + form displayOn: Display at: x@y rule: 34. + Display forceToScreen: (x@y extent: form extent). + x := x + form width. + x > Display width ifTrue:[y := y + form height. x := 0]. + y > Display height ifTrue:[y := 0]. + Sensor anyButtonPressed ifTrue:[^Display restore]. + ].! Item was added: + ----- Method: TTFileDescription>>externalLeading (in category 'rendering') ----- + externalLeading + "https://freetype.org/freetype2/docs/glyphs/glyphs-3.html" + + ^ lineGap! Item was added: + ----- Method: TTFileDescription>>fallbackGlyph (in category 'glyphs') ----- + fallbackGlyph + "Answer the fallback glyph, the first in the loca table " + | glyph | + self withFileDo:[:fontFile| + glyph := self readGlyphAt: 0 fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>familyName (in category 'accessing') ----- + familyName + "The family name for the font" + ^familyName! Item was added: + ----- Method: TTFileDescription>>fileName (in category 'accessing') ----- + fileName + "The name of the Truetype file" + ^fileName! Item was added: + ----- Method: TTFileDescription>>fileOffset (in category 'accessing') ----- + fileOffset + + ^fileOffset! Item was added: + ----- Method: TTFileDescription>>findTable:in: (in category 'ttf tables') ----- + findTable: tag in: fontFile + "Position the fontFile at the beginning of the table with the given tag. + Answer true if we found the table, false otherwise." + | maxTables chksum offset length table | + fontFile position: fileOffset. + fontFile skip: 4. "version" + maxTables := fontFile nextNumber: 2. + fontFile skip: 6. + 1 to: maxTables do:[:i| + table := (fontFile next: 4) asString. + chksum := fontFile nextNumber: 4. + offset := fontFile nextNumber: 4. + length := fontFile nextNumber: 4. + table = tag ifTrue:[ + fontFile position: offset. + ^true]. + ]. + chksum. length. "fake usage" + ^false! Item was added: + ----- Method: TTFileDescription>>fontHeight (in category 'accessing') ----- + fontHeight + ^ascender - descender! Item was added: + ----- Method: TTFileDescription>>getGlyphFlagsFrom:size: (in category 'glyphs') ----- + getGlyphFlagsFrom: fontFile size: nPts + "Read in the flags for this glyph. The outer loop gathers the flags that + are actually contained in the table. If the repeat bit is set in a flag + then the next byte is read from the table; this is the number of times + to repeat the last flag. The inner loop does this, incrementing the + outer loops index each time." + | flags index repCount flagBits | + flags := ByteArray new: nPts. + index := 1. + [index <= nPts] whileTrue:[ + flagBits := fontFile next. + flags at: index put: flagBits. + (flagBits bitAnd: 8) = 8 ifTrue:[ + repCount := fontFile next. + repCount timesRepeat:[ + index := index + 1. + flags at: index put: flagBits]]. + index := index + 1]. + ^flags! Item was added: + ----- Method: TTFileDescription>>glyphAt: (in category 'glyphs') ----- + glyphAt: charOrCode + "Answer the glyph with the given code point" + | codePoint glyph | + codePoint := charOrCode asCharacter charCode. + self withFileDo:[:fontFile| | glyphIndex | + glyphIndex := self readCmapTableAt: codePoint fromFile: fontFile. + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>hasGlyphForCode: (in category 'testing') ----- + hasGlyphForCode: aCharacterCode + + ^ (self at: aCharacterCode) isFallback not! Item was added: + ----- Method: TTFileDescription>>internalLeading (in category 'rendering') ----- + internalLeading + "https://freetype.org/freetype2/docs/glyphs/glyphs-3.html" + + ^ ascender - descender - unitsPerEm! Item was added: + ----- Method: TTFileDescription>>isProtected (in category 'testing') ----- + isProtected + + ^ false! Item was added: + ----- Method: TTFileDescription>>isRegular (in category 'testing') ----- + isRegular + "Answer true if I am a Regular/Roman font (i.e. not bold, etc.)" + ^ (TTCFont indexOfSubfamilyName: (self subfamilyName)) = 0. + ! Item was added: + ----- Method: TTFileDescription>>isRemoteFont (in category 'testing') ----- + isRemoteFont + "Answer whether the receiver get's its data from an external file." + + ^ true! Item was added: + ----- Method: TTFileDescription>>isSymbolFont (in category 'testing') ----- + isSymbolFont + + ^ false! Item was added: + ----- Method: TTFileDescription>>lineGap (in category 'accessing') ----- + lineGap + "Leading of the font. Relative to unitsPerEm. + Easily confused with the typographic linegap." + ^lineGap! Item was added: + ----- Method: TTFileDescription>>maxCodePoint (in category 'accessing') ----- + maxCodePoint + + ^ maxCodePoint ifNil: [maxCodePoint := ((self size - 1 to: 0 by: -1) + detect: [:ea | (self at: ea) isFallback not] ifNone: [0])]! Item was added: + ----- Method: TTFileDescription>>minCodePoint (in category 'accessing') ----- + minCodePoint + + ^ minCodePoint ifNil: [minCodePoint := (0 to: self size - 1) + detect: [:ea | (self at: ea) isFallback not] ifNone: [1]]! Item was added: + ----- Method: TTFileDescription>>name (in category 'accessing') ----- + name + "For compatibility with TTFontDescription" + ^familyName copyWithout: Character space! Item was added: + ----- Method: TTFileDescription>>numGlyphs (in category 'accessing') ----- + numGlyphs + "The number of glyphs represented in this font" + ^numGlyphs! Item was added: + ----- Method: TTFileDescription>>on: (in category 'initialize') ----- + on: aFileName + "Initialize the receiver from a file name" + fileName := aFileName. + self withFileDo:[:fontFile| + (self findTable: 'head' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processFontHeaderTable: fontFile. + (self findTable: 'maxp' in: fontFile) + ifFalse:[^self error: 'File does not have a profile table']. + self processMaximumProfileTable: fontFile. + (self findTable: 'name' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + self processNamingTable: fontFile. + (self findTable: 'hhea' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + self processHorizontalHeaderTable: fontFile. + (self findTable: 'hmtx' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + hmtxTableOffset := fontFile position. + (self findTable: 'loca' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + indexToLocOffset := fontFile position. + (self findTable: 'glyf' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + glyphTableOffset := fontFile position. + (self findTable: 'cmap' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processCharacterMappingTable: fontFile. + ].! Item was added: + ----- Method: TTFileDescription>>on:offset: (in category 'initialize') ----- + on: aFileName offset: fontOffset + "Initialize the receiver from a file name" + fileName := aFileName. + fileOffset := fontOffset. + self withFileDo:[:fontFile| + "Some TTC fonts may actually be collection of PostScript-Based OpenType fonts" + (self findTable: 'CFF ' in: fontFile) + ifTrue: [^ nil] + ifFalse: [fontFile position: fileOffset "reset"]. + "Some bitmap fonts are called .ttf; skip anything that doesn't have a header" + (self findTable: 'head' in: fontFile) ifFalse:[^nil]. + self processFontHeaderTable: fontFile. + (self findTable: 'maxp' in: fontFile) + ifFalse:[^self error: 'File does not have a profile table']. + self processMaximumProfileTable: fontFile. + (self findTable: 'name' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + self processNamingTable: fontFile. + (self findTable: 'hhea' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + self processHorizontalHeaderTable: fontFile. + (self findTable: 'OS/2' in: fontFile) + ifTrue:[self processOS2Table: fontFile]. + (self findTable: 'hmtx' in: fontFile) + ifFalse:[^self error: 'File does not have a horizontal header table']. + hmtxTableOffset := fontFile position. + (self findTable: 'loca' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + indexToLocOffset := fontFile position. + (self findTable: 'glyf' in: fontFile) + ifFalse:[^self error: 'File does not have a naming table']. + glyphTableOffset := fontFile position. + (self findTable: 'cmap' in: fontFile) + ifFalse:[^self error: 'File does not have a header table']. + self processCharacterMappingTable: fontFile. + ].! Item was added: + ----- Method: TTFileDescription>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream nextPutAll: '('; print: fileName; nextPutAll: ')'.! Item was added: + ----- Method: TTFileDescription>>processCharacterMappingTable: (in category 'ttf tables') ----- + processCharacterMappingTable: fontFile + "Read the font's character to glyph index mapping table." + | initialOffset nSubTables pID sID offset | + initialOffset := fontFile position. + fontFile skip: 2. "Skip table version" + nSubTables := fontFile nextNumber: 2. + 1 to: nSubTables do:[:i| + pID := fontFile nextNumber: 2. + sID := fontFile nextNumber: 2. + offset := fontFile nextNumber: 4. + "Check if this is either a Unicode (0), Macintosh (1), + or a Windows (3) encoded table" + (#(0 1 3) includes: pID) ifTrue:[ + cmapType := pID. + cmapOffset := initialOffset + offset. + cmapType = 0 ifTrue:[^self]. "found Unicode table; use it" + ]. + ].! Item was added: + ----- Method: TTFileDescription>>processCompositeGlyph:contours:from: (in category 'glyphs') ----- + processCompositeGlyph: glyph contours: nContours from: fontFile + "Read a composite glyph from the font data. The glyph passed into this method contains some state variables that must be copied into the resulting composite glyph." + | flags glyphIndex hasInstr ofsX ofsY iLen a11 a12 a21 a22 m glyphCache | + glyphCache := Dictionary new. + a11 := a22 := 16r4000. "1.0 in F2Dot14" + a21 := a12 := 0. "0.0 in F2Dot14" + "Copy state" + hasInstr := false. + [ flags := fontFile nextNumber: 2. + glyphIndex := fontFile nextNumber: 2. + (flags bitAnd: 1) = 1 ifTrue:[ + ofsX := self short: (fontFile nextNumber: 2). + ofsY := self short: (fontFile nextNumber: 2). + ] ifFalse:[ + (ofsX := fontFile next) > 127 ifTrue:[ofsX := ofsX - 256]. + (ofsY := fontFile next) > 127 ifTrue:[ofsY := ofsY - 256]. + ]. + ((flags bitAnd: 2) = 2) ifFalse:[ + | i1 i2 p1 p2 | + (flags bitAnd: 1) = 1 ifTrue: [ + i1 := ofsX + 65536 \\ 65536. + i2 := ofsY + 65536 \\ 65536] + ifFalse: [ + i1 := ofsX + 256 \\ 256. + i2 := ofsY + 256 \\ 256]. + p1 := glyph referenceVertexAt: i1+1. + p2 := (self childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile) referenceVertexAt: i2+1. + ofsX := p1 x - p2 x. + ofsY := p1 y - p2 y. + ]. + (flags bitAnd: 8) = 8 ifTrue:[ + a11 := a22 := self short: (fontFile nextNumber: 2)]. + (flags bitAnd: 64) = 64 ifTrue:[ + a11 := self short: (fontFile nextNumber: 2). + a22 := self short: (fontFile nextNumber: 2). + ]. + (flags bitAnd: 128) = 128 ifTrue:[ + "2x2 transformation" + a11 := self short: (fontFile nextNumber: 2). + a21 := self short: (fontFile nextNumber: 2). + a12 := self short: (fontFile nextNumber: 2). + a22 := self short: (fontFile nextNumber: 2). + ]. + m := MatrixTransform2x3 new. + "Convert entries from F2Dot14 to float" + m a11: (a11 asFloat / 16r4000). + m a12: (a12 asFloat / 16r4000). + m a21: (a21 asFloat / 16r4000). + m a22: (a22 asFloat / 16r4000). + m a13: ofsX. + m a23: ofsY. + glyph addGlyph: (self childGlyphAt: glyphIndex in: glyphCache fromFile: fontFile) transformation: m. + hasInstr := hasInstr or:[ (flags bitAnd: 256) = 256]. + "Continue as long as the MORE:=COMPONENTS bit is set" + (flags bitAnd: 32) = 32] whileTrue. + hasInstr ifTrue:[ + iLen := fontFile nextNumber: 2. + fontFile skip: iLen].! Item was added: + ----- Method: TTFileDescription>>processFontHeaderTable: (in category 'ttf tables') ----- + processFontHeaderTable: fontFile + "Value Data Type Description + unitsPerEm USHORT Granularity of the font's em square. + xMax USHORT Maximum X-coordinate for the entire font. + xMin USHORT Minimum X-coordinate for the entire font. + yMax USHORT Maximum Y-coordinate for the entire font. + yMin USHORT Minimum Y-coordinate for the entire font. + indexToLocFormat SHORT Used when processing the Index To Loc Table." + + fontFile skip: 4. "Skip table version number" + fontFile skip: 4. "Skip font revision number" + fontFile skip: 4. "Skip check sum adjustment" + fontFile skip: 4. "Skip magic number" + fontFile skip: 2. "Skip flags" + + unitsPerEm := fontFile nextNumber: 2. + + fontFile skip: 8. "Skip creation date" + fontFile skip: 8. "Skip modification date" + + "Skip min/max values of all glyphs" + fontFile skip: 2. + fontFile skip: 2. + fontFile skip: 2. + fontFile skip: 2. + + fontFile skip: 2. "Skip mac style" + fontFile skip: 2. "Skip lowest rec PPEM" + fontFile skip: 2. "Skip font direction hint" + + indexToLocFormat := fontFile nextNumber: 2. + ! Item was added: + ----- Method: TTFileDescription>>processHorizontalHeaderTable: (in category 'ttf tables') ----- + processHorizontalHeaderTable: fontFile + " + ascender SHORT Typographic ascent. + descender SHORT Typographic descent. + lineGap SHORT Typographic lineGap. + numberOfHMetrics USHORT Number hMetric entries in the HTMX + Table; may be smaller than the total + number of glyphs. + " + fontFile skip: 4. "Skip table version" + ascender := self short: (fontFile nextNumber: 2). + descender := self short: (fontFile nextNumber: 2). + lineGap := self short: (fontFile nextNumber: 2). + fontFile skip: 2. "Skip advanceWidthMax" + fontFile skip: 2. "Skip minLeftSideBearing" + fontFile skip: 2. "Skip minRightSideBearing" + fontFile skip: 2. "Skip xMaxExtent" + fontFile skip: 2. "Skip caretSlopeRise" + fontFile skip: 2. "Skip caretSlopeRun" + fontFile skip: 10. "Skip 5 reserved shorts" + fontFile skip: 2. "Skip metricDataFormat" + + numHMetrics := fontFile nextNumber: 2. + + ^numHMetrics! Item was added: + ----- Method: TTFileDescription>>processMaximumProfileTable: (in category 'ttf tables') ----- + processMaximumProfileTable: fontFile + " + numGlyphs USHORT The number of glyphs in the font. + " + fontFile skip: 4. "Skip Table version number" + numGlyphs := fontFile nextNumber: 2.! Item was added: + ----- Method: TTFileDescription>>processNamingTable: (in category 'ttf tables') ----- + processNamingTable: fontFile + "copyright CHARPTR The font's copyright notice. + familyName CHARPTR The font's family name. + subfamilyName CHARPTR The font's subfamily name. + uniqueName CHARPTR A unique identifier for this font. + fullName CHARPTR The font's full name (a combination of + familyName and subfamilyName). + versionName CHARPTR The font's version string. + " + | nRecords initialOffset storageOffset format | + initialOffset := fontFile position. + format := fontFile nextNumber: 2. + format = 0 ifFalse: [self error: 'Cannot handle format 1 naming tables']. + "Get the number of name records" + nRecords := fontFile nextNumber: 2. + "Offset from the beginning of this table" + storageOffset := (fontFile nextNumber: 2) + initialOffset. + 1 to: nRecords do:[:i| | pID sID lID nID length offset string | + fontFile position: initialOffset + 6 + ((i-1) * 12). + pID := fontFile nextNumber: 2. + sID := fontFile nextNumber: 2. + lID := fontFile nextNumber: 2. + nID := fontFile nextNumber: 2. + length := fontFile nextNumber: 2. + offset := fontFile nextNumber: 2. + "Read only Macintosh or Microsoft strings" + (pID = 1 or:[pID = 3 and:[sID = 1]]) ifTrue:[ + "MS uses Unicode all others single byte" + "multiBytes := pID = 3." + fontFile position: storageOffset+offset. + string := (fontFile next: length) asString. + pID = 3 ifTrue:[ | keep | + keep := true. + string := string select:[:ch| keep := keep not]. + ]. + "Select only English names, prefer Macintosh" + ((pID = 1 and: [lID = 0]) or: [pID = 3 and: [lID = 16r0409]]) ifTrue: [ + nID caseOf: { + [0] -> [(pID = 1 or:[copyright == nil]) ifTrue:[copyright := string]]. + [1] -> [(pID = 1 or:[familyName == nil]) ifTrue:[familyName := string]]. + [2] -> [(pID = 1 or:[subfamilyName == nil]) ifTrue:[subfamilyName := string]]. + "[3] -> [(pID = 1 or:[uniqueName == nil]) ifTrue:[uniqueName := string]]." + "[4] -> [(pID = 1 or:[fullName == nil]) ifTrue:[fullName := string]]." + "[5] -> [(pID = 1 or:[versionName == nil]) ifTrue:[versionName := string]]." + "[6] -> [(pID = 1 or:[postscriptName == ni]) ifTrue:[postscriptName := string]]." + "[7] -> [(pID = 1 or:[trademark == nil]) ifTrue:[trademark := string]]." + } otherwise:["ignore"]. + ] + ]. + ]. + ! Item was added: + ----- Method: TTFileDescription>>processOS2Table: (in category 'ttf tables') ----- + processOS2Table: fontFile + " + USHORT version 0x0004 + SHORT xAvgCharWidth + USHORT usWeightClass + USHORT usWidthClass + USHORT fsType + SHORT ySubscriptXSize + SHORT ySubscriptYSize + SHORT ySubscriptXOffset + SHORT ySubscriptYOffset + SHORT ySuperscriptXSize + SHORT ySuperscriptYSize + SHORT ySuperscriptXOffset + SHORT ySuperscriptYOffset + SHORT yStrikeoutSize + SHORT yStrikeoutPosition + SHORT sFamilyClass + BYTE panose[10] + ULONG ulUnicodeRange1 Bits 0-31 + ULONG ulUnicodeRange2 Bits 32-63 + ULONG ulUnicodeRange3 Bits 64-95 + ULONG ulUnicodeRange4 Bits 96-127 + CHAR achVendID[4] + USHORT fsSelection + USHORT usFirstCharIndex + USHORT usLastCharIndex + SHORT sTypoAscender + SHORT sTypoDescender + SHORT sTypoLineGap + USHORT usWinAscent + USHORT usWinDescent + ULONG ulCodePageRange1 Bits 0-31 + ULONG ulCodePageRange2 Bits 32-63 + SHORT sxHeight + SHORT sCapHeight + USHORT usDefaultChar + USHORT usBreakChar + USHORT usMaxContext " + | version fsSelection minAscii maxAscii | + version := self short: (fontFile nextNumber: 2). "table version" + version = 0 ifTrue:[^self]. + fontFile skip: 60. + fsSelection := fontFile nextNumber: 2. + minAscii := fontFile nextNumber: 2. + maxAscii := fontFile nextNumber: 2. + sTypoAscender := self short: (fontFile nextNumber: 2). + sTypoDescender := self short: (fontFile nextNumber: 2). + sTypoLineGap := self short: (fontFile nextNumber: 2). + ! Item was added: + ----- Method: TTFileDescription>>processSimpleGlyph:contours:from: (in category 'glyphs') ----- + processSimpleGlyph: glyph contours: nContours from: fontFile + "Construct a simple glyph frm the font file" + | endPts nPts iLength flags | + endPts := Array new: nContours. + 1 to: nContours do:[:i| endPts at: i put: (fontFile nextNumber: 2)]. + glyph initializeContours: nContours with: endPts. + nContours = 0 ifTrue:[^self]. + nPts := endPts last + 1. + iLength := fontFile nextNumber: 2. "instruction length" + fontFile skip: iLength. + flags := self getGlyphFlagsFrom: fontFile size: nPts. + self readGlyphXCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts. + self readGlyphYCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts.! Item was added: + ----- Method: TTFileDescription>>readCmapTableAt:fromFile: (in category 'glyphs') ----- + readCmapTableAt: codePoint fromFile: fontFile + | cmapFmt length firstCode entryCount segCount segIndex startCode idDelta idRangeOffset offset | + fontFile position: cmapOffset. + cmapFmt := fontFile nextNumber: 2. + length := fontFile nextNumber: 2. + fontFile skip: 2. "skip version" + + cmapFmt = 0 ifTrue:["byte encoded table" + codePoint > 255 ifTrue:[^0]. + length := length - 6. "should be always 256" + length <= 0 ifTrue: [^0]. "but sometimes, this table is empty" + fontFile skip: codePoint. "move to correct byte offset in table" + ^fontFile next]. + + cmapFmt = 4 ifTrue:[ "segment mapping to deltavalues" + codePoint > 16rFFFF ifTrue:[^0]. + segCount := (fontFile nextNumber: 2) // 2. + fontFile skip: 6. "skip searchRange, entrySelector, rangeShift" + segIndex := (0 to: segCount-1) + detect:[:i| | endCode | (endCode := (fontFile nextNumber: 2)) >= codePoint]. + fontFile position: cmapOffset + 16 + (segCount*2) + (segIndex*2). + startCode := fontFile nextNumber: 2. + startCode <= codePoint ifFalse:[^0]. "not in segment range" + fontFile position: cmapOffset + 16 + (segCount*4) + (segIndex*2). + idDelta := fontFile nextNumber: 2. + fontFile position: cmapOffset + 16 + (segCount*6) + (segIndex*2). + idRangeOffset := fontFile nextNumber: 2. + idRangeOffset = 0 ifTrue:[^(idDelta + codePoint) bitAnd: 16rFFFF]. + offset := (fontFile position - 2) + idRangeOffset + ((codePoint - startCode) * 2). + fontFile position: offset. + ^fontFile nextNumber: 2. + ]. + + cmapFmt = 6 ifTrue:[ "trimmed table" + firstCode := fontFile nextNumber: 2. + entryCount := fontFile nextNumber: 2. + (codePoint between: firstCode and: firstCode+entryCount) ifFalse:[^0]. + fontFile skip: (codePoint-firstCode) * 2. + ^fontFile nextNumber: 2]. + + ^0! Item was added: + ----- Method: TTFileDescription>>readGlyphAt: (in category 'glyphs') ----- + readGlyphAt: glyphIndex + | glyph | + self withFileDo:[:fontFile| + glyph := self readGlyphAt: glyphIndex fromFile: fontFile. + self updateGlyphMetrics: glyph fromFile: fontFile. + ]. + ^glyph! Item was added: + ----- Method: TTFileDescription>>readGlyphAt:fromFile: (in category 'glyphs') ----- + readGlyphAt: glyphIndex fromFile: fontFile + "Answer the glyph with the given glyph index" + | glyphOffset nextOffset glyphLength glyph nContours left top right bottom | + indexToLocFormat = 0 ifTrue:["Format0: offset/2 is stored" + fontFile position: indexToLocOffset+(glyphIndex * 2). + glyphOffset := (fontFile nextNumber: 2) * 2. + nextOffset := (fontFile nextNumber: 2) * 2. + ] ifFalse:["Format1: store actual offset" + fontFile position: indexToLocOffset+(glyphIndex * 4). + glyphOffset := fontFile nextNumber: 4. + nextOffset := fontFile nextNumber: 4. + ]. + glyphLength := nextOffset - glyphOffset. + glyphLength = 0 ifTrue:[^TTGlyph new glyphIndex: glyphIndex]. + + fontFile position: glyphTableOffset+glyphOffset. + nContours := self short: (fontFile nextNumber: 2). + left := self short: (fontFile nextNumber: 2). + top := self short: (fontFile nextNumber: 2). + right := self short: (fontFile nextNumber: 2). + bottom := self short: (fontFile nextNumber: 2). + nContours >= 0 ifTrue:[ + glyph := TTGlyph new glyphIndex: glyphIndex. + self processSimpleGlyph: glyph contours: nContours from: fontFile. + ] ifFalse:[ + glyph := TTCompositeGlyph new glyphIndex: glyphIndex. + self processCompositeGlyph: glyph contours: nContours from: fontFile. + ]. + glyph buildAllContours. + glyph bounds: (left@top corner: right@bottom). + ^glyph + ! Item was added: + ----- Method: TTFileDescription>>readGlyphXCoords:glyph:nContours:flags:endPoints: (in category 'glyphs') ----- + readGlyphXCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts + "Read the x coordinates for the given glyph from the font file." + | startPoint endPoint flagBits xValue contour ttPoint | + startPoint := 1. + 1 to: nContours do:[:i| + contour := glyph contours at: i. + "Get the end point" + endPoint := (endPts at: i) + 1. + "Store number of points" + startPoint to: endPoint do:[:j| + ttPoint := contour points at: (j - startPoint + 1). + flagBits := flags at: j. + "If bit zero in the flag is set then this point is an on-curve + point, if not, then it is an off-curve point." + (flagBits bitAnd: 1) = 1 + ifTrue:[ ttPoint type: #OnCurve] + ifFalse:[ttPoint type: #OffCurve]. + "First we check to see if bit one is set. This would indicate that + the corresponding coordinate data in the table is 1 byte long. + If the bit is not set, then the coordinate data is 2 bytes long." + (flagBits bitAnd: 2) = 2 ifTrue:[ "one byte" + xValue := fontFile next. + xValue := (flagBits bitAnd: 16)=16 ifTrue:[xValue] ifFalse:[xValue negated]. + ttPoint x: xValue. + ] ifFalse:[ "two byte" + "If bit four is set, then this coordinate is the same as the + last one, so the relative offset (of zero) is stored. If bit + is not set, then read in two bytes and store it as a signed value." + (flagBits bitAnd: 16) = 16 ifTrue:[ ttPoint x: 0 ] + ifFalse:[ + xValue := self short: (fontFile nextNumber: 2). + ttPoint x: xValue]]]. + startPoint := endPoint + 1]! Item was added: + ----- Method: TTFileDescription>>readGlyphYCoords:glyph:nContours:flags:endPoints: (in category 'glyphs') ----- + readGlyphYCoords: fontFile glyph: glyph nContours: nContours flags: flags endPoints: endPts + "Read the y coordinates for the given glyph from the font file." + | startPoint endPoint flagBits yValue contour ttPoint | + startPoint := 1. + 1 to: nContours do:[:i| + contour := glyph contours at: i. + "Get the end point" + endPoint := (endPts at: i) + 1. + "Store number of points" + startPoint to: endPoint do:[:j| + ttPoint := contour points at: (j - startPoint + 1). + flagBits := flags at: j. + "Check if this value one or two byte encoded" + (flagBits bitAnd: 4) = 4 ifTrue:[ "one byte" + yValue := fontFile next. + yValue := (flagBits bitAnd: 32)=32 ifTrue:[yValue] ifFalse:[yValue negated]. + ttPoint y: yValue. + ] ifFalse:[ "two byte" + (flagBits bitAnd: 32) = 32 ifTrue:[ ttPoint y: 0 ] + ifFalse:[ + yValue := self short: (fontFile nextNumber: 2). + ttPoint y: yValue]]]. + startPoint := endPoint + 1]! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:extraScale:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: fontHeight extraScale: extraScale fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + + ^ self + renderGlyph: code height: fontHeight extraScale: extraScale + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:extraScale:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category 'rendering') ----- + renderGlyph: code height: fontHeight extraScale: extraScale fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis + "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." + + | form pixelScale offset | + pixelScale := fontHeight asFloat / self fontHeight. + offset := 0 @ ( ((self ascender - (self ascender * extraScale)) * pixelScale) truncated ). + form := (self at: code) + asFormWithScale: pixelScale * extraScale + ascender: self ascender + descender: self descender + fgColor: fgColor bgColor: bgColor depth: depth + replaceColor: false + lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth + emphasis: emphasis. + form offset: form offset + offset. + ^ form! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category 'rendering') ----- + renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth + "Render the glyph with the given code point at the specified pixel height." + + self flag: #deprecated. + ^ self + renderGlyph: code height: fontHeight extraScale: 1.0 + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! Item was added: + ----- Method: TTFileDescription>>renderGlyph:height:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category 'rendering') ----- + renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis + "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." + + self flag: #deprecated. + ^ self + renderGlyph: code height: fontHeight extraScale: 1.0 + fgColor: fgColor bgColor: bgColor depth: depth + lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis! Item was added: + ----- Method: TTFileDescription>>sampleText (in category 'accessing') ----- + sampleText + + ^ ''! Item was added: + ----- Method: TTFileDescription>>short: (in category 'private') ----- + short: aNumber + (aNumber bitAnd: 16r8000) = 0 + ifTrue: [^aNumber] + ifFalse: [^-1 - (aNumber bitXor: 16rFFFF)]! Item was added: + ----- Method: TTFileDescription>>size (in category 'accessing') ----- + size + "Compatibility with TTFontDescription" + ^16rFFFF! Item was added: + ----- Method: TTFileDescription>>subfamilyName (in category 'accessing') ----- + subfamilyName + "The subfamily name for the font" + ^subfamilyName! Item was added: + ----- Method: TTFileDescription>>typographicAscender (in category 'accessing') ----- + typographicAscender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoAscender ifNil:[ascender]! Item was added: + ----- Method: TTFileDescription>>typographicDescender (in category 'accessing') ----- + typographicDescender + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoDescender ifNil:[descender]! Item was added: + ----- Method: TTFileDescription>>typographicFontHeight (in category 'accessing') ----- + typographicFontHeight + "cope for the fact that typographicAscender and + typographicDescender may not be available and + 0-height fonts are a bit useless" + | tfh | + tfh := self typographicAscender - self typographicDescender. + ^ tfh = 0 ifTrue: [self fontHeight] ifFalse: [tfh]! Item was added: + ----- Method: TTFileDescription>>typographicLineGap (in category 'accessing') ----- + typographicLineGap + "Microsoft defines this as the 'true typographic metrics' of the font." + ^sTypoLineGap ifNil:[lineGap]! Item was added: + ----- Method: TTFileDescription>>unitsPerEm (in category 'accessing') ----- + unitsPerEm + + ^unitsPerEm! Item was added: + ----- Method: TTFileDescription>>updateGlyphMetrics:fromFile: (in category 'glyphs') ----- + updateGlyphMetrics: glyph fromFile: fontFile + "Update the horizontal metrics for the given glyph" + | glyphIndex | + glyphIndex := glyph glyphIndex. + glyphIndex <= numHMetrics ifTrue:[ + fontFile position: hmtxTableOffset + (glyphIndex*4). + glyph advanceWidth: (fontFile nextNumber: 2). + glyph leftSideBearing: (self short: (fontFile nextNumber: 2)). + ] ifFalse:[ + fontFile position: hmtxTableOffset + ((numHMetrics-1) *4). + glyph advanceWidth: (fontFile nextNumber: 2). + fontFile position: hmtxTableOffset + (numHMetrics * 4) + ((glyphIndex-numHMetrics)*2). + glyph leftSideBearing: (self short: (fontFile nextNumber: 2)). + ]. + glyph updateRightSideBearing.! Item was added: + ----- Method: TTFileDescription>>withFileDo: (in category 'initialize') ----- + withFileDo: aBlock + "Open the font file for the duration of aBlock" + ^self class openFontFile: fileName do: aBlock.! Item was added: + ----- Method: TTFileDescription>>xHeight (in category 'accessing') ----- + xHeight + "https://docs.microsoft.com/en-us/typography/opentype/spec/os2#sxheight + + This metric specifies the distance between the baseline and the approximate height of non-ascending lowercase letters measured in FUnits. This value would normally be specified by a type designer but in situations where that is not possible, for example when a legacy font is being converted, the value may be set equal to the top of the unscaled and unhinted glyph bounding box of the glyph encoded at U+0078 (LATIN SMALL LETTER X). If no glyph is encoded in this position the field should be set to 0." + + ^ sxHeight ifNil: [ + | glyph | + glyph := self at: 16r78 "$x". + glyph isFallback + ifTrue: [sxHeight := 0] + ifFalse: [sxHeight := glyph bounds bottom "=top ..."] ]!

1 0

The Trunk: Graphics-mt.489.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.489.mcz ==================== Summary ==================== Name: Graphics-mt.489 Author: mt Time: 1 March 2022, 4:52:26.923172 pm UUID: 7699a405-9499-7549-9985-d0ef424ae0df Ancestors: Graphics-mt.488 Some quality-of-life enhancements for fonts: - Look up the regular version of any font instance you have at hand via #asRegular (complements #isRegular) - Use #larger or #smaller to resize a font (like Color's #darker or #lighter) - Offer a way to access a default style and font that definitely uses flexible TrueType data, which is not the case, e.g., for our 100% default where a pre-rendered StrikeFont is used =============== Diff against Graphics-mt.488 =============== Item was added: + ----- Method: AbstractFont>>asRegular (in category 'converting') ----- + asRegular + "Try to lookup the receiver with normal emphasis. If the receiver itself looks bold face, this might be okay. Rely on what is registered on the font family's text style. Not that this is different from #emphasized: with 0, which does nothing." + + self emphasis = 0 ifTrue: [^ self]. + ^ self textStyleOrNil + ifNil: [self] + ifNotNil: [:style | style fontOfPointSize: self pointSize]! Item was added: + ----- Method: AbstractFont>>larger (in category 'converting') ----- + larger + "Answer a font that is about 20% larger than the receiver but has the same font family and emphasis. Round to 0.5 points to not yield so many different font instances." + + ^ self asPointSize: ((self pointSize asFloat * 1.2) roundTo: 0.5)! Item was added: + ----- Method: AbstractFont>>smaller (in category 'converting') ----- + smaller + "Answer a font that is about 20% smaller than the receiver but has the same font family and emphasis. Round to 0.5 points to not yield so many different font instances." + + ^ self asPointSize: ((self pointSize asFloat * 0.8) roundTo: 0.5)! Item was added: + ----- Method: TextStyle class>>defaultTT (in category 'constants') ----- + defaultTT + "Answer the default TrueType text style." + + ^ self default isTTCStyle + ifTrue: [self default] + ifFalse: [self named: #BitstreamVeraSans]! Item was added: + ----- Method: TextStyle class>>defaultTTFont (in category 'constants') ----- + defaultTTFont + + ^ self defaultTT defaultFont!

1 0

The Trunk: TrueType-mt.77.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.77.mcz ==================== Summary ==================== Name: TrueType-mt.77 Author: mt Time: 1 March 2022, 4:46:05.378172 pm UUID: 295b5945-b51f-8946-b43e-254b9151ba2a Ancestors: TrueType-mt.76 I forgot to commit 'familyName' instVar. Sorry for the noise. Nuke unused 'NamesToIndexes' and 'Scale' classVars. =============== Diff against TrueType-mt.76 =============== Item was changed: AbstractFont subclass: #TTCFont + instanceVariableNames: 'ttcDescription pointSize foregroundColor cache derivatives fallbackFont height ascent descent colorToCacheMap lineGap lineGapSlice minCodePoint maxCodePoint extraGlyphScale extraLineGap familyName' + classVariableNames: 'GlyphCacheData GlyphCacheIndex GlyphCacheReady GlyphCacheSize Registry ShutdownList' - instanceVariableNames: 'ttcDescription pointSize foregroundColor cache derivatives fallbackFont height ascent descent colorToCacheMap lineGap lineGapSlice minCodePoint maxCodePoint extraGlyphScale extraLineGap' - classVariableNames: 'GlyphCacheData GlyphCacheIndex GlyphCacheReady GlyphCacheSize NamesToIndexes Registry Scale ShutdownList' poolDictionaries: '' category: 'TrueType-Fonts'! !TTCFont commentStamp: 'nk 4/2/2004 11:32' prior: 0! I represent a font that uses TrueType derived glyph. Upon a request for glyph for a character through a call to #formOf: (or #widthOf:), I first search corresponding glyph in the cache. If there is not, it creates a 32bit depth form with the glyph. The cache is weakly held. The entries are zapped at full GC. Structure: ttcDescription TTFontDescription -- The Squeak data structure for a TrueType font data file. pointSize Number -- Nominal Em size in points. Conversion to pixel sizes depends on the definition of TextStyle class>>pixelsPerInch. foregroundColor Color -- So far, this font need to know the glyph color in cache. cache WeakArray of <Color -> <Array(256) of glyph>> derivatives Array -- stores the fonts in the same family but different emphasis. !

1 0

The Trunk: Morphic-mt.1916.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1916.mcz ==================== Summary ==================== Name: Morphic-mt.1916 Author: mt Time: 1 March 2022, 3:35:17.58735 pm UUID: ee7c8513-0a23-47c9-887e-dfd05fa2215a Ancestors: Morphic-mt.1915 Fix another init but in StringMorph where the extent was not computed correctly for pure string contents. =============== Diff against Morphic-mt.1915 =============== Item was changed: ----- Method: StringMorph>>initializeFromString: (in category 'initialization') ----- initializeFromString: aString + contents := aString. + self fitContents.! - contents := aString.! Item was changed: ----- Method: StringMorph>>initializeFromText: (in category 'initialization') ----- initializeFromText: aText | scanner | scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. (aText attributesAt: 1 forStyle: self font textStyle) do: [:attr | attr emphasizeScanner: scanner]. font := scanner font emphasized: scanner emphasis. emphasis := scanner emphasis. - color := scanner textColor. + + contents := aText string. + self fitContents.! - - self contents: aText string.!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2022