# this is what I'm doing:
my %button_options = (
    -font => '{Arial} 10 {bold}',
    -padx => 2,
    -pady => 2,
);

my $button1 = $mw->Button(
    %button_options,
    -text => 'foo',
    -command => \&foo,
);

my $button2 = $mw->Button(
    %button_options,
    -text => 'bar',
    -command => \&bar,
);

# I would like to do it something like this:
setDefaults (
    -widget => 'Button',
    -font => '{Arial} 10 {bold}',
    -padx => 2,
    -pady => 2,
);

my $button1 = $mw->Button(
    -text => 'foo',
    -command => \&foo,
);

my $button2 = $mw->Button(
    -text => 'bar',
    -command => \&bar,
);