If you want both horizontal and vertical scrollbars, you have to say: -scollbars es, not -scrollbars e -scrollbars s

Those named parameters are indeed hash elements, to reassign them, simply overwrites the existing value.

One example:

use Tk;
use strict;
use warnings;

sub something {
    my $box = shift;
    $box->delete("1.0", "end");
    $box->insert("end", $_) for (1 .. 100);
}

my $mw = MainWindow->new(title=>"Scrollbar Demo");
my $box = $mw->Scrolled(qw/Text -width 100 -height 15 -scrollbars se/)
+->pack;
$mw->Button(text=>"click", command=>[\&something, $box])->pack;
MainLoop;
[download]

Anyway, I gather that the bottom scrollbar is spanning the full width of the frame that contains the canvas (800 wide), which certainly seems wrong -- although you say it actually does scroll the image as intended when you click on its various elements.

I don't have a direct answer to the sizing problem, but I would point out that you could (probably should) combine the two "-scrollbars" parameters into one:  -scrollbars => 'sow', -- sorry if that turns out to be off the mark... Apart from that, have you confirmed that the "$height" and "$width" variables actually have the expected values (as opposed to, say, zero or undef)?

Provided the way Tk processes passed arguments, one *must* combine same parameters into a single one, otherwise only latest will be in effect.

Most probably you pointed exactly at the problem place.

Courage, the Cowardly Dog

Sorry if it was a bit confusing. I do have an 800 x 600 Tk window with a canvas that defaults to 300 x 300 if the image is larger than that, or is sized at the graphic's actual size if it's smaller than 300 x 300. (Yes I did mean it was 700 x 200)

I do know that the height and width are coming in correctly as I'm pulling those values right from the gif file itself.

You're on the mark with the -scrollbars => 'sow' I know that, however when I tried to use -scrollbars => 'osow' both scrollbars disappeared. That's why I thought to put them as seperate items.

Thanks for the idea though. Back to the books I guess. :)

There is no emoticon for what I'm feeling now.

If you want the canvas to be the size of the image AND the scrollbars to fit in that canvas, then you will have to

1. create another frame the size of your image, and
2. create the canvas and place it in the frame

my $main_frame = tkinit();
# make this frame the size of your image
my $canvas_frame = $main_frame->Frame( ...options... );
my $tcanvas = $canvas_frame->Scrolled('Canvas',  
                                      ...options...);
my $canvas = $tcanvas->Subwidget('canvas');
[download]

Try making the frame smaller than the image to see that the scrollbars appear as you want them. Also, you need to combine the '-scrollbar' options as mentioned before.

--
hiseldl
What time is it? It's Camel Time!

Actually the only time I want to see the scrollbars is when the image is larger than 300 x 300. That's why I tried to do the optional bit. My thinking is, after reading the replies, that I should probably test the size of my graphic in the subroutine that gets the size, see if it's over my defined limit and build a string of what I want to see as scrollbars rather than use the optional bit. That may be a bit of a kludge, but using -scrollbars => 'osow' makes them both disappear.

There is no emoticon for what I'm feeling now.

the only time I want to see the scrollbars is when the image is larger than 300 x 300

Aha! I think you want to set the -scrollregion. Set the -scrollregion after you have populated the canvas so that the scrollbars can reset to where they need to be. I loaded a 300x300 image and the scrollbars were not there, then I loaded a 400x400 image and the scrollbars both appeared.

use Tk 800.000;
use Tk::Canvas;

use strict;

my $main = Tk::MainWindow->new();

my $canvas=$main->Scrolled('Canvas',
                           -scrollbars => 'osoe',
                           -bg=>'white',
                           -width=>300,
                           -height=>300,
                           )->pack();


my $image300x300 = $canvas->Photo(-file=>'300x300.gif');
my $image400x400 = $canvas->Photo(-file=>'400x400.gif');

my $id = $canvas->createImage(200,200,-image => $image400x400);

# configure the scrollregion AFTER you populate the 
# canvas widget to reset the scrollbars
$canvas->configure( -scrollregion => [ $canvas->bbox("all") ]);

MainLoop;
[download]

Is this what you're looking for?

--
hiseldl
What time is it? It's Camel Time!