tlmgrgui: fix error with yscroll in description window

simplify the calling conventions of xyscroll/yscroll


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

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl b/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl
index 1651224f309..a91f11c1929 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl
@@ -133,9 +133,9 @@ sub do_listframe {
   $f_listf_lb->bind('<<ListboxSelect>>', 
     sub { update_info_window ($f_listf_lb, $f_textf_text, @$listref); });
   $f_listf_scrx = $f_listf->Scrollbar(
-     -command => sub { $f_listf_lb->xview(@_); }, -orient => "horizontal"); 
+     -command => [ xview => $f_listf_lb ], -orient => "horizontal"); 
   $f_listf_scry = $f_listf->Scrollbar(
-     -command => sub { $f_listf_lb->yview(@_); }, -orient => "vertical");
+     -command => [ yview => $f_listf_lb ], -orient => "vertical");
   $f_listf_scrx->pack(-side => "bottom", -fill => "x");
   $f_listf_scry->pack(-side => "right", -fill => "y", -expand => 0);
   $f_listf_lb->pack(-fill => "both", -expand => 1);
@@ -151,7 +151,7 @@ sub do_listframe {
   $f_textf_text->insert("end", "\nAttention. Please check if a DVD drive with the TeX Live DVD\nor the correct network address is properly selected.\n\nFirst fill in the list using the \"Search\" button, then select one or more items and click \"Install\" button.");
 
   $f_textf_scry = $f_textf->Scrollbar(
-      -command => sub { $f_textf_t->yview(@_); }, -orient => "vertical");
+      -command => [ yview => $f_textf_text ], -orient => "vertical");
  
   $f_textf_scry->pack(-side => "right", -fill => "y", -expand => 0);
   $f_textf_text->pack(-expand => 1, -fill => "both");