$self->{txt_box}=txt_box->new(
   $self->{frm}, 
   sub {$self->updt(@_)} # Pass incoming parms along.
);