sub Tk::Error
    {
      my ($widget,$error,@locations) = @_;
      ...

    }