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]

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

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...