if ( $tkxfsr->{after}{$afterid}{sub}) { 
      print 'sub:'.$tkxfsr->{after}{$afterid}{sub}."\n";
      &{$tkxfsr->{after}{$afterid}{sub}}(); 
      &{$tkxfsr->{after}{$afterid}{sub}};
      }