Tk::FontDialog implements a font dialog widget.

The dialog is displayed by calling the *Show* method. The returned value is
either the selected font (if the dialog was closed with the Ok button) or
undef (otherwise). The exact type of the return value is either a Tk::Font
object (in Tk800) or a font name string (usually something like 'font1').
Both can be used as values in Tk '-font' options. See
GetDescriptiveFontName

In the Family and Size listboxes, the font family and font size can be
specified. The checkbuttons on the right turn on bold, italic, underlined
and overstriked variants of the chosen font. A sample of the font is shown
in the middle area.

With the "Alt sample" checkbutton, it is possible to show all characters in
the charset instead of the default text. "Fixed only" restricts the font
family list to fixed fonts only. If the "Nicefonts" checkbutton is set,
then the font names in the listbox are displayed in the corresponding font.
Note that this option can be slow if a lot of fonts are installed or for 16
bit fonts.

A click with the right button in the font size listbox pops up a window to
enter arbitrary font sizes.