diff options
author | Norbert Preining <preining@logic.at> | 2009-02-03 12:56:24 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-02-03 12:56:24 +0000 |
commit | f0f383b043500d3449eed46c1ee1fd8dced513d7 (patch) | |
tree | e45c5ca94769b2996e6109f2c379f6c983402301 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | fcc121fbd794ac2f5dcec86ca94ddc5e0dea17ee (diff) |
rework install logic so that we can switch over to the GUI from wizard
without all those warnings about redefined subs
git-svn-id: svn://tug.org/texlive/trunk@12062 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 | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 5786a299097..dcca6100ca2 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -223,7 +223,7 @@ my $fmtyesno = ( $vars{'option_fmt'} ? $text{'yes'} : $text{'no'} ); my $srcyesno = ( $vars{'option_src'} ? $text{'yes'} : $text{'no'} ); my $docyesno = ( $vars{'option_doc'} ? $text{'yes'} : $text{'no'} ); -sub run_menu { +sub run_menu_perltk { calc_depends(); $mainwindow = Tk::MainWindow->new; @@ -402,6 +402,7 @@ sub run_menu { Tk::MainLoop(); return($return); } +$::run_menu = \&run_menu_perltk; sub installation_window { # create a progress bar window @@ -923,20 +924,6 @@ sub dump_vars_stdout { } } -sub select_collections { - my $varref = shift; - foreach (@_) { - $varref->{$_} = 1; - } -} - -sub deselect_collections { - my $varref = shift; - foreach (@_) { - $varref->{$_} = 0; - } -} - sub toggle_and_set_opt_variable { my ($varsref, $toggleref) = @_; $$toggleref = ($$toggleref eq $text{'yes'}) ? $text{'no'} : $text{'yes'}; |