7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Cairo - Objects' |
9 category:'Cairo - Objects' |
10 ! |
10 ! |
11 |
11 |
|
12 |
12 !RectangleList class methodsFor:'accessing'! |
13 !RectangleList class methodsFor:'accessing'! |
13 |
14 |
14 libraryName |
15 libraryName |
15 |
16 |
16 OperatingSystem isUNIXlike ifTrue:[^'libcairo.so']. |
17 OperatingSystem isUNIXlike ifTrue:[^'libcairo.so.2']. |
17 |
18 |
18 OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll']. |
19 OperatingSystem isMSWINDOWSlike ifTrue:[^'cairo.dll']. |
19 |
20 |
20 self error:'Library name for host OS is not known' |
21 self error:'Library name for host OS is not known' |
21 |
22 |
22 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
23 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
23 ! |
24 ! |
24 |
25 |
25 structSize |
26 structSize |
26 |
27 |
27 ^96 |
28 ^96 |
28 |
29 |
29 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
30 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
30 ! ! |
31 ! ! |
31 |
32 |
32 !RectangleList class methodsFor:'primitives'! |
33 !RectangleList class methodsFor:'primitives'! |
33 |
34 |
34 primDestroy: rectangle_list |
35 primDestroy: rectangle_list |
35 |
36 |
36 <cdecl: void "cairo_rectangle_list_destroy" ( Cairo::RectangleList ) > |
37 <cdecl: void "cairo_rectangle_list_destroy" ( Cairo::RectangleList ) > |
37 self primitiveFailed |
38 self primitiveFailed |
38 |
39 |
39 "Modified: / 09-09-2008 / 21:57:45 / Jan Vrany <vranyj1@fel.cvut.cz>" |
40 "Modified: / 10-09-2008 / 18:19:55 / Jan Vrany <vranyj1@fel.cvut.cz>" |
40 ! ! |
41 ! ! |
41 |
42 |
42 !RectangleList methodsFor:'accessing'! |
43 !RectangleList methodsFor:'accessing'! |
43 |
44 |
44 numRectangles |
45 numRectangles |
45 |
46 |
46 ^self doubleWordAt:1 + 8 |
47 ^self doubleWordAt:1 + 8 |
47 |
48 |
48 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
49 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
49 ! |
50 ! |
50 |
51 |
51 numRectangles: value |
52 numRectangles: value |
52 |
53 |
53 self doubleWordAt:1 + 8 put:value |
54 self doubleWordAt:1 + 8 put:value |
54 |
55 |
55 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
56 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
56 ! |
57 ! |
57 |
58 |
58 rectangles |
59 rectangles |
59 |
60 |
60 ^self doubleWordAt:1 + 4 |
61 ^self doubleWordAt:1 + 4 |
61 |
62 |
62 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
63 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
63 ! |
64 ! |
64 |
65 |
65 rectangles: value |
66 rectangles: value |
66 |
67 |
67 self pointerAt:1 + 4 put:value |
68 self pointerAt:1 + 4 put:value |
68 |
69 |
69 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
70 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
70 ! |
71 ! |
71 |
72 |
72 status |
73 status |
73 |
74 |
74 ^self doubleWordAt:1 + 0 |
75 ^self doubleWordAt:1 + 0 |
75 |
76 |
76 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
77 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
77 ! |
78 ! |
78 |
79 |
79 status: value |
80 status: value |
80 |
81 |
81 self doubleWordAt:1 + 0 put:value |
82 self doubleWordAt:1 + 0 put:value |
82 |
83 |
83 "Modified: / 09-09-2008 / 21:57:42 / Jan Vrany <vranyj1@fel.cvut.cz>" |
84 "Modified: / 10-09-2008 / 18:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>" |
84 ! ! |
85 ! ! |
85 |
86 |
|
87 !RectangleList class methodsFor:'documentation'! |
|
88 |
|
89 version |
|
90 ^'$Id$' |
|
91 ! ! |