Select Code to Download

my $myscale = $mw->Scale(
    -from     => 2,
...
    -label    => 'Drawn X:',
    -variable => \$a_dx
)->grid();

$myscale->configure( -to => ($dx - 1) );