Select Code to Download

Write PNG...
*** unhandled exception in callback:
***   `need' is not a valid cairo_status_t value; valid values are: su
+ccess, no-memory, invalid-restore, invalid-pop-group, no-current-poin
+t, invalid-matrix, invalid-status, null-pointer, invalid-string, inva
+lid-path-data, read-error, write-error, surface-finished, surface-typ
+e-mismatch, pattern-type-mismatch, invalid-content, invalid-format, i
+nvalid-visual, file-not-found, invalid-dash, invalid-dsc-comment, inv
+alid-index, clip-not-representable, temp-file-error, invalid-stride, 
+font-type-mismatch, user-font-immutable, user-font-error, negative-co
+unt, invalid-clusters, invalid-slant, invalid-weight at goopng2.pl li
+ne 90.
***  ignoring at /usr/share/perl5/Gtk3.pm line 546.

  $surface->write_to_png_stream (sub {
    my ($closure, $data) = @_;
    $loader->write($data);
  });

#!/usr/bin/perl -w
use strict;
use warnings;
...

return TRUE;
}