summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
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