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

"{ NameSpace: Cairo }"

ExternalStructure subclass:#UserDataKey
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cairo - Objects'
!

!UserDataKey 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: / 09-09-2008 / 21:57:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

structSize

	^32

    "Modified: / 09-09-2008 / 21:57:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!UserDataKey methodsFor:'accessing'!

unused

	^self doubleWordAt:1 + 0

    "Modified: / 09-09-2008 / 21:57:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

unused: value

	self doubleWordAt:1 + 0 put:value

    "Modified: / 09-09-2008 / 21:57:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !