# NOTE: Derived from blib/lib/Tk.pm.
# Changes made here will be lost when autosplit is run again.
#line 393 "blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Error.al)"
my $grab = $w->grab('current');
$grab->Unbusy if (defined $grab);
warn "Tk::Error: $error\n " . join("\n ",@_)."\n";