Select Code to Download

sub paint_Info{
 
...
    my $zfactor = ($zoom > 0) ? $zoom : -1 / $zoom;
    $CW->scale('all', 0, 0, $zfactor, $zfactor);
}

 
sub paint_Info                            #  ($MW, $Config)
...
    $canvas->scale('all', 0, 0, $zfactor, $zfactor);
}