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');