diff options
author | lecoanet | 2004-04-30 11:35:18 +0000 |
---|---|---|
committer | lecoanet | 2004-04-30 11:35:18 +0000 |
commit | ab8c32aa36de495c5f646459565e93382748c0af (patch) | |
tree | 11651a046892a439a3d449dce4e0c4fc7bc7a102 /Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | |
parent | f379f9177304875b19f19536c0b7eb199b42b512 (diff) | |
download | tkzinc-ab8c32aa36de495c5f646459565e93382748c0af.zip tkzinc-ab8c32aa36de495c5f646459565e93382748c0af.tar.gz tkzinc-ab8c32aa36de495c5f646459565e93382748c0af.tar.bz2 tkzinc-ab8c32aa36de495c5f646459565e93382748c0af.tar.xz |
Update bogus font names and scrollbar protocol (items.pl)
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl index 86f419f..8e3ca9d 100644 --- a/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl +++ b/Perl/demos/Tk/demos/zinc_lib/tkZincLogo.pl @@ -13,7 +13,7 @@ use Tk::Zinc; use strict; use Tk::Zinc::Logo; # this module implements a class which instances are Zinc logo! -my $defaultfont = '-adobe-helvetica-bold-r-normal-*-140-*-*-*-*-*-*'; +my $defaultfont = '-adobe-helvetica-bold-r-normal--*-140-*-*-*-*-*-*'; my $mw = MainWindow->new(); my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true -height 7 -scrollbars ''/); |