Most nincs kedvem visszanézni, hogy is van ez perl-tk-ban, de a nyers tk-s megoldást erre lehet alapozni:
pack [ entry .e1 ]
pack [ entry .e2 ]
pack [ button .b -command { puts [ focus ] } ]