Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | |
2 | =head1 NAME | |
3 | ||
4 | Tk::Font - a class for finding X Fonts | |
5 | ||
6 | =for pm Tk/X11Font.pm | |
7 | ||
8 | =for category Tk Generic Methods | |
9 | ||
10 | =head1 SYNOPSIS | |
11 | ||
12 | use Tk::X11Font; | |
13 | ||
14 | $font = $widget->X11Font(foundry => 'adobe', | |
15 | family => 'times', | |
16 | point => 120 | |
17 | ); | |
18 | ||
19 | $font = $widget->X11Font('*-courier-medium-r-normal-*-*'); | |
20 | ||
21 | =head1 DESCRIPTION | |
22 | ||
23 | This module can be use to interrogate the X server what fonts are | |
24 | avaliable. | |
25 | ||
26 | =head1 METHODS | |
27 | ||
28 | =head2 Foundry( [ $val ] ) | |
29 | ||
30 | =head2 Family( [ $val ] ) | |
31 | ||
32 | =head2 Weight( [ $val ] ) | |
33 | ||
34 | =head2 Slant( [ $val ] ) | |
35 | ||
36 | =head2 Swidth( [ $val ] ) | |
37 | ||
38 | =head2 Adstyle( [ $val ] ) | |
39 | ||
40 | =head2 Pixel( [ $val ] ) | |
41 | ||
42 | =head2 Point( [ $val ] ) | |
43 | ||
44 | =head2 Xres( [ $val ] ) | |
45 | ||
46 | =head2 Yres( [ $val ] ) | |
47 | ||
48 | =head2 Space( [ $val ] ) | |
49 | ||
50 | =head2 Avgwidth( [ $val ] ) | |
51 | ||
52 | =head2 Registry( [ $val ] ) | |
53 | ||
54 | =head2 Encoding( [ $val ] ) | |
55 | ||
56 | Set the given field in the font name to C<$val> if given and return the current | |
57 | or previous value | |
58 | ||
59 | =head2 Name( [ $max ] ) | |
60 | ||
61 | In a list context it returns a list of all font names that match the | |
62 | fields given. It will return a maximum of C<$max> names, or 128 if | |
63 | $max is not given. | |
64 | ||
65 | In a scalar contex it returns the first matching name or undef | |
66 | ||
67 | =head2 Clone( [ key => value, [ ...]] ) | |
68 | ||
69 | Create a duplicate of the curent font object and modify the given fields | |
70 | ||
71 | =head1 AUTHOR | |
72 | ||
73 | Graham Barr <Graham.Barr@tiuk.ti.com> | |
74 | ||
75 | =head1 HISTORY | |
76 | ||
77 | 11-Jan-96 Initial version | |
78 | ||
79 | 08-Nov-98 Renamed for Tk800.012 | |
80 | ||
81 | =head1 COPYRIGHT | |
82 | ||
83 | Copyright (c) 1995-1996 Graham Barr. All rights reserved. This program is free | |
84 | software; you can redistribute it and/or modify it under the same terms | |
85 | as Perl itself. | |
86 | ||
87 | =cut | |
88 |