#!/usr/bin/perl
use warnings;
use strict;
use Tk;


my $mw = tkinit();
$mw->optionAdd('*font', 'Helvetica 24');

my $menubar = $mw->Menu(-type => 'menubar');
$mw->configure(-menu => $menubar);
my $menu = $menubar->cascade(-label => '~File');
$menu->command(-label => '~New');
$menu->command(-label => '~Open');


$mw->Button(-text => 'test this font')->pack;
$mw->Label(-text => 'test this font')->pack;

my $text = $mw->Text( -height => 4, -width =>20)->pack;
$text->insert('0.0','test this font');

my $canvas = $mw->Canvas->pack;


my  $font = $mw->Font(-family=> 'Helvetica', 
                      -size  => 24);
           
$canvas->createText( 0, 0, -anchor => 'nw', 
          -text => 'test this font',
          -font => $font,
           );

MainLoop;