Here, I create a ImageMorph from a Form. And the forms canvas is used to render an AthensWrapMorph. The important point is, fullDrawOn: instead of drawOn: |form wrap background| form:=(Form extent:(400@400)depth:32). wrap:=AthensWrapMorph new. wrap extent:400@400. background := Morph new extent:400@400. background color:Color white. wrap addMorph:background. background addMorph: Morph new. wrap. wrap fullDrawOn:form getCanvas. (ImageMorph withForm: form) openInWorld 2014-06-21 9:23 GMT+02:00 Hilaire Fernandes <hilaire.fernandes@gmail.com>:
Hello,
I tried this but it produces empty form.
|canvas | canvas := (Form extent: aDrgeo area athensSurface extent depth: 32) getCanvas. aDrgeo area athensSurface displayOnMorphicCanvas: canvas at: 0@0. canvas form
Hilaire
Le 20/06/2014 12:55, Igor Stasenko a écrit :
the best way is to blit surface on the morphic canvas using displayOnMorphicCanvas: canvas at: aPoint method.
-- Dr. Geo http://drgeo.eu iStoa - https://launchpad.net/istoa