Select Code to Download

$TK{'perltree'}=$TK{'vl'}->Scrolled('Tree',
                                    -separator        => ':',
...
                                    -width            => 20)->pack(-fi
+ll   => 'both',
                                                                   -an
+chor => 'n',
                                                                   -ex
+pand => 1);

  # Set scroll to 32
  $TK{'perltree'}->xview(32);
...
  # Focus on the perltree
  $TK{'perltree'}->update;