summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-02-26 01:58:25 (GMT)
committerhobbs <hobbs>2002-02-26 01:58:25 (GMT)
commit05e0b34d1bb3f1651679f1ff76cf154156ac936c (patch)
tree2d0524aaed85e93900474b95ac060424fd2fb884 /generic
parent7dfdadc282105c5d6f50ebedb6f623cdb4a56f15 (diff)
downloadtk-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.c12
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.
*/