summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-19 05:42:10 +0000
committerNorbert Preining <preining@logic.at>2008-05-19 05:42:10 +0000
commit284392d97caa36c528a51854cd008a11c0d3ca9f (patch)
tree60600f5deeb6b368e122c6d48010ec87dfc70806
parentb00df4c6656c6e1c2f8f204e743fed9d7445f19c (diff)
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
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/do_listframe.pl6
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");