Re^2: wide scrollbars

Hi, and thanks for the response!

Below is the smallest possible example that fails for me. Any ideas on what I might be doing wrong?

Thanks in advance!

Geoff


#!/bin/sh
#! -*- perl -*-
eval 'exec /import/hstools/local/perl/perl-5.18.4/bin/perl -x $0 ${1+"
+$@"}'
  if 0;

use Tk;

$scrollwidth = 6000;
$scrollheight = 2200;

my $main = new MainWindow;

$maincanvas = $main->Scrolled(qw/Canvas -bg white -height 600 -width 1
+200  -borderwidth 0 -scrollbars se -scrollregion/ => ['0', '0', $scro
+llwidth, $scrollheight]) ->pack(@pl);

MainLoop;
[download]

Comment on Re^2: wide scrollbars Download Code

Replies are listed 'Best First'.
Re^3: wide scrollbars by Anonymous Monk on Nov 04, 2016 at 23:06 UTC
What do you mean by "wide exactly"? You're setting the scrollregion at $scrollwidth = 6000, that means the canvas size is 6000, screen can only show ~1200 of the canvas, but its at least 6000 wide, so the scroll bar scrolls	[reply]
Re^4: wide scrollbars by gpilling (Initiate) on Nov 04, 2016 at 23:40 UTC
The scroll bars themselves become very wide, i.e. the box/rectangle you click on to move the canvas around, not the size of the canvas itself. Its over an inch tall and looks pretty ridiculous... :-/ I'll see if I can send you a screen shot. The odd thing is that everyone else in my group runs the same script, and for them, the scroll bars are the normal size. So I'm wondering if there may be some sort of "personal perl settings" that I'm not aware of.... Hmmmm...	[reply]
Re^5: wide scrollbars by Anonymous Monk on Nov 05, 2016 at 00:29 UTC
Which version do you have? I'm on windows with the latest version `$ pmvers Tk 804.033` [download] the scrollbars themselves look regular size	[reply] [d/l]