Select Code to Download

use strict;
use warnings;
...
sub T2_GotFocus  {  print "\nT2_GotFocus  - ",$W1->GetFocus(), "\n"; }
sub T1_LostFocus {  print "\nT1_LostFocus - ",$W1->GetFocus(); }
sub T2_LostFocus {  print "\nT2_LostFocus - ",$W1->GetFocus(); }