sub getResults {
# ...
  $ltb->bind("<Double-1>", sub { searchGet($dialog, $ltb);});
# ...
}

sub searchGet {
# ...
  $dialog->destroy;
# ...
}