When a executable Tk library script, e.g. "sample/tktextio.rb",

When a executable Tk library script, e.g. "sample/tktextio.rb", #38