Select Code to Download

my %default_scale_options = (
    -width        => '10',
...
my $scale1 = $parent->Scale(%default_scale_options);
...
my $scaleN = $parent->Scale(%default_scale_options);

sub configure_option_database {
    ...
...
    $mw->optionAdd('*Entry*cursor', 'xterm', $priority);
    ...
}