Select Code to Download

  1 atggcgacga aggccgtgtg cgtgctgaag ggcgacggcc cagtgcaggg catcatcaat
 61 ttcgagcaga aggaaagtaa tggaccagtg aaggtgtggg gaagcattaa aggactgact
...
361 catgaaaaag cagatgactt gggcaaaggt ggaaatgaag aaagtacaaa gacaggaaac
421 gctggaagtc gtttggcttg tggtgtaatt gggatcgccc aataaacatt cccttggatg
481 tagtctgagg cccct

use Tk;

...
        $widget->tagRemove('sel', '1.0', 'end');
    }
}