summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dev
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-11-24 17:15:18 +0000
committerNorbert Preining <preining@logic.at>2009-11-24 17:15:18 +0000
commit01da98ba6f4010aa1cf6163e019c8ebeb24f68bd (patch)
tree2b0726ff670add3e0f590c073148c9528093e837 /Master/tlpkg/dev
parent6798e7983ab0e12483e1b4193b01db8717e579d6 (diff)
suggestions from Tomek and Manuel
git-svn-id: svn://tug.org/texlive/trunk@16152 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dev')
-rw-r--r--Master/tlpkg/dev/tlmgrgui2.pl26
1 files changed, 16 insertions, 10 deletions
diff --git a/Master/tlpkg/dev/tlmgrgui2.pl b/Master/tlpkg/dev/tlmgrgui2.pl
index 1e683d8f255..a8f5a300e9b 100644
--- a/Master/tlpkg/dev/tlmgrgui2.pl
+++ b/Master/tlpkg/dev/tlmgrgui2.pl
@@ -12,6 +12,12 @@
# to here!!
# TODO: center checkbuttons vertically
# TODO: double click on one line should pop up a window with tlmgr show info
+# TODO: if repo is changed on Options->General, the File->Load default shoul
+# change, too
+# TODO: warning window from execute_action_gui if something failed, and also
+# from some other commands that have been run
+# TODO: remove the "all <-> matching" and activate it as soon as the
+# match string is not empty.
$^W = 1;
use strict;
@@ -183,7 +189,7 @@ $menu_file->add('command', -label => "Load default net repository: $TeXLiveURL",
update_loaded_location_string();
run_update_functions();
});
-$menu_file->add('command', -label => "Load other repository",
+$menu_file->add('command', -label => "Load other repository ...",
-command => sub { menu_edit_location(); });
$menu_file->add('separator');
$menu_file->add('command', -label => __("Quit"),
@@ -192,11 +198,11 @@ $menu_file->add('command', -label => __("Quit"),
#
# OPTIONS MENU
#
-$menu_options->add('command', -label => __("General settings"),
+$menu_options->add('command', -label => __("General ..."),
-command => sub { do_general_settings(); });
-$menu_options->add('command', -label => __("Paper settings"),
+$menu_options->add('command', -label => __("Paper ..."),
-command => sub { do_paper_settings(); });
-$menu_options->add('command', -label => __("Arch settings"),
+$menu_options->add('command', -label => __("Architectures ..."),
-command => sub { do_arch_settings(); });
$menu_options->add('separator');
$menu_options->add('checkbutton', -label => __("Debug"),
@@ -251,7 +257,7 @@ if (!win32()) {
}
if (!win32()) {
$menu_actions->add('separator');
- $menu_actions->add('command', -label => __("Remove TeX Live %s", $TeXLive::TLConfig::ReleaseYear),
+ $menu_actions->add('command', -label => __("Remove TeX Live %s ...", $TeXLive::TLConfig::ReleaseYear),
-state => $::action_button_state,
-command => sub {
my $sw = $mw->DialogBox(-title => __("Remove TeX Live %s", $TeXLive::TLConfig::ReleaseYear),
@@ -582,7 +588,7 @@ $with_sel_frame->Button(-text => 'Install',
-state => $::action_button_state,
-command => sub { install_selected_packages(); }
)->pack(@left, @p_ii);
-$with_sel_frame->Button(-text => 'Upgrade',
+$with_sel_frame->Button(-text => 'Update',
-state => $::action_button_state,
-command => sub { update_selected_packages(); }
)->pack(@left, @p_ii);
@@ -707,7 +713,7 @@ sub init_defaults_setting {
}
sub do_general_settings {
- my $sw = $mw->Toplevel(-title => __("Default settings"));
+ my $sw = $mw->Toplevel(-title => __("Default options"));
$sw->transient($mw);
$sw->grab();
init_defaults_setting();
@@ -729,7 +735,7 @@ sub do_general_settings {
my @config_set_m;
my @config_set_r;
- my $back_config_set = $sw->Labelframe(-text => __("Default settings"));
+ my $back_config_set = $sw->Labelframe(-text => __("Default options"));
my $back_config_buttons = $sw->Frame();
$back_config_set->pack(-fill => "both", -padx => "2m", -pady => "2m");
@@ -938,7 +944,7 @@ sub init_all_papers {
sub do_paper_settings {
init_all_papers();
- my $sw = $mw->Toplevel(-title => __("Paper settings"));
+ my $sw = $mw->Toplevel(-title => __("Paper options"));
$sw->transient($mw);
$sw->grab();
@@ -947,7 +953,7 @@ sub do_paper_settings {
my $lower = $sw->Frame;
$lower->pack(-fill => "both");
- my $back_config_pap = $lower->Labelframe(-text => __("Paper settings"));
+ my $back_config_pap = $lower->Labelframe(-text => __("Paper options"));
my $back_config_buttons = $sw->Frame();