equal
deleted
inserted
replaced
1 "{ Package: 'stx:libview' }" |
1 "{ Package: 'stx:libview' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 DeviceGraphicsContext subclass:#XGraphicsContext |
5 DeviceGraphicsContext subclass:#XGraphicsContext |
4 instanceVariableNames:'depth xftDrawId cairoSurfaceId' |
6 instanceVariableNames:'depth xftDrawId cairoSurfaceId' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
22 xftDrawId := anXftDrawHandle. |
24 xftDrawId := anXftDrawHandle. |
23 |
25 |
24 "Modified (format): / 23-06-2014 / 21:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
26 "Modified (format): / 23-06-2014 / 21:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
25 ! ! |
27 ! ! |
26 |
28 |
|
29 !XGraphicsContext methodsFor:'initialization & release'! |
27 |
30 |
28 !XGraphicsContext methodsFor:'initialization & release'! |
31 destroy |
|
32 xftDrawId notNil ifTrue:[ |
|
33 XftFontDescription xftDrawDestroy: xftDrawId |
|
34 ]. |
|
35 super destroy. |
|
36 |
|
37 "Created: / 25-11-2016 / 00:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
38 ! |
29 |
39 |
30 prepareForReinit |
40 prepareForReinit |
31 "kludge - clear drawableId and gcId |
41 "kludge - clear drawableId and gcId |
32 needed after snapin" |
42 needed after snapin" |
33 |
43 |
49 createPixmapWidth:w height:h depth:d |
59 createPixmapWidth:w height:h depth:d |
50 depth := d. |
60 depth := d. |
51 super createPixmapWidth:w height:h depth:d |
61 super createPixmapWidth:w height:h depth:d |
52 ! ! |
62 ! ! |
53 |
63 |
54 |
|
55 !XGraphicsContext class methodsFor:'documentation'! |
64 !XGraphicsContext class methodsFor:'documentation'! |
56 |
65 |
57 version_HG |
66 version_HG |
58 |
67 |
59 ^ '$Changeset: <not expanded> $' |
68 ^ '$Changeset: <not expanded> $' |