diff options
| author | Norbert Preining <preining@logic.at> | 2008-01-16 06:53:04 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-01-16 06:53:04 +0000 |
| commit | 1dd7b55e44a373ac049f4c4ef7592a0a1bed2e49 (patch) | |
| tree | a980056cf34a8199027b5b534b4fa4c62833cb04 /Master/tlpkg/TeXLive | |
| parent | e357a2b619f7fdecf067280f32433ebd8b20cc28 (diff) | |
new image for installer in PNG format, and add PNG support stuff for instll perl
git-svn-id: svn://tug.org/texlive/trunk@6249 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/install-menu-perltk.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/install-menu-perltk.pl b/Master/tlpkg/TeXLive/install-menu-perltk.pl index 3e8812747c3..d90ab752744 100644 --- a/Master/tlpkg/TeXLive/install-menu-perltk.pl +++ b/Master/tlpkg/TeXLive/install-menu-perltk.pl @@ -28,6 +28,7 @@ my $return = $MENU_INSTALL; require Tk; require Tk::Dialog; +require Tk::PNG; my $mw; @@ -86,7 +87,7 @@ sub run_menu { # image frame on the left my $fl = $mw->Frame; - my $img = $fl->Pixmap(-file => "install-tl.xpm"); + my $img = $fl->Photo(-format => 'png', -file => "texlive2008.png"); $fl->Label(-image => $img)->pack; # data frame on the right |