From 6e1a47c2d9c0da69ac493a6e627bd89676d461a2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 7 Jul 2008 20:03:47 +0000 Subject: GUI installer: center image, background as image, rev at bottom git-svn-id: svn://tug.org/texlive/trunk@9344 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 8 ++++---- 1 file 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; -- cgit v1.2.3