Help for this page

Select Code to Download

Select or download this

my $newBtn = 
  $upper->Button('-text' => "New Subdirectory",
  '-command' => [\&newDir, $direntry->get()])
  ->grid('-column' => 1,'-row' => 1);

Select or download this

my $newBtn = 
  $upper->Button('-text' => "New Subdirectory",
  '-command' => sub { print $direntry->get(),"\n"; })
  ->grid('-column' => 1,'-row' => 1);