From 13b09c5091c3c9e18dda54f792bc66d6f25d0ea5 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 4 Dec 2006 20:13:00 +0000
Subject: 	* generic/tkListbox.c (ConfigureListboxItem):
 ListboxWorldChanged 	not needed - just call EventuallyRedrawRange. [Bug
 1608046] (rezic)

---
 ChangeLog           |  5 +++++
 generic/tkListbox.c | 15 ++++++++++-----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 638e096..207bd19 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-04  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* generic/tkListbox.c (ConfigureListboxItem): ListboxWorldChanged
+	not needed - just call EventuallyRedrawRange. [Bug 1608046] (rezic)
+
 2006-12-01  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* doc/wm.n, tests/winWm.test:
diff --git a/generic/tkListbox.c b/generic/tkListbox.c
index 43342c4..040438c 100644
--- a/generic/tkListbox.c
+++ b/generic/tkListbox.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkListbox.c,v 1.29.2.3 2006/05/29 21:52:47 hobbs Exp $
+ * RCS: @(#) $Id: tkListbox.c,v 1.29.2.4 2006/12/04 20:13:00 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -388,7 +388,7 @@ static int		ConfigureListbox _ANSI_ARGS_((Tcl_Interp *interp,
 			    int flags));
 static int		ConfigureListboxItem _ANSI_ARGS_ ((Tcl_Interp *interp,
 			    Listbox *listPtr, ItemAttr *attrs, int objc,
-			    Tcl_Obj *CONST objv[]));
+			    Tcl_Obj *CONST objv[], int index));
 static int		ListboxDeleteSubCmd _ANSI_ARGS_((Listbox *listPtr,
 			    int first, int last));
 static void		DestroyListbox _ANSI_ARGS_((char *memPtr));
@@ -939,7 +939,7 @@ ListboxWidgetObjCmd(clientData, interp, objc, objv)
 		}
 	    } else {
 		result = ConfigureListboxItem(interp, listPtr, attrPtr,
-			objc-3, objv+3);
+			objc-3, objv+3, index);
 	    }
 	    break;
 	}
@@ -1694,13 +1694,14 @@ ConfigureListbox(interp, listPtr, objc, objv, flags)
  */
 
 static int
-ConfigureListboxItem(interp, listPtr, attrs, objc, objv)
+ConfigureListboxItem(interp, listPtr, attrs, objc, objv, index)
     Tcl_Interp *interp;		/* Used for error reporting. */
     register Listbox *listPtr;	/* Information about widget;  may or may
 				 * not already have values for some fields. */
     ItemAttr *attrs;		/* Information about the item to configure */
     int objc;			/* Number of valid entries in argv. */
     Tcl_Obj *CONST objv[];	/* Arguments. */
+    int index;			/* Index of the listbox item being configure */
 {
     Tk_SavedOptions savedOptions;
 
@@ -1711,7 +1712,11 @@ ConfigureListboxItem(interp, listPtr, attrs, objc, objv)
 	return TCL_ERROR;
     }
     Tk_FreeSavedOptions(&savedOptions);
-    ListboxWorldChanged((ClientData) listPtr);
+    /*
+     * Redraw this index - ListboxWorldChanged would need to be called
+     * if item attributes were checked in the "world".
+     */
+    EventuallyRedrawRange(listPtr, index, index);
     return TCL_OK;
 }
 
-- 
cgit v0.12