my $myscale = $mw->Scale(
    -from     => 2,
    -to       => ( $dx - 1 ),
    -orient   => 'horizontal',
    -label    => 'Drawn X:',
    -variable => \$a_dx
)->grid();