Tk::DialogWrapper('fileselect',$cmd, %args);
##

##

   my $w = delete $args{'-parent'};


##

##

    $w->destroy if $created;


##

##

   my ($method,$kind,%args) = @_;