From 2ed830f34e5dd2e299da3d0bcf9bbadf0d4cd774 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 2 Oct 2002 21:23:09 +0000
Subject: 	* generic/tkText.c (TextBlinkProc): don't blink the cursor
 unless 	it is visible. [Bug #616791] [Patch #614474] (bonfield)

---
 ChangeLog        | 3 +++
 generic/tkText.c | 9 +++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bd42d5c..9ab90d5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-10-02  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* generic/tkText.c (TextBlinkProc): don't blink the cursor unless
+	it is visible. [Bug #616791] [Patch #614474] (bonfield)
+
 	* tests/entry.test: added entry-20.7
 	* generic/tkEntry.c (EntryTextVarProc): check if the entry if
 	being deleted before handling an associated textvariable.
diff --git a/generic/tkText.c b/generic/tkText.c
index 95e20c7..58b55a9 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.31 2002/08/31 06:12:27 das Exp $
+ * RCS: @(#) $Id: tkText.c,v 1.32 2002/10/02 21:23:10 hobbs Exp $
  */
 
 #include "default.h"
@@ -1945,9 +1945,10 @@ TextBlinkProc(clientData)
 		textPtr->insertOnTime, TextBlinkProc, (ClientData) textPtr);
     }
     TkTextMarkSegToIndex(textPtr, textPtr->insertMarkPtr, &index);
-    TkTextCharBbox(textPtr, &index, &x, &y, &w, &h);
-    TkTextRedrawRegion(textPtr, x - textPtr->insertWidth / 2, y,
-	    textPtr->insertWidth, h);
+    if (TkTextCharBbox(textPtr, &index, &x, &y, &w, &h) == 0) {
+	TkTextRedrawRegion(textPtr, x - textPtr->insertWidth / 2, y,
+		textPtr->insertWidth, h);
+    }
 }
 
 /*
-- 
cgit v0.12