[Boston.pm] Perl Tk Text widget: get rid of "select" bindings

I'm trying to repurpose a Tk::Text widget as a kind of display and user
interface. I've got a binding for <ButtonPress-1> and <B1-Motion>.
all fo that works as expected.

However, when I click and drag in the widget, the Text widget is still
runnign the "select" binding in teh background somewhere. I end up with a
block of text in my display being selected. The user can't doanything with
the seleected text.  And it makes the display jittery.

Is htere a way to disable the selection binding in the Tk::Text widget?

Thanks,
Greg