perl -MTk -le " print Tk->findINC( shift ) "  demos/widget_lib/items.pl
perl -MTk -le " print Tk->findINC( shift ) "  demos/widget_lib/style.pl