Hi Marcel,<br>
<br>
just out of curiosity, why did you push this to the Systems package? Is this to avoid any dependency between TrueType/Graphics? :-)<br>
<br>
Best,<br>
Christoph<br>
<br>
<font color="#808080">---<br>
</font><font color="#808080"><i>Sent from </i></font><font color="#808080"><i><a href="https://github.com/hpi-swa-lab/squeak-inbox-talk"><u><font color="#808080">Squeak Inbox Talk</font></u></a></i></font><br>
<br>
On 2022-02-05T15:08:52+00:00, commits@source.squeak.org wrote:<br>
<br>
> Marcel Taeumel uploaded a new version of System to project The Trunk:<br>
> http://source.squeak.org/trunk/System-mt.1302.mcz<br>
> <br>
> ==================== Summary ====================<br>
> <br>
> Name: System-mt.1302<br>
> Author: mt<br>
> Time: 5 February 2022, 4:08:47.918491 pm<br>
> UUID: 947ea0f6-19a2-1147-aefe-55f0b773544b<br>
> Ancestors: System-mt.1301<br>
> <br>
> Tweaks Accujen point size. Resets recommended #extraScale for our BitstreamVera fonts, optimized for 75% to 150% scale factor. Update all texts to use the recommended #extraGap in each TrueType font.<br>
> <br>
> Note that you can adjust #extraScale and #extraGap in each TrueType font family via Help > Font Size Summary or About Squeak > Image Fonts. Also see #chooseExtraScale and #chooseExtraGap.<br>
> <br>
> =============== Diff against System-mt.1301 ===============<br>
> <br>
> Item was changed:<br>
> + (PackageInfo named: 'System') postscript: '"Fixes Accujen point sizes."<br>
> + (TextStyle named: #Accujen) ifNotNil: [:style |<br>
> +     (style fontArray at: 2) pointSize: 9.5.<br>
> +     (style fontArray at: 3) pointSize: 11.0].<br>
> - (PackageInfo named: 'System') postscript: '"Add missing sTypo values for our Bitstream Vera fonts."<br>
> - TTFontDescription allInstancesDo: [:ea | (ea familyName beginsWith: ''Bitstream Vera'')<br>
> -     ifTrue: [ea setTypographicAscender: 1556 descender: -492 lineGap: 410 ]].<br>
>   <br>
> + "Reset extraScale for BitstreamVera fonts."<br>
> + TTCFont allSubInstancesDo: [:ea | | tt | ((tt := ea ttcDescription) familyName beginsWith: ''Bitstream Vera'') ifTrue: [tt instVarNamed: #extraScale put: nil]].<br>
> + <br>
> + "Update #leading in all text styles using the default font''s #lineGap. Also remove all cached glyphs. Supports #extraGap now."<br>
> - "Update #leading in all text styles using the default font''s #lineGap. Also remove all cached glyphs."<br>
>   AbstractFont allSubInstancesDo: [ :font | font pixelsPerInchChanged ].<br>
>   TextStyle allInstancesDo: [ :style | style pixelsPerInchChanged ].<br>
> + '!<br>
> - <br>
> - "Fix default font sizes in existing text styles according to the current UserInterfaceTheme."<br>
> - UserInterfaceTheme current installSystemFont: TextStyle defaultFont.'!<br>
> <br>