Select Code to Download

        $images[$y] = $mainframe->Photo(-file => "$file.gif");
        my ($height, $width) = ($images[$y]->height, $images[$y]->widt
+h);
...
        $scaledimage->copy($images[$y], -subsample => $scalefactor);
        $images[$y]->destroy();