projects / OpenSPARC-T2-DV / blame
| 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 |