Master/tlpkg/tlperl.old/lib/Tk/Xlib.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Tk::Xlib;
require DynaLoader;

use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/Xlib/Xlib.pm#4 $

use Tk qw($XS_VERSION);
use Exporter;

use base  qw(DynaLoader Exporter);
@EXPORT_OK = qw(XDrawString XLoadFont XDrawRectangle);

bootstrap Tk::Xlib;

1;