$top->bind("<Visibility>" => sub { $top->raise });