NAME

Tk::FontDialog - a font dialog widget for perl/Tk

SYNOPSIS

use Tk::FontDialog;
$font = $top->FontDialog->Show;

DESCRIPTION

Tk::FontDialog implements a font dialog widget. XXX

WIDGET-SPECIFIC OPTIONS

-font

The dialog font.

-initfont

The initial font.

-fontsizes

A list of font sizes. The default contains sizes from 0 to 72 points (XXX or pixels?).

-nicefont

If set, font names are displayed in its font style. This may be slow, especially if you have many fonts or 16 bit fonts (e.g. Asian fonts).

-nicefontsbutton

If set to false, then the "Nice fonts" button is not displayed.

-fixedfont

If set, proportional font families are not listed, leaving only the fixed fonts. This is slow, as each font must be checked to see if it is fixed or proportional.

-fixedfontsbutton

If set to false, then the "Fixed fonts" button is not displayed.

-sampletext

The sample text which should contain all letters. The default is "The Quick Brown Fox Jumps Over The Lazy Dog" German readers may probably use "Franz jagt im komplett verwahrlosten Taxi quer durch Bayern".

INTERNATIONALIZATION

There are a couple of options to change the labels of the dialog. Note that you can prepend a tilde (~) to get an accelerator key with Alt. Here is a list of these options with the default (English) setting:

-familylabel (Family:)

-sizelabel (Size:)

-weightlabel (Bold)

-slantlabel (Italic)

-underlinelabel (Underline)

-overstrikelabel (Overstrike)

-oklabel (OK)

-applylabel (Apply)

-cancellabel (Cancel)

-altsamplelabel (Alt sample)

-nicefontslabel (Nicefonts)

-fixedfontslabel (Fixed Only)

BUGS/TODO

- better POD
- XXX
- ConfigSpecs handling is poor
  put at least -font into configspecs
- run test, call dialog for 2nd time: immediate change of font?
- better name for nicefont
- restrict on charsets and encodings (xlsfonts? X11::Protocol::ListFonts?)
  difficult because core Tk font handling ignores charsets and encodings

SEE ALSO

Tk::font

AUTHOR

Slaven Rezic <eserte@cs.tu-berlin.de>

Suggestions by Michael Houghton <herveus@Radix.Net>.

COPYRIGHT

Copyright (c) 1998,1999 Slaven Rezic. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.