<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2653.12">
<TITLE>Dirtree</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=2>Assuming 'require Tk::LabEntry;' at remv.pl line 11</FONT>
<BR><FONT SIZE=2>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.</FONT></P>
<P><FONT SIZE=2> Tk callback for .frame.dirtree</FONT>
<BR><FONT SIZE=2> Tk::Derived::configure at L:/perl56/site/lib/Tk/Derived.pm line 306</FONT>
<BR><FONT SIZE=2> Tk::Widget::new at L:/perl56/site/lib/Tk/Widget.pm line 196</FONT>
<BR><FONT SIZE=2> Tk::Widget::__ANON__ at L:/perl56/site/lib/Tk/Widget.pm line 247</FONT>
<BR><FONT SIZE=2> Tk::Widget::Scrolled at L:/perl56/site/lib/Tk/Widget.pm line 1111</FONT>
<BR><FONT SIZE=2> main::proc_file at remv.pl line 23</FONT>
<BR><FONT SIZE=2>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.</FONT></P>
<P><FONT SIZE=2>I get this error whenever I try to create a TK/Dirtree. The Code is below.</FONT>
<BR><FONT SIZE=2>It's ActiveState Perl 5.6</FONT>
</P>
<BR>
<P><FONT SIZE=2>use Tk;</FONT>
<BR><FONT SIZE=2>use Cwd;</FONT>
<BR><FONT SIZE=2>use Tk::DialogBox;</FONT>
<BR><FONT SIZE=2>use Tk::DirTree;</FONT>
<BR><FONT SIZE=2>my $directory='s:\\';</FONT>
<BR><FONT SIZE=2>my $top = new MainWindow;</FONT>
<BR><FONT SIZE=2>$top->DirTree();</FONT>
</P>
</BODY>
</HTML>