---
name: "Tk::X11Font"
section: "3pm"
platform: "linux"
package: "perl-tk"
version: "804.036-9"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/Tk::X11Font"
---

# Tk::X11Font(3pm)

a class for finding X Fonts

## 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.