Comment #2 on issue 1089 by nicolaih...(a)gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 Yes, somehow your canvas in TRCanvas is only used for shape creations (computePath). Drawing is done with TRMorphs cairo-surface. AthensCairoSurface has a writeToPng: method for writing the current surface data as a png file. -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

Comment #4 on issue 1089 by tu...(a)tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 I tried this, but somehow it does not work: exportToFile | completeMorph | completeMorph := view view canvas morphClass new canvas: view view canvas; extent: view view canvas encompassingRectangle extent. PNGReadWriter putForm: completeMorph imageForm onFileNamed: self fileName Any idea why? -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

Comment #6 on issue 1089 by tu...(a)tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 Here is a script that Alex put together. It almost work, but we still need to extract the logic from TRMorph. Also, there still is a problem with the logic as the picture is shifted to the right. b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build. form := FormCanvas extent: (b view canvas encompassingRectangle) extent. m := TRMorph new. m canvas: b view canvas. m extent: (b view canvas encompassingRectangle) extent. m createSurface. m drawOn: form. m surface writeToPng: 'foo.png' -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

Comment #8 on issue 1089 by tu...(a)tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 Here is a standalone script that seems to almost works. There is still seems to be a problem with one pixel at the bottom and to the right that gets cut. b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build. trachelCanvas := b view canvas. form := FormCanvas extent: (trachelCanvas encompassingRectangle) extent. session := Smalltalk session. surface := AthensCairoSurface extent: (trachelCanvas encompassingRectangle extent) asIntegerPoint. form fillRectangle: trachelCanvas encompassingRectangle color: trachelCanvas color. "The drawing has to be done when a change in the shapes occured or when there is an animation." surface drawDuring: [:cs | surface clear. "We display the elements that are subject to the camera" trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs. ]. "We display the elements that are _NOT_ subject to the camera" trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs. ]. ]. "aCanvas translucentImage: surface asForm at: self bounds origin." "asForm creates a new Form, which is likely to be expensive. This can be cached" form image: surface asForm at: trachelCanvas encompassingRectangle origin sourceRect: (0 @ 0 extent: surface extent) rule: 34. surface writeToPng: 'foo.png' -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

Comment #10 on issue 1089 by alexandr...(a)gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 I've tried this and it looks okay (simply adding 10 @ 10 to the extent): b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build. trachelCanvas := b view canvas. form := FormCanvas extent: (trachelCanvas encompassingRectangle) extent. session := Smalltalk session. surface := AthensCairoSurface extent: (trachelCanvas encompassingRectangle extent + (10 @ 10)) asIntegerPoint. form fillRectangle: (trachelCanvas encompassingRectangle expandBy: 10 @ 10) color: trachelCanvas color. "The drawing has to be done when a change in the shapes occured or when there is an animation." surface drawDuring: [:cs | surface clear. "We display the elements that are subject to the camera" trachelCanvas shapes do: [ :trachelShape | trachelShape drawOn: cs. ]. "We display the elements that are _NOT_ subject to the camera" trachelCanvas fixedShapes do: [ :trachelShape | trachelShape drawOn: cs. ]. ]. "aCanvas translucentImage: surface asForm at: self bounds origin." "asForm creates a new Form, which is likely to be expensive. This can be cached" form image: surface asForm at: trachelCanvas encompassingRectangle origin sourceRect: (0 @ 0 extent: surface extent) rule: 34. surface writeToPng: '/tmp/foo.png' -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings

Comment #12 on issue 1089 by nicolaih...(a)gmail.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 Other observiations: - file chooser dialog has "Your title here" as title. - cancel file chooser dialog -> MessageNotUnderstood: receiver of ""fullName"" is nil -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings