my $s_button = $mw->Button(-text => 'Search', -command => sub{search(get_cb_values())} );