$dialog -> bind('<Visibility>', sub {$dialog->raise;});