summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-16 07:48:45 +0000
committerNorbert Preining <preining@logic.at>2008-01-16 07:48:45 +0000
commit83b1883c4593344fad275ff17cd01c6ab5a51e9f (patch)
tree900c48e897f5a2ac29f5c791599948739b8d47c5 /Master/tlpkg/TeXLive
parent14f42823e29bd35f4acd0cb0e6d756bd67c5d46c (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.pl11
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');