my $mwFont = $mainWin->fontCreate(
   q{mwFont},
   -family => q{courier},
   -size   => 10,
   );
$commonLabelOpts{ -font }       = $mwFont;
$commonButtonOpts{ -font }      = $mwFont;
$commonRadioButtonOpts{ -font } = $mwFont;
...
$controlButtonFrame->Button(
   %commonButtonOpts,
   -text    => q{Quit},
...