use Tk;
use strict "vars";
use Tk::DirSelect;
my $initial_dir = "C:\\Temp";
my $mw;
$mw = MainWindow->new;
my $ds  = $mw->DirSelect(
	-directory => $initial_dir,
	-width => 100,
	-height => 25,
	-background => red
);
my $dir = $ds->Show();
print "dir <$dir>\n";
MainLoop;

##</code><code>##

sub configure
{
 my $alias = shift;
 shift if (@_);
 my ($set,$get,$widget,@args) = @$alias;
 if (wantarray)
  {
   my @results;
   eval { @results = $widget->$set(@args,@_) };
   croak($@) if $@;
   return @results;
  }
 else
  {
   my $results;
   [line 45]eval { $results = $widget->$set(@args,@_) };
   croak($@) if $@;
   return $results;
  }
}