diff options
author | Norbert Preining <preining@logic.at> | 2008-05-10 15:08:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-10 15:08:16 +0000 |
commit | 35fe4021407d6a93576f080c8958e37aafecb0db (patch) | |
tree | d88103f06fd1c8eb94db7f6ad62ec3ff99cb86cd /Master/texmf | |
parent | 5fe30c01fb51adcd9854f4ed120b53a1d5cdfb46 (diff) |
balloon help for the option buttons
git-svn-id: svn://tug.org/texlive/trunk@8024 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-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; |