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

  my $pos=shift(@pos);

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