sub apply_font { my $font = shift; if (defined $font) { $app->{fontbut}->configure(-font => $font); $app->{mw}->RefontTree(-font => $font); } }