sub CreateLabel {
    my( $parent, $text, ... ) = @_;

    $parent->Label( -font => $MyApp::Config::Fonts{default},
                            -text  => $text,
                            ...
                           );