diff options
| author | hobbs <hobbs> | 2002-02-26 01:58:36 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-02-26 01:58:36 (GMT) |
| commit | a22ad04113c0fef7f94406439dc2e32d5c1cd5ba (patch) | |
| tree | dc764ad571e915e727bdf329fb67e56562476331 | |
| parent | c38ef71565fab182b099cbcf263fbf1708ac7e22 (diff) | |
| download | tk-a22ad04113c0fef7f94406439dc2e32d5c1cd5ba.zip tk-a22ad04113c0fef7f94406439dc2e32d5c1cd5ba.tar.gz tk-a22ad04113c0fef7f94406439dc2e32d5c1cd5ba.tar.bz2 | |
* generic/tkText.c (ConfigureText): reenable the blinking cursor
on state change where necessary. [Bug #503772]
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | generic/tkText.c | 12 |
2 files changed, 14 insertions, 1 deletions
@@ -1,5 +1,8 @@ 2002-02-25 Jeff Hobbs <jeffh@ActiveState.com> + * generic/tkText.c (ConfigureText): reenable the blinking cursor + on state change where necessary. [Bug #503772] + * tests/listbox.test: * generic/tkListbox.c: corrected error handling when setting to an invalid listvar value. [Bug #503613] 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. */ |