diff options
author | Norbert Preining <preining@logic.at> | 2008-07-07 20:03:47 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-07 20:03:47 +0000 |
commit | 6e1a47c2d9c0da69ac493a6e627bd89676d461a2 (patch) | |
tree | 661fd3f01bd7a6ee2ec3291b749ddcb12d15d7e8 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | b513091396d7bb3805029472d389fba6718f3efb (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
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 8 |
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; |