unless ( grep { $_->actual('-Name') =~ /bold14c/ } $TOP->fontNames ) {
    $TOP->fontCreate(qw/bold14c   -family courier   -size 14 -weight bold/);
    $TOP->fontCreate(qw/bold18h   -family helvetica -size 18 -weight bold/);
}