Backout code changes, improve documentation.

2 files changed, 6 insertions, 2 deletions

diff --git a/doc/bind.n b/doc/bind.n
index 87940e8..db89eae 100644
--- a/doc/bind.n
+++ b/doc/bind.n
@@ -283,7 +283,8 @@ it is destroyed.
 When the \fBDestroy\fR event is delivered
 to a widget, it is in a
 .QW half-dead
-state: the widget still exists, but most operations on it will fail.
+state: the widget still exists, but most operations on it will behave
+in an undefined manner, and/or return arbitrary results.
 .RE
 .IP "\fBFocusIn\fR, \fBFocusOut\fR" 5
 The \fBFocusIn\fR and \fBFocusOut\fR events are generated
diff --git a/generic/tkCmds.c b/generic/tkCmds.c
index b8b1d3e..193c3d6 100644
--- a/generic/tkCmds.c
+++ b/generic/tkCmds.c
@@ -1689,7 +1689,10 @@ Tk_WinfoObjCmd(
 	winPtr = (TkWindow *) Tk_NameToWindow(interp, string, tkwin);
 	Tcl_ResetResult(interp);
 
-        alive = (winPtr != NULL);
+	alive = 1;
+	if ((winPtr == NULL) || (winPtr->flags & TK_ALREADY_DEAD)) {
+	    alive = 0;
+	}
 	Tcl_SetObjResult(interp, Tcl_NewBooleanObj(alive));
 	break;
     }