Select Code to Download

Select or download this

my $gv = $root->Scrolled('GraphViz', 
                             -background => '#B0C0FF', 
                             -scrollbars=>'se',
                             ) ->pack (-side=>'top',-expand 
                                        =>1, -fill=>'both');

Select or download this

my $canvas = $gv->Subwidget("canvas');
$canvas->bind('<Configure>', sub {
...
                                  print $w->Width . " and " . $w->Heig
+ht . "\n";
                                  &redo_layout();
                                 };

Select or download this

$root->bind('<Configure>', sub {
                                  my $w = shift;
                                  print $w->Width . " and " . $w->Heig
+ht . "\n";
                                  &redo_layout();
                                 };