diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkText.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index 4d17bb9..812d4ac 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.14.2.1 2000/08/05 23:53:12 hobbs Exp $ + * RCS: @(#) $Id: tkText.c,v 1.14.2.2 2002/02/26 01:58:36 hobbs Exp $ */ #include "default.h" @@ -998,6 +998,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. */ |