Perl/TK Save CANVAS into image

Posted by wolfgang on 2015-06-01 23:01


I have a problem since we switched to windows7 32/64bit:

I store a canvas into an image by using:

  my $img = Tkx::image_create_photo(-data => $CANVAS_SR, -format => 'window');
  $img =  Tkx::widget->new($img);
  $img->write ("d:\\tmp\\3\\test.bmp", -format => 'bmp');

But this takes long (about 2-3minutes) and very often(not always..) only the upper half of the content is stored into the file.

I try to figure out why this happens, but i didnt found any solution yet.. Has sombody an idea?

I use perl 514