1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tkText.c b/generic/tkText.c
index f749deb..2b9c60e 100644
--- a/generic/tkText.c
+++ b/generic/tkText.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkText.c,v 1.25 2002/01/25 21:09:37 dgp Exp $
+ * RCS: @(#) $Id: tkText.c,v 1.26 2002/02/26 01:58:25 hobbs Exp $
  */
 
 #include "default.h"
@@ -972,6 +972,16 @@ ConfigureText(interp, textPtr, argc, argv, flags)
     }
 
     /*
+     * Account for state changes that would reenable blinking cursor state.
+     */
+
+    if (textPtr->flags & GOT_FOCUS) {
+	Tcl_DeleteTimerHandler(textPtr->insertBlinkHandler);
+	textPtr->insertBlinkHandler = (Tcl_TimerToken) NULL;
+	TextBlinkProc((ClientData) textPtr);
+    }
+
+    /*
      * Register the desired geometry for the window, and arrange for
      * the window to be redisplayed.
      */