diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/ivymon | 28 |
1 files changed, 20 insertions, 8 deletions
@@ -93,7 +93,7 @@ use Tk::CmdLine; use vars qw/$VERSION $opt_help $opt_b $opt_bus $opt_history @opt_bind @opt_send $opt_size $opt_undersize $opt_out $opt_debug/; # **** VERSION **** -$VERSION = '1.21'; +$VERSION = '1.23'; # options initialisation # geometry @@ -177,7 +177,8 @@ my @effectivebind; # command line options management #---------------------------------------------------------------------------------- -Tk::CmdLine::SetArguments(-font => '7x14'); +Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--10-100-75-75-C-60-ISO8859-1'); Tk::CmdLine::SetArguments(); if (not GetOptions('-help', '-history=s', '-b=s', '-bus=s', '-bind=s@', @@ -242,35 +243,46 @@ if($opt_size eq "UXGA" || $opt_size eq "1600") { $minH = 1200; $smallsized = 0; $coef = 1.2; - Tk::CmdLine::SetArguments(-font => '10x20'); + # Tk::CmdLine::SetArguments(-font => '10x20'); + Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--13-120-75-75-C-80-ISO8859-1'); Tk::CmdLine::SetArguments(); }elsif($opt_size eq "SXGA" || $opt_size eq "1280") { $minW = 1280; $minH = 1024; $smallsized = 0; $coef = 1.1; - Tk::CmdLine::SetArguments(-font => '8x13'); + # Tk::CmdLine::SetArguments(-font => '8x13'); + Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--13-120-75-75-C-80-ISO8859-1'); Tk::CmdLine::SetArguments(); }elsif($opt_size eq "XGA" || $opt_size eq "1024") { - $minW = 1024; + $minW = 1024; $minH = 768; $smallsized = 1; $coef = 1; - Tk::CmdLine::SetArguments(-font => '7x14'); + # Tk::CmdLine::SetArguments(-font => '7x14'); + Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--10-100-75-75-C-60-ISO8859-1'); + # '-Misc-Fixed-Medium-R-Normal--14-130-75-75-C-70-ISO8859-1'); Tk::CmdLine::SetArguments(); }elsif($opt_size eq "SVGA" || $opt_size eq "800") { $minW = 800; $minH = 600; $smallsized = 1; $coef = 0.64; - Tk::CmdLine::SetArguments(-font => '6x10'); + # Tk::CmdLine::SetArguments(-font => '6x10'); + Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--10-100-75-75-C-60-ISO8859-1'); Tk::CmdLine::SetArguments(); }elsif($opt_size eq "VGA" || $opt_size eq "640"){ $minW = 640; $minH = 480; $smallsized = 1; $coef = 0.48; - Tk::CmdLine::SetArguments(-font => '5x7'); + # Tk::CmdLine::SetArguments(-font => '5x7'); + Tk::CmdLine::SetArguments(-font => + '-Misc-Fixed-Medium-R-Normal--7-70-75-75-C-50-ISO8859-1'); Tk::CmdLine::SetArguments(); } |