Select Code to Download

my $priority = q{startupFile};
...
$mw->optionAdd('*Button*borderWidth', 1, $priority);
$mw->optionAdd('*Button*activeBorderWidth', 1, $priority);

my %default_style = (
    -size       => 10,
...

my $serif_default_font = $mw->fontCreate(%serif_default_style);
my $serif_bold_font = $mw->fontCreate(%serif_default_style, -weight =>
+ q{bold});