my $currentDir = "D:/p/";
my $dirTreeFrame = $mainwin->Frame;
$dirTreeFrame->pack();
my $scrolledDirTree = $dirTreeFrame->Scrolled('DirTree', -scrollbars => "oeos")->pack();
$scrolledDirTree->configure(-directory  => $currentDir,
                                -width  => 35,
                                -height => 35,
                                -command=> sub {doCreate($currentDir)});