X11Font(3) User Contributed Perl Documentation X11Font(3)NAME
Tk::Font - a class for finding X Fonts
SYNOPSIS
use Tk::X11Font;
$font = $widget->X11Font(foundry => 'adobe',
family => 'times',
point => 120
);
$font = $widget->X11Font('*-courier-medium-r-normal-*-*');
DESCRIPTION
This module can be use to interrogate the X server what fonts are
avaliable.
METHODS
Foundry( [ $val ] )
Family( [ $val ] )
Weight( [ $val ] )
Slant( [ $val ] )
Swidth( [ $val ] )
Adstyle( [ $val ] )
Pixel( [ $val ] )
Point( [ $val ] )
Xres( [ $val ] )
Yres( [ $val ] )
Space( [ $val ] )
Avgwidth( [ $val ] )
Registry( [ $val ] )
Encoding( [ $val ] )
Set the given field in the font name to $val if given and return the current or previous value
Name( [ $max ] )
In a list context it returns a list of all font names that match the fields given. It will return a maximum of $max names, or 128 if $max
is not given.
In a scalar contex it returns the first matching name or undef
Clone( [ key => value, [ ...]] )
Create a duplicate of the curent font object and modify the given fields
AUTHOR
Graham Barr <Graham.Barr@tiuk.ti.com>
HISTORY
11-Jan-96 Initial version
08-Nov-98 Renamed for Tk800.012
COPYRIGHT
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.
perl v5.16.3 2014-06-10 X11Font(3)
Check Out this Related Man Page
X11Font(3pm) User Contributed Perl Documentation X11Font(3pm)NAME
Tk::Font - a class for finding X Fonts
SYNOPSIS
use Tk::X11Font;
$font = $widget->X11Font(foundry => 'adobe',
family => 'times',
point => 120
);
$font = $widget->X11Font('*-courier-medium-r-normal-*-*');
DESCRIPTION
This module can be use to interrogate the X server what fonts are
avaliable.
METHODS
Foundry( [ $val ] )
Family( [ $val ] )
Weight( [ $val ] )
Slant( [ $val ] )
Swidth( [ $val ] )
Adstyle( [ $val ] )
Pixel( [ $val ] )
Point( [ $val ] )
Xres( [ $val ] )
Yres( [ $val ] )
Space( [ $val ] )
Avgwidth( [ $val ] )
Registry( [ $val ] )
Encoding( [ $val ] )
Set the given field in the font name to $val if given and return the current or previous value
Name( [ $max ] )
In a list context it returns a list of all font names that match the fields given. It will return a maximum of $max names, or 128 if $max
is not given.
In a scalar contex it returns the first matching name or undef
Clone( [ key => value, [ ...]] )
Create a duplicate of the curent font object and modify the given fields
AUTHOR
Graham Barr <Graham.Barr@tiuk.ti.com>
HISTORY
11-Jan-96 Initial version
08-Nov-98 Renamed for Tk800.012
COPYRIGHT
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.
perl v5.14.2 2010-05-29 X11Font(3pm)
Man Page
15 More Discussions You Might Find Interesting
1. Post Here to Contact Site Administrators and Moderators
I have a value in $val
val will be having like 00011 or 11010 etc
i need to get first charector, second charector in defferent variable.
Please help (1 Reply)
I have a file with some values in a tab delimted format
Eg:
'test' contains:
a<tab>b<tab>c<tab>Trk_12345678
now i need to capture this value 'Trk_12345678' into a variable say 'x' and append that value of 12345678 to 12345679 and store is back to a new 'test1' file as :
'test1'... (11 Replies)
Hi,
see the simple code below
double i;
i=8080.9940;
printf(" val :%.30f\n",i);
output i m getting is
val :8080.993999999999700000000000000
when i m expecting
val :8080.9940
what happens?how can i avoid it?
thanks... (2 Replies)
if -o ]
then
echo "Expected valid value"
The above multiple if condition is NOT working in my script.
I am getting the error as '-a' not expected. Can anyone help with the syntax for this? (5 Replies)
if ( ( ( $val eq "ssd_max_throttle" ) || ( $val eq "ssd_io_time" ) ) && ( $proc eq "i386" ) ) {
print "im in";
next CONFLINE;
}
The code never goes in to the braces, even though $proc is... (3 Replies)
I have an awk script like below
function abs(val) {
return val > 0 ? val : -val
}
# 1. Main input loop, executed for each line of input
BEGIN { RS = ORS = ">" }
{ if ( NF > 2 )
{
if ( abs( $1 - $(NF-2) ) < 40 ) { print }
}
}
The input file is something like... (2 Replies)
Iam trying to print one varaible in which it needs to get value from another variable.
val=br
br_queue=X
q=${val}_queue
echo "$q"
-------
it should print -- X (3 Replies)
Is it possible to pass a dynamic value or value from a variable to NF in order to print that specific field..or can we use anyother command? Pls throw some light here...
val=2
echo "REM NAAM,PATH SOUTHERN CENRTA REM NAAM,MARKET,SCAN, 0000000000000004228654." |awk -F, 'NF="$val" {print $NF}'
... (9 Replies)
Hi,
I have two files
Hi,
I have two files
file1 :>
Code:
val="10" port="localhost:8080"httpadd="http:\\192.168.0.239"
file2 :>
Code:
val=${val} val="pdssx" port=${port}port="1324"httpadd=${httpadd}httpadd="raamraav"fileloc=${fileloc}
file3(or file2) should have following... (1 Reply)
hello
every time i run the following code
for val in fileX fileY fileZ
do
$val=`ls -l $val | awk '{print $5}'`
done
i got error message command not found , i tried to add ' and " but nothing works
its only worked wen remove $val=
but i want the name of the file and the value
... (9 Replies)
I want to calculate the following expression in script:
val=179584.0
($val *3*16384)/(1073741824)
$val will have a floating value.
Thanks!
I tried with following:
n=$(echo |awk '{ print $val*3*16384 }')
n=$(echo |awk '{ v=$val; print $v*3*16384 }')
expr $val \* 3.0 \*... (10 Replies)