$self->{txt_box}=txt_box->new( $self->{frm}, \&test_if_txt_box_contents_passed_back );