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');