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 <[email protected]>: > 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 > > >
