home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 May
/
Chip_2000-05_cd1.bin
/
zkuste
/
Perl
/
ActivePerl-5.6.0.613.msi
/
䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥
/
_4bc488f4bcb925870d5d706b1d220ebc
< prev
next >
Wrap
Text File
|
2000-03-23
|
5KB
|
147 lines
<HTML>
<HEAD>
<TITLE>Tk::Font - a class for finding X Fonts</TITLE>
<LINK REL="stylesheet" HREF="../../../Active.css" TYPE="text/css">
<LINK REV="made" HREF="mailto:">
</HEAD>
<BODY>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
<TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
<STRONG><P CLASS=block> Tk::Font - a class for finding X Fonts</P></STRONG>
</TD></TR>
</TABLE>
<A NAME="__index__"></A>
<!-- INDEX BEGIN -->
<UL>
<LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
<LI><A HREF="#synopsis">SYNOPSIS</A></LI>
<LI><A HREF="#description">DESCRIPTION</A></LI>
<LI><A HREF="#methods">METHODS</A></LI>
<UL>
<LI><A HREF="#foundry( [ $val ] )">Foundry( [ $val ] )</A></LI>
<LI><A HREF="#family( [ $val ] )">Family( [ $val ] )</A></LI>
<LI><A HREF="#weight( [ $val ] )">Weight( [ $val ] )</A></LI>
<LI><A HREF="#slant( [ $val ] )">Slant( [ $val ] )</A></LI>
<LI><A HREF="#swidth( [ $val ] )">Swidth( [ $val ] )</A></LI>
<LI><A HREF="#adstyle( [ $val ] )">Adstyle( [ $val ] )</A></LI>
<LI><A HREF="#pixel( [ $val ] )">Pixel( [ $val ] )</A></LI>
<LI><A HREF="#point( [ $val ] )">Point( [ $val ] )</A></LI>
<LI><A HREF="#xres( [ $val ] )">Xres( [ $val ] )</A></LI>
<LI><A HREF="#yres( [ $val ] )">Yres( [ $val ] )</A></LI>
<LI><A HREF="#space( [ $val ] )">Space( [ $val ] )</A></LI>
<LI><A HREF="#avgwidth( [ $val ] )">Avgwidth( [ $val ] )</A></LI>
<LI><A HREF="#registry( [ $val ] )">Registry( [ $val ] )</A></LI>
<LI><A HREF="#encoding( [ $val ] )">Encoding( [ $val ] )</A></LI>
<LI><A HREF="#name( [ $max ] )">Name( [ $max ] )</A></LI>
<LI><A HREF="#clone( [ key => value, [ ...]] )">Clone( [ key => value, [ ...]] )</A></LI>
</UL>
<LI><A HREF="#author">AUTHOR</A></LI>
<LI><A HREF="#history">HISTORY</A></LI>
<LI><A HREF="#copyright">COPYRIGHT</A></LI>
</UL>
<!-- INDEX END -->
<HR>
<P>
<H1><A NAME="name">NAME</A></H1>
<P>Tk::Font - a class for finding X Fonts</P>
<P>
<HR>
<H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
<UL>
<LI>Linux</LI>
<LI>Solaris</LI>
<LI>Windows</LI>
</UL>
<HR>
<H1><A NAME="synopsis">SYNOPSIS</A></H1>
<PRE>
use Tk::X11Font;</PRE>
<PRE>
$font = $widget->X11Font(foundry => 'adobe',
family => 'times',
point => 120
);</PRE>
<PRE>
$font = $widget->X11Font('*-courier-medium-r-normal-*-*');</PRE>
<P>
<HR>
<H1><A NAME="description">DESCRIPTION</A></H1>
<PRE>
This module can be use to interrogate the X server what fonts are
avaliable.</PRE>
<P>
<HR>
<H1><A NAME="methods">METHODS</A></H1>
<P>
<H2><A NAME="foundry( [ $val ] )">Foundry( [ $val ] )</A></H2>
<P>
<H2><A NAME="family( [ $val ] )">Family( [ $val ] )</A></H2>
<P>
<H2><A NAME="weight( [ $val ] )">Weight( [ $val ] )</A></H2>
<P>
<H2><A NAME="slant( [ $val ] )">Slant( [ $val ] )</A></H2>
<P>
<H2><A NAME="swidth( [ $val ] )">Swidth( [ $val ] )</A></H2>
<P>
<H2><A NAME="adstyle( [ $val ] )">Adstyle( [ $val ] )</A></H2>
<P>
<H2><A NAME="pixel( [ $val ] )">Pixel( [ $val ] )</A></H2>
<P>
<H2><A NAME="point( [ $val ] )">Point( [ $val ] )</A></H2>
<P>
<H2><A NAME="xres( [ $val ] )">Xres( [ $val ] )</A></H2>
<P>
<H2><A NAME="yres( [ $val ] )">Yres( [ $val ] )</A></H2>
<P>
<H2><A NAME="space( [ $val ] )">Space( [ $val ] )</A></H2>
<P>
<H2><A NAME="avgwidth( [ $val ] )">Avgwidth( [ $val ] )</A></H2>
<P>
<H2><A NAME="registry( [ $val ] )">Registry( [ $val ] )</A></H2>
<P>
<H2><A NAME="encoding( [ $val ] )">Encoding( [ $val ] )</A></H2>
<P>Set the given field in the font name to <CODE>$val</CODE> if given and return the current
or previous value</P>
<P>
<H2><A NAME="name( [ $max ] )">Name( [ $max ] )</A></H2>
<P>In a list context it returns a list of all font names that match the
fields given. It will return a maximum of <CODE>$max</CODE> names, or 128 if
$max is not given.</P>
<P>In a scalar contex it returns the first matching name or undef</P>
<P>
<H2><A NAME="clone( [ key => value, [ ...]] )">Clone( [ key => value, [ ...]] )</A></H2>
<P>Create a duplicate of the curent font object and modify the given fields</P>
<P>
<HR>
<H1><A NAME="author">AUTHOR</A></H1>
<P>Graham Barr <<A HREF="mailto:Graham.Barr@tiuk.ti.com">Graham.Barr@tiuk.ti.com</A>></P>
<P>
<HR>
<H1><A NAME="history">HISTORY</A></H1>
<P>11-Jan-96 Initial version</P>
<P>08-Nov-98 Renamed for Tk800.012</P>
<P>
<HR>
<H1><A NAME="copyright">COPYRIGHT</A></H1>
<P>Copyright (c) 1995-1996 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.</P>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
<TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
<STRONG><P CLASS=block> Tk::Font - a class for finding X Fonts</P></STRONG>
</TD></TR>
</TABLE>
</BODY>
</HTML>