diff options
author | mertz | 2005-06-21 21:14:34 +0000 |
---|---|---|
committer | mertz | 2005-06-21 21:14:34 +0000 |
commit | 6fc29fbe6bf95c196d749c8ba8973bbafdba0667 (patch) | |
tree | 59ed6338fe9d8b27741b9df991335115d3c18796 /Perl/t/Text2.t | |
parent | 3a295ef1dfea78f2c12dd2ee71ee22781bbe17aa (diff) | |
download | tkzinc-6fc29fbe6bf95c196d749c8ba8973bbafdba0667.zip tkzinc-6fc29fbe6bf95c196d749c8ba8973bbafdba0667.tar.gz tkzinc-6fc29fbe6bf95c196d749c8ba8973bbafdba0667.tar.bz2 tkzinc-6fc29fbe6bf95c196d749c8ba8973bbafdba0667.tar.xz |
This test may fail on some host, when neither verdana, helvetica, arial
fonts were found.
Using now a default courier font
Diffstat (limited to 'Perl/t/Text2.t')
-rw-r--r-- | Perl/t/Text2.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/t/Text2.t b/Perl/t/Text2.t index 2087bc2..868955a 100644 --- a/Perl/t/Text2.t +++ b/Perl/t/Text2.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # -# $Id: Text2.t,v 1.1 2005-05-11 12:54:19 lecoanet Exp $ +# $Id: Text2.t,v 1.2 2005-06-21 21:14:34 mertz Exp $ # Author: Christophe Mertz # @@ -59,7 +59,7 @@ my $TEXT = ""; my @families = $mw->fontFamilies; #print "families=@families\n"; -my $family=""; +my $family="courier"; if ( grep /^verdana$/i , @families) { $family = "verdana"; # $family = "helvetica"; |