sub dyntree_adddir {
    my( $tree, $dir ) = @_;

    my $text = $dir;
    $text = (split( "/", $dir ))[-1] unless $text eq "/";

    $tree->add( $dir, -text => $text, -image => $tree->Getimage("folder") );
    $tree->setmode( $dir, -d $dir ? "open" : "none" );
}