Cairo__Rectangle.st
changeset 1 2439fb18f3dc
child 3 f4f599f2a1b5
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Cairo__Rectangle.st	Thu Jul 10 09:30:44 2008 +0000
@@ -0,0 +1,82 @@
+"{ 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 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!Rectangle methodsFor:'accessing - primitives'!
+
+primHeight
+
+	self doubleAt:1 + 24
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primHeight: value
+
+	self doubleAt:1 + 24 put:value
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primWidth
+
+	self doubleAt:1 + 16
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primWidth: value
+
+	self doubleAt:1 + 16 put:value
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primX
+
+	self doubleAt:1 + 0
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primX: value
+
+	self doubleAt:1 + 0 put:value
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primY
+
+	self doubleAt:1 + 8
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+primY: value
+
+	self doubleAt:1 + 8 put:value
+
+    "Modified: / 10-07-2008 / 11:04:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+