Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: How Can My Perl/Tk Program use a Defined Font for All Widgets?

by zentara (Archbishop)
on Dec 09, 2018 at 15:55 UTC ( #1227009=note: print w/replies, xml ) Need Help??


in reply to How Can My Perl/Tk Program use a Defined Font for All Widgets?

Hi, you can also try Tk::FontDialog and the RefontTree method.
#!/usr/bin/perl use warnings; use strict; use Tk; use Tk::FontDialog; my $top=new MainWindow; my $font; my $fd; my $b = $top->Button(-text => 'Choose Font', -command => sub { $font = $fd->Show; apply_font($font); })->pack; my $f = $top->Frame->pack; $f->Label(-text => 'Test RefontTree 1')->pack; my $f2 = $f->Frame->pack; $f2->Label(-text => 'Test RefontTree 2')->pack; my $c = $f2->Canvas(-width => 100, -height => 30)->pack; $c->createText(0,0,-anchor => 'nw', -text => 'Canvas Text'); $fd = $top->FontDialog(-nicefont => 0, -title => 'Select Font', -applycmd => \&apply_font, -familylabel => 'Schrift~familie', -fixedfontsbutton => 1, -nicefontsbutton => 1, ); my $bf = $top->Frame->pack; $bf->Button(-text => 'OK', -command => sub { print "ok\n"; $top->destroy;})->pack(-side => 'left'); MainLoop; sub apply_font { my $font = shift; if (defined $font) { $b->configure(-font => $font); $f->RefontTree(-font => $font, -canvas => 1); } }

I'm not really a human, but I play one on earth. ..... an animated JAPH
  • Comment on Re: How Can My Perl/Tk Program use a Defined Font for All Widgets?
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1227009]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2019-10-17 01:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?