#============================================================================== #=== Below are the signal handlers for 'window1' class #============================================================================== sub start_search { my ($class, $data, $object, $instance) = @_; my $form = $__PACKAGE__::all_forms->{$instance}; my $entry_val = $form->{'search_text'}->get_text; print $entry_val; }