Help for this page

Select Code to Download

Select or download this

  if ($^O eq 'MSWin32') {
    require 'Win32API::File';
    my @drv = map{s/\\$//;lc} Win32API::File::getLogicalDrives();
    $dt->add_to_tree($_, $_) for @drv;
  }

Select or download this
```
package Tk;
sub has_subdir {1}
```