Cairo__Rectangle.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 11 Jul 2008 08:49:27 +0000
changeset 5 65635e9ef3e8
parent 3 f4f599f2a1b5
child 6 c1f387b40e3a
permissions -rw-r--r--
added basic text rendering

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

"{ NameSpace: Cairo }"

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


!Rectangle 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 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Rectangle methodsFor:'accessing - primitives'!

primHeight

	self doubleAt:1 + 24

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primHeight: value

	self doubleAt:1 + 24 put:value

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primWidth

	self doubleAt:1 + 16

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primWidth: value

	self doubleAt:1 + 16 put:value

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primX

	self doubleAt:1 + 0

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primX: value

	self doubleAt:1 + 0 put:value

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primY

	self doubleAt:1 + 8

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
!

primY: value

	self doubleAt:1 + 8 put:value

    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Rectangle class methodsFor:'documentation'!

version
    ^'$Id$'
! !