diff options
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl | 18 | ||||
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 2 |
2 files changed, 13 insertions, 7 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl b/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl index c9222d93e9f..1651224f309 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl @@ -162,14 +162,18 @@ sub do_listframe { -padx => "2m", -pady => "2m", -sticky => "we"); my $f_buttonf_optionsf = $f_buttonf->Frame(); - $f_buttonf_optionsf->Checkbutton(-text => "force", - -variable => \$opt_force - )->pack(-side => 'left') - if ($with_force); - $f_buttonf_optionsf->Checkbutton(-text => "without depends", + if ($with_force) { + my $foo = $f_buttonf_optionsf->Checkbutton(-text => "force", + -variable => \$opt_force + )->pack(-side => 'left'); + $balloon->attach($foo,-balloonmsg => "Force the removal of a package even if it is referenced in a collection."); + } + if ($with_deps) { + my $foo = $f_buttonf_optionsf->Checkbutton(-text => "without depends", -variable => \$opt_nodepends - )->pack(-side => 'left') - if ($with_deps); + )->pack(-side => 'left'); + $balloon->attach($foo,-balloonmsg => "For collections: install or remove will not install/remove the dependencies"); + } $f_buttonf_optionsf->pack; foreach my $k (keys %$buttonsref) { $f_buttonf->Button(-text => $buttonsref->{$k}{'-text'}, diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl index 7b1a7c95aae..012efe4b3da 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl @@ -33,6 +33,7 @@ use Tk::Dialog; use Tk::NoteBook; use Tk::BrowseEntry; use Tk::ROText; +use Tk::Balloon; my $opt_location; my $opt_debug = 0; @@ -73,6 +74,7 @@ our $tlmediatlpdb; our @allpackages; our $mw = MainWindow->new(-title => "tlmgr 2008"); +our $balloon = $mw->Balloon(); push @update_function_list, \&init_install_media; push @update_function_list, \&create_update_list; |