http://www.perlmonks.org?node_id=673378


in reply to Re^2: Tk! (entrycget w/ 'active')
in thread Tk! (entrycget w/ 'active')

Look into the Tk::bind documentation:
'W' The window to which the event was reported (the $widget field fro +m the event) - as an perl/Tk object. Valid for all event types.