Select Code to Download

Select or download this

# Create a left hand view frame in the workspace frame - for the tree
$TK{'vl'}=$TK{'ws'}->Frame()->pack(-side   => 'left',
                                   -anchor => 'n',
                                   -expand => 0,
                                   -fill   => 'both');

Select or download this

  my @pos=$TK{'perltree'}->xview();

  my $pos=shift(@pos);

  print 'xview=' . join(",", $pos) . "\n";