"{ Package: 'stx:goodies/libcairo' }"

"{ NameSpace: Cairo }"

ExternalStructure subclass:#TextExtents
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cairo - C Types'
!

!TextExtents class methodsFor:'accessing'!

libraryName

	OperatingSystem isUNIXlike ifTrue:[^'libcairo.so'].

	OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].

	self error:'Library name for host OS is not known'

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!TextExtents methodsFor:'accessing - primitives'!

primHeight

	self doubleAt:1 + 24

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primHeight: value

	self doubleAt:1 + 24 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primWidth

	self doubleAt:1 + 16

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primWidth: value

	self doubleAt:1 + 16 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primXAdvance

	self doubleAt:1 + 32

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primXAdvance: value

	self doubleAt:1 + 32 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primXBearing

	self doubleAt:1 + 0

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primXBearing: value

	self doubleAt:1 + 0 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primYAdvance

	self doubleAt:1 + 40

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primYAdvance: value

	self doubleAt:1 + 40 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primYBearing

	self doubleAt:1 + 8

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primYBearing: value

	self doubleAt:1 + 8 put:value

    "Modified: / 10-07-2008 / 11:04:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !