das könntest du ganz leicht mit Tk::bind lösen. du wartest mit dem binding <Key> auf die erste eingabe im textfeld und speicherst den zeitpunkt (am besten mit der funktion time()). wenn der benutzer mit seiner eingabe aufhört, muss er ja irgendeine aktion machen um dies zu signalisieren, also <Return> drücken oder auf einen button. da speicherst wiederrum den zeitpunkt. diesen zeitpunkt subtrahierst du mit dem ersten und damit hast du deine zeitspanne.
oder suchst du eher einen weg um dies alles graphisch darzustellen?