diff options
author | Norbert Preining <preining@logic.at> | 2008-01-16 07:48:45 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-16 07:48:45 +0000 |
commit | 83b1883c4593344fad275ff17cd01c6ab5a51e9f (patch) | |
tree | 900c48e897f5a2ac29f5c791599948739b8d47c5 /Master/tlpkg/TeXLive | |
parent | 14f42823e29bd35f4acd0cb0e6d756bd67c5d46c (diff) |
fixes for 800x600 on windows, add stuff
git-svn-id: svn://tug.org/texlive/trunk@6253 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/install-menu-perltk.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/install-menu-perltk.pl b/Master/tlpkg/TeXLive/install-menu-perltk.pl index d90ab752744..894382c8ac3 100644 --- a/Master/tlpkg/TeXLive/install-menu-perltk.pl +++ b/Master/tlpkg/TeXLive/install-menu-perltk.pl @@ -81,7 +81,10 @@ sub update_statusbar { } sub run_menu { - my $a = 45; my $b = 35; my $c = 3; + my $a = 35; my $b = 35; my $c = 6; + if (win32()) { + $a = 25; $b = 30; + } calc_depends; $mw = MainWindow->new; @@ -130,19 +133,19 @@ sub run_menu { # texdir line my $ftexdir = $fr->Frame; $ftexdir->pack; - $ftexdir->Label(-text => "TEXDIR (The main TeX directory)", -width => $a, -anchor => 'w')->pack(-side => 'left'); + $ftexdir->Label(-text => "TEXDIR (main TeX directory)", -width => $a, -anchor => 'w')->pack(-side => 'left'); $texdirtext = $ftexdir->Label(-width => $b, -anchor => 'w')->pack(-side => 'left'); $ftexdir->Button(-width => $c, -text => 'Change', -command => sub { menu_edit_vars_value("TEXDIR"); })->pack(-side => 'left'); # texmflocal line my $flocal = $fr->Frame; $flocal->pack; - $flocal->Label(-text => "TEXMFLOCAL (Directory for local styles etc)", -width => $a, -anchor => 'w')->pack(-side => 'left'); + $flocal->Label(-text => "TEXMFLOCAL (local styles etc)", -width => $a, -anchor => 'w')->pack(-side => 'left'); $texmflocaltext = $flocal->Label(-width => $b, -anchor => 'w')->pack(-side => 'left'); $flocal->Button(-width => $c, -text => 'Change', -command => sub { menu_edit_vars_value("TEXMFLOCAL"); })->pack(-side => 'left'); # texmflocal line my $fsys = $fr->Frame; $fsys->pack; - $fsys->Label(-text => "TEXMFSYSVAR (Directory for local config)", -width => $a, -anchor => 'w')->pack(-side => 'left'); + $fsys->Label(-text => "TEXMFSYSVAR (local config)", -width => $a, -anchor => 'w')->pack(-side => 'left'); $texmfsysvartext = $fsys->Label(-width => $b, -anchor => 'w')->pack(-side => 'left'); $fsys->Button(-width => $c, -text => 'Change', -command => sub { menu_edit_vars_value("TEXMFSYSVAR"); })->pack(-side => 'left'); |