$topLevel->bind('<FocusOut>', sub { $topLevel->destroy; undef $topLevel });