From 284392d97caa36c528a51854cd008a11c0d3ca9f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 19 May 2008 05:42:10 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl | 6 +++--- 1 file 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('<>', 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"); -- cgit v1.2.3