Cairo__FontExtents.st
changeset 6 c1f387b40e3a
parent 5 65635e9ef3e8
child 7 392289f92fab
equal deleted inserted replaced
5:65635e9ef3e8 6:c1f387b40e3a
     4 
     4 
     5 ExternalStructure subclass:#FontExtents
     5 ExternalStructure subclass:#FontExtents
     6 	instanceVariableNames:''
     6 	instanceVariableNames:''
     7 	classVariableNames:''
     7 	classVariableNames:''
     8 	poolDictionaries:''
     8 	poolDictionaries:''
     9 	category:'Cairo - C Types'
     9 	category:'Cairo - Objects'
    10 !
    10 !
    11 
       
    12 
    11 
    13 !FontExtents class methodsFor:'accessing'!
    12 !FontExtents class methodsFor:'accessing'!
    14 
    13 
    15 libraryName
    14 libraryName
    16 
    15 
    18 
    17 
    19 	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
    18 	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
    20 
    19 
    21 	self error:'Library name for host OS is not known'
    20 	self error:'Library name for host OS is not known'
    22 
    21 
    23     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    22     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
       
    23 !
       
    24 
       
    25 structSize
       
    26 
       
    27 	^320
       
    28 
       
    29     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    24 ! !
    30 ! !
    25 
    31 
    26 !FontExtents methodsFor:'accessing - primitives'!
    32 !FontExtents methodsFor:'accessing'!
    27 
    33 
    28 primAscent
    34 ascent
    29 
    35 
    30 	self doubleAt:1 + 0
    36 	^self doubleAt:1 + 0
    31 
    37 
    32     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    38     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    33 !
    39 !
    34 
    40 
    35 primAscent: value
    41 ascent: value
    36 
    42 
    37 	self doubleAt:1 + 0 put:value
    43 	self doubleAt:1 + 0 put:value
    38 
    44 
    39     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    45     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    40 !
    46 !
    41 
    47 
    42 primDescent
    48 descent
    43 
    49 
    44 	self doubleAt:1 + 8
    50 	^self doubleAt:1 + 8
    45 
    51 
    46     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    52     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    47 !
    53 !
    48 
    54 
    49 primDescent: value
    55 descent: value
    50 
    56 
    51 	self doubleAt:1 + 8 put:value
    57 	self doubleAt:1 + 8 put:value
    52 
    58 
    53     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    59     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    54 !
    60 !
    55 
    61 
    56 primHeight
    62 height
    57 
    63 
    58 	self doubleAt:1 + 16
    64 	^self doubleAt:1 + 16
    59 
    65 
    60     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    66     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    61 !
    67 !
    62 
    68 
    63 primHeight: value
    69 height: value
    64 
    70 
    65 	self doubleAt:1 + 16 put:value
    71 	self doubleAt:1 + 16 put:value
    66 
    72 
    67     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    73     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    68 !
    74 !
    69 
    75 
    70 primMaxXAdvance
    76 maxXAdvance
    71 
    77 
    72 	self doubleAt:1 + 24
    78 	^self doubleAt:1 + 24
    73 
    79 
    74     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    80     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    75 !
    81 !
    76 
    82 
    77 primMaxXAdvance: value
    83 maxXAdvance: value
    78 
    84 
    79 	self doubleAt:1 + 24 put:value
    85 	self doubleAt:1 + 24 put:value
    80 
    86 
    81     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    87     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    82 !
    88 !
    83 
    89 
    84 primMaxYAdvance
    90 maxYAdvance
    85 
    91 
    86 	self doubleAt:1 + 32
    92 	^self doubleAt:1 + 32
    87 
    93 
    88     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
    94     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    89 !
    95 !
    90 
    96 
    91 primMaxYAdvance: value
    97 maxYAdvance: value
    92 
    98 
    93 	self doubleAt:1 + 32 put:value
    99 	self doubleAt:1 + 32 put:value
    94 
   100 
    95     "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
   101     "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
    96 ! !
   102 ! !
    97 
   103 
    98 !FontExtents class methodsFor:'documentation'!
       
    99 
       
   100 version
       
   101     ^'$Id$'
       
   102 ! !