sub select($$$) {
    # pick parameters
    my($self, $start, $end) = @_;

    # select text
    $self -> tagAdd('sel', $start, $end);
    $self -> tagRaise('sel');
}