--- a/Cairo__Rectangle.st Tue Sep 09 21:28:47 2008 +0000
+++ b/Cairo__Rectangle.st Wed Sep 10 17:20:21 2008 +0000
@@ -9,24 +9,25 @@
category:'Cairo - Objects'
!
+
!Rectangle class methodsFor:'accessing'!
libraryName
- OperatingSystem isUNIXlike ifTrue:[^'libcairo.so'].
+ OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2'].
OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll'].
self error:'Library name for host OS is not known'
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
structSize
^256
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!Rectangle methodsFor:'accessing'!
@@ -35,55 +36,60 @@
^self doubleAt:1 + 24
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
height: value
self doubleAt:1 + 24 put:value
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
width
^self doubleAt:1 + 16
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
width: value
self doubleAt:1 + 16 put:value
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
x
^self doubleAt:1 + 0
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
x: value
self doubleAt:1 + 0 put:value
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
y
^self doubleAt:1 + 8
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
y: value
self doubleAt:1 + 8 put:value
- "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
+!Rectangle class methodsFor:'documentation'!
+
+version
+ ^'$Id$'
+! !