my $schrift = '{arial} 1020 {normal}';
$mw->Button(-text => 'test', -font => $schrift)->pack();