equal
deleted
inserted
replaced
15 on: surface |
15 on: surface |
16 |
16 |
17 | cr | |
17 | cr | |
18 |
18 |
19 self |
19 self |
20 assert: (surface isKindOf: Surface) |
20 assert: (surface isKindOf: Cairo::Surface) |
21 message: 'surface is not valid Cairo surface'. |
21 message: 'surface is not valid Cairo surface'. |
22 |
22 |
23 cr := self primCreate: surface. |
23 cr := self primCreate: surface. |
24 cr setSurface: surface. |
24 cr setSurface: surface. |
25 ^cr |
25 ^cr |
26 |
26 |
27 "Created: / 10-07-2008 / 09:37:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
27 "Created: / 10-07-2008 / 09:37:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
28 "Modified: / 10-09-2008 / 19:03:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
28 "Modified: / 10-09-2008 / 19:03:15 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
29 "Modified: / 16-06-2012 / 08:36:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
29 ! ! |
30 ! ! |
30 |
31 |
31 !GraphicsContext class methodsFor:'accessing'! |
32 !GraphicsContext class methodsFor:'accessing'! |
32 |
33 |
33 dllPath |
34 dllPath |