Select Code to Download

    
$self->{txt_box}=txt_box->new( $self->{frm}, sub {$self->updt} );

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

sub new {  my $class = shift;  my $self = {}; bless( $self, $class ); 
+#std line
    $self->{parent_widg}=shift;
...
    print "in upon_keypress and so far you've got $self->{contents}\n 
+"; #tick
    $self->{sub_to_call_on_keypress}->( $self->{contents}  ); #bug her
+e...$self->{contents} gets passed to ORDINARY SUB but not updt method
+    <===================LOOK HERE
}