Tk::Error: Can't set -width to `undef' for Tk::Frame=HASH(0x22e4a80): Can't set
-width to `' for Tk::DirTree=HASH(0x22d875c): '' isn't numeric at C:/usr/site/li
b/Tk/Configure.pm line 46.


 (processing "-width" option)
 Tk callback for .dirselect.frame1.frame.dirtree
 Tk::Derived::configure at C:/usr/site/lib/Tk/Derived.pm line 306
 Tk::Derived::configure at C:/usr/site/lib/Tk/Derived.pm line 306
 Tk::Widget::Scrolled at C:/usr/site/lib/Tk/Widget.pm line 1122
 DirSelect::_dirtree at C:/usr/site/lib/Tk/DirSelect.pm line 134
 DirSelect::_browse at C:/usr/site/lib/Tk/DirSelect.pm line 125
 Tk::BackTrace at C:/usr/site/lib/Tk.pm line 101
 Tk::Derived::configure at C:/usr/site/lib/Tk/Derived.pm line 306
 Tk::Widget::Scrolled at C:/usr/site/lib/Tk/Widget.pm line 1122
 DirSelect::_dirtree at C:/usr/site/lib/Tk/DirSelect.pm line 134
 DirSelect::_browse at C:/usr/site/lib/Tk/DirSelect.pm line 125
 [\&DirSelect::_browse,{},C:\,undef]
 Tk callback for .dirselect.frame.radiobutton1
 [\&main::StartDir]
 Tk callback for .button3
 Tk:: at C:/usr/site/lib/Tk.pm line 228
 Tk::Button::butUp at C:/usr/site/lib/Tk/Button.pm line 111
 (command bound to event)

$dir = $mw->DirSelect->Show;

my $verz = "c:"; 
my $kiste1 =$top->DirSelect(-dir=>$verz , -width=>40)->Show;