summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-07 20:03:47 +0000
committerNorbert Preining <preining@logic.at>2008-07-07 20:03:47 +0000
commit6e1a47c2d9c0da69ac493a6e627bd89676d461a2 (patch)
tree661fd3f01bd7a6ee2ec3291b749ddcb12d15d7e8
parentb513091396d7bb3805029472d389fba6718f3efb (diff)
GUI installer: center image, background as image, rev at bottom
git-svn-id: svn://tug.org/texlive/trunk@9344 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index c78b4631758..44feb27351b 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -228,14 +228,14 @@ sub run_menu {
$mw = MainWindow->new;
# image frame on the left
- my $fl = $mw->Frame;
+ my $fl = $mw->Frame(-background => "#0078b8");
my $img = $fl->Photo(-format => 'png', -file => "tlpkg/installer/texlive2008.png");
- $fl->Label(-image => $img)->pack;
- $fl->Label(-text => "v$::installerrevision/$::menurevision")->pack;
+ $fl->Label(-image => $img, -background => "#0078b8")->pack(-expand => 1, -fill => "y");
+ $fl->Label(-text => "v$::installerrevision/$::menurevision", -background => "#0078b8")->pack;
# data frame on the right
my $fr = $mw->Frame;
- $fl->pack(-side => 'left');
+ $fl->pack(-side => 'left', -expand => 1, -fill => "y");
$fr->pack(-side => 'right');
$fr->Label(-text => $text{'title'})->pack;
$fr->Label(-text => "------- $text{'basicinfo'} -------")->pack;