summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-03 12:56:24 +0000
committerNorbert Preining <preining@logic.at>2009-02-03 12:56:24 +0000
commitf0f383b043500d3449eed46c1ee1fd8dced513d7 (patch)
treee45c5ca94769b2996e6109f2c379f6c983402301 /Master/tlpkg/installer/install-menu-perltk.pl
parentfcc121fbd794ac2f5dcec86ca94ddc5e0dea17ee (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.pl17
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'};