# untested guess
 $mw->eventGenerate('Tk::Text','<<Paste>>');