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