--- a/Cairo__RectangleList.st	Fri Jul 11 08:49:27 2008 +0000
+++ b/Cairo__RectangleList.st	Tue Sep 09 21:28:47 2008 +0000
@@ -6,10 +6,9 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Cairo - C Types'
+	category:'Cairo - Objects'
 !
 
-
 !RectangleList class methodsFor:'accessing'!
 
 libraryName
@@ -20,7 +19,14 @@
 
 	self error:'Library name for host OS is not known'
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+structSize
+
+	^96
+
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !RectangleList class methodsFor:'primitives'!
@@ -30,55 +36,50 @@
 	<cdecl: void "cairo_rectangle_list_destroy" ( Cairo::RectangleList ) >
 	self primitiveFailed
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
-!RectangleList methodsFor:'accessing - primitives'!
+!RectangleList methodsFor:'accessing'!
 
-primNumRectangles
+numRectangles
 
-	self doubleWordAt:1 + 8
+	^self doubleWordAt:1 + 8
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primNumRectangles: value
+numRectangles: value
 
 	self doubleWordAt:1 + 8 put:value
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primRectangles
+rectangles
 
-	self doubleWordAt:1 + 4
+	^self doubleWordAt:1 + 4
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primRectangles: value
+rectangles: value
 
-	self doubleWordAt:1 + 4 put:value
+	self pointerAt:1 + 4 put:value
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primStatus
+status
 
-	self doubleWordAt:1 + 0
+	^self doubleWordAt:1 + 0
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-primStatus: value
+status: value
 
 	self doubleWordAt:1 + 0 put:value
 
-    "Modified: / 10-07-2008 / 23:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
-!RectangleList class methodsFor:'documentation'!
-
-version
-    ^'$Id$'
-! !