diff options
| -rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl | 6 |
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"); |