[Nh-pm] Dirtree

[Black, Franklin]

Assuming 'require Tk::LabEntry;' at remv.pl line 11
Tk::Error: Can't set -directory to `.' for Tk::DirTree=HASH(0x2780c50):
Entry "D:/LDRIVE/perl/remv" not found at L:/perl56/site/lib/Tk.pm line 217.
 Tk callback for .frame.dirtree
 Tk::Derived::configure at L:/perl56/site/lib/Tk/Derived.pm line 306
 Tk::Widget::new at L:/perl56/site/lib/Tk/Widget.pm line 196
 Tk::Widget::__ANON__ at L:/perl56/site/lib/Tk/Widget.pm line 247
 Tk::Widget::Scrolled at L:/perl56/site/lib/Tk/Widget.pm line 1111
 main::proc_file at remv.pl line 23
Can't set -directory to `.' for Tk::DirTree=HASH(0x2780c50): Entry
"D:/LDRIVE/perl/remv" not found at L:/perl56/site/lib/Tk.pm line 217.

I get this error whenever I try to create a TK/Dirtree. The Code is below.
It's ActiveState Perl 5.6


use Tk;
use Cwd;
use Tk::DialogBox;
use Tk::DirTree;
my $directory='s:\\';
my $top = new MainWindow;
$top->DirTree();

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/nh-pm/attachments/20020920/98244025/attachment.htm