The usual way to do this is to subclass the Text widget, then redefine the subs to your liking. See Making a derived Tk::Text object for an example. BTW, if you get it working, please post it; I've yet to see a drag text example on a Text widget.