Select Code to Download

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