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.