summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-05-23 02:52:48 +0000
committerNorbert Preining <preining@logic.at>2012-05-23 02:52:48 +0000
commit55bc96c5305fbbbb84a8496af57335e5f7a90384 (patch)
tree7f992cf418091f63a6d2b92f3ac2c6ee3e088558 /Master/tlpkg/installer/install-menu-perltk.pl
parent2fbf481079e7d6608174c4945b389b8a913811e8 (diff)
go back to use scrolled also on windows
git-svn-id: svn://tug.org/texlive/trunk@26585 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 5384e94496f..2cef2aec7e0 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -220,12 +220,16 @@ sub run_menu_perltk {
$mainwindow->protocol('WM_DELETE_WINDOW' => \&menu_abort);
setup_hooks_perltk();
- if (!win32()) {
+ # Taco once reported for 2010 that using these scrolled pane
+ # on Windows just died
+ # with the proliferation of netbooks and a new perl installed
+ # let us try to go back to using scrolled pane on both unix and windows
+ #if (!win32()) {
require Tk::Pane;
$subframe = $mainwindow->Scrolled("Frame", -scrollbars => "oe");
- } else {
- $subframe = $mainwindow->Frame;
- }
+ #} else {
+ # $subframe = $mainwindow->Frame;
+ #}
$mw = $subframe->Frame;
# image frame on the left