my $tcanvas=$top->Scrolled("Canvas",
                           -scrollbars => 'ow',
                           -scrollbars => 's',
                           -bg=>'white',
                           -height=>$height,
                           -width=>$width,
                           -border=>0,
                           -cursor=>'crosshair',
                           )->place(
                                    -x=>325,
                                    -y=>30,
                                    );

my $canvas = $tcanvas->Subwidget("canvas");