Help for this page

Select Code to Download


  1. or download this
    Tk::Error: font "bold14c" already exists at C:/Perl/site/lib/Tk/Submet
+hods.pm line 19.
  2. or download this
        $TOP->fontCreate(qw/bold14c   -family courier   -size 14 -weight b
+old/);
    $TOP->fontCreate(qw/bold18h   -family helvetica -size 18 -weight b
+old/);
  3. or download this
    unless ( grep { $_->actual('-Name') =~ /bold14c/ } $TOP->fontNames ) {
    $TOP->fontCreate(qw/bold14c   -family courier   -size 14 -weight b
+old/);
    $TOP->fontCreate(qw/bold18h   -family helvetica -size 18 -weight b
+old/);
}
  4. or download this
    $TOP->fontDelete('bold18h', 'bold14c');