Dr. Geo

  1. Bug #1697417
  2. Comment #1

Comment 1 for bug 1697417

Revision history for this message
hilaire (hilaire-fernandes) wrote :

The export method modified with transparent background :

exportToBitmap
 | stream |
 stream := self askForBitmapToExport.
 stream ifNotNil: [ | form |
  form := (Form extent: self area extent depth: 32) fillWithColor: Color transparent.
  self area owner athensSurface displayOnMorphicCanvas: form getCanvas at: 0 @ 0.
  PNGReadWriter putForm: form copy onStream: stream.
  stream close].