summaryrefslogtreecommitdiff
path: root/Master/texmf
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 /Master/texmf
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
Diffstat (limited to 'Master/texmf')
-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");