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

##</code><code>##

my %default_style = (
    -size       => 10,
    -weight     => 'normal',
    -slant      => 'roman',
    -underline  => 0,
    -overstrike => 0,
);
my %serif_default_style = (-family => 'Times', %default_style);
my %mono_default_style = (-family => 'Courier', %default_style);

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