in reply to Make top level window unclosable Perl tk
G'day amboxer21,
The underlying mechanism (used by widgets such as Tk::DialogBox and Tk::MsgBox) is Tk::grab. You may find the description of functionality and caveats to be of interest.
-- Ken