1 "

     3 "

     2  COPYRIGHT (c) 1992 by Claus Gittinger

     4  COPYRIGHT (c) 1992 by Claus Gittinger

     3 	      All Rights Reserved

     5 	      All Rights Reserved

     4 

     6 

     5  This software is furnished under a license and may be used

     7  This software is furnished under a license and may be used

   686     metrics := device fontMetricsOf:fontId.

   688     metrics := device fontMetricsOf:fontId.

   687 

   689 

   688     "the MS TrueType unicode core fonts in Linux have way to large ascent

   690     "the MS TrueType unicode core fonts in Linux have way to large ascent

   689      and descent values, so the line spacing is too wide.

   691      and descent values, so the line spacing is too wide.

   690      Take them from the latin-1 equivalent"

   692      Take them from the latin-1 equivalent"

   692      and:[encoding = #'iso10646-1'

   694      and:[encoding = #'iso10646-1'

   693      and:[metrics ascent = metrics maxAscent 

   695      and:[metrics ascent = metrics maxAscent 

   694      and:[metrics descent == metrics maxDescent]]]) ifTrue:[

   696      and:[metrics descent == metrics maxDescent]]]) ifTrue:[

   695         |latinFont latinMetrics|

   697         |latinFont latinMetrics|

   696 

   698 

   704     ^ metrics.

   706     ^ metrics.

   705 

   707 

   706     "

   708     "

   707          (View defaultFont onDevice:Screen current) getFontMetrics

   709          (View defaultFont onDevice:Screen current) getFontMetrics

   708      "

   710      "

   709 !

   713 !

   710 

   714 

   711 getFontResolution

   715 getFontResolution

   712     "ask the device about all of my actual attributes"

   716     "ask the device about all of my actual attributes"

   713 

   717