summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-09-20 08:22:42 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-09-20 08:22:42 +0000
commita2c9a709c505396a095e8ed0f80654f3406fdc2f (patch)
tree3e26dbf72071d4f91d740263e252f99883deb399 /Master
parent8786a0244c5a93960ae0e8ad9a6b4fd0bd5585af (diff)
debug => warn
git-svn-id: svn://tug.org/texlive/trunk@10653 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl32
1 files changed, 16 insertions, 16 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
index 61a959e4278..178e1161525 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl
@@ -8,7 +8,7 @@
#
# TODO:
# - (more complicated) make this script be require-able from tlmgr.pl
-# so that we don't have to do the $localtlpdb initialization
+# so that we don't have to do the $localtlpdb initialization
# twice, *and* can take advantage of the action_* routines.
# But OTOH then we will not have output into a windows, so I am not
# sure that this would be the best option.
@@ -168,7 +168,7 @@ if (defined($opt_lang)) {
if ($foo) {
$LANG = $foo;
} else {
- debug("Didn't get any useful code from reg_country: $foo...\n");
+ warn "Didn't get any useful code from reg_country: $foo...\n";
}
} else {
# we load POSIX and locale stuff
@@ -286,7 +286,7 @@ my $tlmgrrev = `tlmgr --version`;
chomp($tlmgrrev);
our $about = $top->Button(-text => ___"about",
-command => sub {
- $mw->Dialog(-title => ___"about",
+ $mw->Dialog(-title => ___"about",
-text => "TeX Live Manager GUI
$tlmgrrev
Copyright 2008 Tomasz Luczak, Norbert Preining
@@ -294,7 +294,7 @@ License under the GNU General Public License version 2 or higher
In case of problems, please contact: texlive\@tug.org",
-buttons => [ ___"ok" ])->Show;
});
-
+
$about->pack(-side => 'right');
$quit->pack(-side => 'right');
@@ -312,7 +312,7 @@ $balloon->attach(
-balloonmsg => ___"changesrclong");
$balloon->attach(
- $top->Checkbutton(-text => ___"debug",
+ $top->Checkbutton(-text => ___"debug",
-variable => \$debugmode)->pack(-side => 'left'),
-balloonmsg => ___"debugballoon");
@@ -329,9 +329,9 @@ require ("do_listframe.pl");
our $back_f1 = $back->add("install",-label => ___"install");
$screens{"install"} = $back_f1;
my $install_win = do_listframe($back_f1,
- ___"addpkg",
+ ___"addpkg",
\@allpackages,
- { install => { -text => ___"installsel",
+ { install => { -text => ___"installsel",
-command => \&install_selected_packages}},
0,1
);
@@ -340,9 +340,9 @@ set_text_win($install_win, ___"warningtxt");
our $back_up = $back->add("update", -label => ___"update");
$screens{"update"} = $back_up;
my $update_win = do_listframe($back_up,
- ___"updatepkg",
+ ___"updatepkg",
\@updatepackages,
- { updateall => { -text => ___"updateall",
+ { updateall => { -text => ___"updateall",
-command => \&update_selected_packages,
-args => [ "--all" ]
},
@@ -378,8 +378,8 @@ if ($opt_load) {
if (defined($opt_screen)) {
- $back->raise("$opt_screen");
-}
+ $back->raise("$opt_screen");
+}
$splash->Destroy;
$mw->deiconify;
@@ -429,7 +429,7 @@ sub run_program_show_output {
my $td = $mw->Toplevel(-title => ___"tlmgr process");
$td->transient($mw);
$td->grab();
- my $tf = $td->Scrolled("ROText", -width => 80,
+ my $tf = $td->Scrolled("ROText", -width => 80,
-height => 10,
-wrap => "none",
-scrollbars => "ose"
@@ -589,7 +589,7 @@ sub create_update_list {
} else {
push @ret, $lp;
}
- }
+ }
}
foreach my $p (@archret) {
my $foundparent = 0;
@@ -650,7 +650,7 @@ sub menu_edit_location {
my $entry = $sw->Entry(-text => $location, -width => 30);
$entry->pack();
my $f1 = $sw->Frame;
- $f1->Button(-text => ___"choosedir",
+ $f1->Button(-text => ___"choosedir",
-command => sub {
my $var = $sw->chooseDirectory;
if (defined($var)) {
@@ -666,7 +666,7 @@ sub menu_edit_location {
$f1->pack;
my $f = $sw->Frame;
my $okbutton = $f->Button(-text => ___"ok",
- -command => sub { $location = $entry->get;
+ -command => sub { $location = $entry->get;
run_update_functions();
$sw->destroy;
})->pack(-side => 'left', -padx => "2m", -pady => "2m");
@@ -684,7 +684,7 @@ sub run_update_functions {
}
sub check_location_on_ctan {
- # we want to check that if mirror.ctan.org
+ # we want to check that if mirror.ctan.org
# is used that we select a mirror once
if ($location =~ m/$TeXLive::TLConfig::TeXLiveServerURL/) {
$location = TeXLive::TLUtils::give_ctan_mirror();