Hi Ronie, Below you said:
The problem with asForm, is that the form returned can be used after the cairo surface which holds the pixels is garbage collected.
I cannot reproduce this case. You gave a script:
surface := AthensCairoSurface extent: 640@480. surface drawDuring: [ :canvas | surface clear: Color blue. ].
surface asForm asMorph openInWindow
I see a blue window. Cheers, Alexandre
How about changing AthensCairoSurface >> asForm into the following definition?: asForm
"create a form and copy an image data there" | form | self checkSession.
self flush. form := Form extent: (self width@self height) depth: 32. form unhibernate. LibC memCopy: self getDataPtr to: form bits size: self width*self height*4. ^ form
This involves a whole copy, but it removes completely the dependency on the surface plugin.
If we want to keep using the surface plugin with Cairo, the old definition of asForm still has a bug, which can be reproduced with the following snippet:
Smalltalk compiler evaluate: ' | surface | surface := AthensCairoSurface extent: 640@480. surface drawDuring: [ :canvas | surface clear: Color blue. ].
surface asForm asMorph openInWindow '
The problem with asForm, is that the form returned can be used after the cairo surface which holds the pixels is garbage collected.