2002-06-07 Martin M. Hunt <hunt@redhat.com>

	* src/tkTableTag.c (Table_TagCmd): Don't decrement past
	beginning of array.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index d3d21af..21ff648 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-07  Martin M. Hunt  <hunt@redhat.com>
 
+       * src/tkTableTag.c (Table_TagCmd): Don't decrement past
+       beginning of array.
+
        * library/combobox.tcl (::combobox::configure): Don't
        force background to white.
 

diff --git a/libgui/src/tkTableTag.c b/libgui/src/tkTableTag.c
index ad43fad..1cdb998 100644 (file)
--- a/libgui/src/tkTableTag.c
+++ b/libgui/src/tkTableTag.c
@@ -1233,7 +1233,7 @@ Table_TagCmd(ClientData clientData, register Tcl_Interp *interp,
                /*
                 * Move tag up in priority.
                 */
-               for (i = tagPrio; i > value; i--) {
+               for (i = tagPrio; i && i > value; i--) {
                    tablePtr->tagPrioNames[i] = tablePtr->tagPrioNames[i-1];
                    tablePtr->tagPrios[i]     = tablePtr->tagPrios[i-1];
                }