Hi, I'm not sure what you mean by "working slow"? I ran your code and it built and ran fast enough so that there didn't seem to be a problem. However, alI I got was 4000 squares which didn't have a scrollbar, but scrolled well with my mousewheel.

When I added "use warnings", I got

Argument "5.88383838383838384.0" isn't numeric in division (/) at ./12
+04438.pl line 42
[download]

I'm not going to try and figure out what your program does, but you might want to look at Re: I seek illumination and knowledge for a sample canvas program that works.

Or, a simpler version:

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw =  new MainWindow();
$mw->geometry("600x400+200+200");

#for xscroll, must be packed before midframe to be visible
my $botframe  = $mw->Frame(-bg=>'grey45')
                   ->pack(-fill=>'x',-side=>'bottom');

my $midframe = $mw->Frame(-bg=>'grey45')->pack();
my $midframel = $midframe->Frame(-bg=>'grey45')
                   ->pack(-side=>'left',-expand=>1,-fill=>'y');
my $midframer = $midframe->Frame(-bg=>'grey45')
                   ->pack(-side=>'right');

my $num_channels = 40;

my $canvasp;

my $canvast = $midframer->Canvas(
             -bg =>'pale goldenrod',
             -width=>2400,
             -height=>25,
         #need to set scrollregion with a bit extra to ensure
         #endpoint accuracy. See xscrollit sub
         -scrollregion=>[-10,0,7250,25],
         -xscrollincrement => 1,
         )->pack(-side=>'top');

#for canvasp and yscroll
my $midframer1 = $midframer->Frame(-bg=>'grey45')
                   ->pack(-side=>'top');

my $yscroll = $midframer1->Scrollbar( 
       -orient  => 'vertical',
       -command => \&yscrollit,
       -troughcolor =>'grey45',
       -activebackground =>'lightseagreen',
       -background => 'lightseagreen',
       )->pack(-side=>'right',-fill=>'y');

my $canvasxsd = $botframe->Canvas(  #dummy filler
             -bg =>'grey45',
             -width=>75,
             -height=>25,
         -borderwidth=>0,
         ) ->pack(-side=>'left');

my $xscroll = $botframe->Scrollbar(
       -orient  => 'horizontal', 
       -command => \&xscrollit ,
       -troughcolor =>'grey45',
       -activebackground =>'lightseagreen',
       -background => 'lightseagreen',
       )->pack(-side=>'right', -fill=>'x',-expand =>1);


$canvasp = $midframer1->Canvas(
             -bg =>'lightsteelblue',
             -width=>2400,
             -height=> 50 * $num_channels,
             -scrollregion=>[-10,0,7250,(33 * $num_channels)],
         -xscrollincrement => 1,
         -yscrollincrement => 1,
         -xscrollcommand => [ 'set', $xscroll ],
             -yscrollcommand => [ 'set', $yscroll ],
         ) ->pack(-side=>'left');#,-fill=>'both');


my $canvasd = $midframel->Canvas( #top of left frame dummy filler
             -bg =>'grey45',
             -width=>75,
             -height=>25,
         -borderwidth =>0,
         )->pack(-side=>'top');

my $canvass = $midframel->Canvas(  #left frame canvas
             -bg =>'lightseagreen',
             -width=>75,
             -height=> 50 * $num_channels,
             -scrollregion=>[0,0,75,(33 * $num_channels)],
         -yscrollincrement => 1,
         ) ->pack(-side=>'top');

#fill in some sample data to see scrolling action
for( 0 .. 33 * $num_channels){
    $canvass->createText(38, 10 + $_ * 33,
              -text => "C $_" ,
           );
  }

#set up top frame canvas... a timeline
for(0..7200){
   
      if( $_ % 50 == 0){
         $canvast->createLine($_,0,$_,12,-width=> 4,-tags=>['tick'] );
         $canvast->createText($_, 20, -text=> $_,-tags=>['tick'] );
     }      
}


#set up main frame some canvas data
foreach my $y (0..39){
   foreach my $x (0..7200){
          next unless ( $x % 5 == 0);
          next if 20*$x > 7200;
         $canvasp->createText($x * 20,  8 + $y * 33, 
                          -text=> 20*$x.'-'.$y,
                           -tags=>['data'] );
   }
}


my ($xt,$yt,$xt1,$yt1)=$canvast->bbox('all');
my ($xs,$ys,$xs1,$ys1)=$canvass->bbox('all');
my ($xp,$yp,$xp1,$yp1)=$canvasp->bbox('all');

print "t-> $xt,$yt,   $xt1,$yt1\n";
print "s-> $xs,$ys,   $xs1,$ys1\n";
print "p-> $xp,$yp,   $xp1,$yp1\n";

$canvast->configure( -scrollregion=> [$canvasp->bbox('all')] );



MainLoop;
###################################
sub xscrollit{
 my $fraction = $_[1];
 $canvast->xviewMoveto($fraction);
 $canvasp->xviewMoveto($fraction);
}
######################################################################
sub yscrollit{
  my $fraction = $_[1];
  $canvass->yviewMoveto($fraction);
  $canvasp->yviewMoveto($fraction);

}
####################################################################
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.