Select Code to Download

my $scalewidth  = $Main->ScaleWidth();
my $scaleheight = $Main->ScaleHeight();
...
    -size => [$scalewidth, $scaleheight],
    ...
);

# The sub is named for the control name and event name
sub Main_Resize {
...
    $Main_msgs->Resize($scalewidth, $scaleheight);
    return 1;
}