$widget->destroy if Tk::Exists($widget);

If the widget is a parent of any other widgets, the other widgets are destroyed as well.

13.14. Clipboard and Selection Methods		13.16. Focus Methods