diff options
| author | hobbs <hobbs> | 2002-02-26 01:58:25 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-02-26 01:58:25 (GMT) |
| commit | 05e0b34d1bb3f1651679f1ff76cf154156ac936c (patch) | |
| tree | 2d0524aaed85e93900474b95ac060424fd2fb884 /generic | |
| parent | 7dfdadc282105c5d6f50ebedb6f623cdb4a56f15 (diff) | |
| download | tk-05e0b34d1bb3f1651679f1ff76cf154156ac936c.zip tk-05e0b34d1bb3f1651679f1ff76cf154156ac936c.tar.gz tk-05e0b34d1bb3f1651679f1ff76cf154156ac936c.tar.bz2 | |
* generic/tkText.c (ConfigureText): reenable the blinking cursor
on state change where necessary. [Bug #503772]
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 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. */ |