Tk::Font - a class for finding X Fonts

       Graham Barr <Graham.Barr@tiuk.ti.com>

       Copyright (c) 1995-1996 Graham Barr. All rights reserved. This program is free software; you can
       redistribute it and/or modify it under the same terms as Perl itself.

perl v5.40.1                                       2025-04-13                                       X11Font(3pm)

          This module can be use to interrogate the X server what fonts are
          available.

       11-Jan-96 Initial version

       08-Nov-98 Renamed for Tk800.012

Foundry([$val])Family([$val])Weight([$val])Slant([$val])Swidth([$val])Adstyle([$val])Pixel([$val])Point([$val])Xres([$val])Yres([$val])Space([$val])Avgwidth([$val])Registry([$val])Encoding([$val])
       Set the given field in the font name to $val if given and return the current or previous value

   Name([$max])
       In a list context it returns a list of all font names that match the fields given. It will return a
       maximum of $max names, or 128 if $max is not given.

       In a scalar contex it returns the first matching name or undef

   Clone([key=>value,[...]])
       Create a duplicate of the curent font object and modify the given fields

       Tk::Font - a class for finding X Fonts

        use Tk::X11Font;

        $font = $widget->X11Font(foundry => 'adobe',
                              family  => 'times',
                              point   => 120
                             );

        $font = $widget->X11Font('*-courier-medium-r-normal-*-*');