package Tk;
sub has_subdir {1}