balloon help for the option buttons

git-svn-id: svn://tug.org/texlive/trunk@8024 c570f23f-e606-0410-a88d-b1316a301751

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;