equal
deleted
inserted
replaced
60 ^ CPrimitives cairo_image_surface_get_width: self |
60 ^ CPrimitives cairo_image_surface_get_width: self |
61 |
61 |
62 "Created: / 27-02-2016 / 16:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
62 "Created: / 27-02-2016 / 16:51:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
63 ! ! |
63 ! ! |
64 |
64 |
|
65 !SurfaceImage methodsFor:'inspecting'! |
|
66 |
|
67 inspector2TabImageCairo |
|
68 <inspector2Tab> |
|
69 |
|
70 | v | |
|
71 |
|
72 v := PluggableView new. |
|
73 v redrawAction:[ |
|
74 | cr | |
|
75 |
|
76 cr := v cairo. |
|
77 [ |
|
78 cr sourceSurface: self x: 1 y: 1. |
|
79 cr paint. |
|
80 ] ensure:[ |
|
81 cr release. |
|
82 ]. |
|
83 ]. |
|
84 ^self newInspector2Tab |
|
85 label: 'Contents'; |
|
86 priority: 49; |
|
87 view: (HVScrollableView forView: v); |
|
88 yourself |
|
89 |
|
90 "Created: / 31-12-2014 / 12:01:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
91 ! ! |
|
92 |