/[dtapublic]/projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tktexttag.c

Diff of /projs/dtats/trunk/shared_source/c_tk_base_7_5_w_mods/tktexttag.c

Parent Directory | Revision Log | View Patch Patch

-revision 69 by dashley,
Sat Nov  5 10:54:17 2016 UTC
+revision 71 by dashley,
Sat Nov  5 11:07:06 2016 UTC
 Line 1
  /* $Header$ */
  /*
   * tkTextTag.c --
   *
   *      This module implements the "tag" subcommand of the widget command
   *      for text widgets, plus most of the other high-level functions
   *      related to tags.
   *
   * Copyright (c) 1992-1994 The Regents of the University of California.
   * Copyright (c) 1994-1997 Sun Microsystems, Inc.
   *
   * See the file "license.terms" for information on usage and redistribution
   * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
   *
   * RCS: @(#) $Id: tktexttag.c,v 1.1.1.1 2001/06/13 05:10:53 dtashley Exp $
   */
  #include "default.h"
  #include "tkPort.h"
  #include "tkInt.h"
  #include "tkText.h"
  static Tk_ConfigSpec tagConfigSpecs[] = {
      {TK_CONFIG_BORDER, "-background", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, border), TK_CONFIG_NULL_OK},
      {TK_CONFIG_BITMAP, "-bgstipple", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, bgStipple), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-borderwidth", (char *) NULL, (char *) NULL,
          "0", Tk_Offset(TkTextTag, bdString),
          TK_CONFIG_DONT_SET_DEFAULT|TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-elide", (char *) NULL, (char *) NULL,
          "0", Tk_Offset(TkTextTag, elideString),
          TK_CONFIG_DONT_SET_DEFAULT|TK_CONFIG_NULL_OK},
      {TK_CONFIG_BITMAP, "-fgstipple", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, fgStipple), TK_CONFIG_NULL_OK},
      {TK_CONFIG_FONT, "-font", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, tkfont), TK_CONFIG_NULL_OK},
      {TK_CONFIG_COLOR, "-foreground", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, fgColor), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-justify", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, justifyString), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-lmargin1", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, lMargin1String), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-lmargin2", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, lMargin2String), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-offset", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, offsetString), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-overstrike", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, overstrikeString),
          TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-relief", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, reliefString), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-rmargin", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, rMarginString), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-spacing1", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, spacing1String), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-spacing2", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, spacing2String), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-spacing3", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, spacing3String), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-tabs", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, tabString), TK_CONFIG_NULL_OK},
      {TK_CONFIG_STRING, "-underline", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, underlineString),
          TK_CONFIG_NULL_OK},
      {TK_CONFIG_CUSTOM, "-wrap", (char *) NULL, (char *) NULL,
          (char *) NULL, Tk_Offset(TkTextTag, wrapMode),
          TK_CONFIG_NULL_OK,
     &textWrapModeOption},
     {TK_CONFIG_END,
     (char *) NULL,
     (char *) NULL,
     (char *) NULL,
          (char *) NULL,
 ,
 }
  };
  /*
   * Forward declarations for procedures defined later in this file:
   */
  static void             ChangeTagPriority _ANSI_ARGS_((TkText *textPtr,
                              TkTextTag *tagPtr, int prio));
  static TkTextTag *      FindTag _ANSI_ARGS_((Tcl_Interp *interp,
                              TkText *textPtr, char *tagName));
  static void             SortTags _ANSI_ARGS_((int numTags,
                              TkTextTag **tagArrayPtr));
  static int              TagSortProc _ANSI_ARGS_((CONST VOID *first,
                              CONST VOID *second));
  /*
   *--------------------------------------------------------------
   *
   * TkTextTagCmd --
   *
   *      This procedure is invoked to process the "tag" options of
   *      the widget command for text widgets. See the user documentation
   *      for details on what it does.
   *
   * Results:
   *      A standard Tcl result.
   *
   * Side effects:
   *      See the user documentation.
   *
   *--------------------------------------------------------------
   */
  int
  TkTextTagCmd(textPtr, interp, argc, argv)
      register TkText *textPtr;   /* Information about text widget. */
      Tcl_Interp *interp;         /* Current interpreter. */
      int argc;                   /* Number of arguments. */
      char **argv;                /* Argument strings.  Someone else has already
                                   * parsed this command enough to know that
                                   * argv[1] is "tag". */
  {
      int c, i, addTag;
      size_t length;
      char *fullOption;
      register TkTextTag *tagPtr;
      TkTextIndex first, last, index1, index2;
      if (argc < 3) {
          Tcl_AppendResult(interp, "wrong # args: should be \"",
                  argv[0], " tag option ?arg arg ...?\"", (char *) NULL);
          return TCL_ERROR;
      }
      c = argv[2][0];
      length = strlen(argv[2]);
      if ((c == 'a') && (strncmp(argv[2], "add", length) == 0)) {
          fullOption = "add";
          addTag = 1;
          addAndRemove:
          if (argc < 5) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag ", fullOption,
                      " tagName index1 ?index2 index1 index2 ...?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = TkTextCreateTag(textPtr, argv[3]);
          for (i = 4; i < argc; i += 2) {
              if (TkTextGetIndex(interp, textPtr, argv[i], &index1) != TCL_OK) {
                  return TCL_ERROR;
              }
              if (argc > (i+1)) {
                  if (TkTextGetIndex(interp, textPtr, argv[i+1], &index2)
                          != TCL_OK) {
                      return TCL_ERROR;
                  }
                  if (TkTextIndexCmp(&index1, &index2) >= 0) {
                      return TCL_OK;
                  }
              } else {
                  index2 = index1;
                  TkTextIndexForwChars(&index2, 1, &index2);
              }
              if (tagPtr->affectsDisplay) {
                  TkTextRedrawTag(textPtr, &index1, &index2, tagPtr, !addTag);
              } else {
                  /*
                   * Still need to trigger enter/leave events on tags that
                   * have changed.
                   */
                  TkTextEventuallyRepick(textPtr);
              }
              TkBTreeTag(&index1, &index2, tagPtr, addTag);
              /*
               * If the tag is "sel" then grab the selection if we're supposed
               * to export it and don't already have it.  Also, invalidate
               * partially-completed selection retrievals.
               */
              if (tagPtr == textPtr->selTagPtr) {
                  if (addTag && textPtr->exportSelection
                          && !(textPtr->flags & GOT_SELECTION)) {
                      Tk_OwnSelection(textPtr->tkwin, XA_PRIMARY,
                              TkTextLostSelection, (ClientData) textPtr);
                      textPtr->flags |= GOT_SELECTION;
                  }
                  textPtr->abortSelections = 1;
              }
          }
      } else if ((c == 'b') && (strncmp(argv[2], "bind", length) == 0)) {
          if ((argc < 4) || (argc > 6)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag bind tagName ?sequence? ?command?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = TkTextCreateTag(textPtr, argv[3]);
          /*
           * Make a binding table if the widget doesn't already have
           * one.
           */
          if (textPtr->bindingTable == NULL) {
              textPtr->bindingTable = Tk_CreateBindingTable(interp);
          }
          if (argc == 6) {
              int append = 0;
              unsigned long mask;
              if (argv[5][0] == 0) {
                  return Tk_DeleteBinding(interp, textPtr->bindingTable,
                          (ClientData) tagPtr, argv[4]);
              }
              if (argv[5][0] == '+') {
                  argv[5]++;
                  append = 1;
              }
              mask = Tk_CreateBinding(interp, textPtr->bindingTable,
                      (ClientData) tagPtr, argv[4], argv[5], append);
              if (mask == 0) {
                  return TCL_ERROR;
              }
              if (mask & (unsigned) ~(ButtonMotionMask|Button1MotionMask
                      |Button2MotionMask|Button3MotionMask|Button4MotionMask
                      |Button5MotionMask|ButtonPressMask|ButtonReleaseMask
                      |EnterWindowMask|LeaveWindowMask|KeyPressMask
                      |KeyReleaseMask|PointerMotionMask|VirtualEventMask)) {
                  Tk_DeleteBinding(interp, textPtr->bindingTable,
                          (ClientData) tagPtr, argv[4]);
                  Tcl_ResetResult(interp);
                  Tcl_AppendResult(interp, "requested illegal events; ",
                          "only key, button, motion, enter, leave, and virtual ",
                          "events may be used", (char *) NULL);
                  return TCL_ERROR;
              }
          } else if (argc == 5) {
              char *command;
              command = Tk_GetBinding(interp, textPtr->bindingTable,
                      (ClientData) tagPtr, argv[4]);
              if (command == NULL) {
                  char *string = Tcl_GetStringResult(interp);
                  /*
                   * Ignore missing binding errors.  This is a special hack
                   * that relies on the error message returned by FindSequence
                   * in tkBind.c.
                   */
                  if (string[0] != '\0') {
                      return TCL_ERROR;
                  } else {
                      Tcl_ResetResult(interp);
                  }
              } else {
                  Tcl_SetResult(interp, command, TCL_STATIC);
              }
          } else {
              Tk_GetAllBindings(interp, textPtr->bindingTable,
                      (ClientData) tagPtr);
          }
      } else if ((c == 'c') && (strncmp(argv[2], "cget", length) == 0)
              && (length >= 2)) {
          if (argc != 5) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag cget tagName option\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag(interp, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_ERROR;
          }
          return Tk_ConfigureValue(interp, textPtr->tkwin, tagConfigSpecs,
                  (char *) tagPtr, argv[4], 0);
      } else if ((c == 'c') && (strncmp(argv[2], "configure", length) == 0)
              && (length >= 2)) {
          if (argc < 4) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag configure tagName ?option? ?value? ",
                      "?option value ...?\"", (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = TkTextCreateTag(textPtr, argv[3]);
          if (argc == 4) {
              return Tk_ConfigureInfo(interp, textPtr->tkwin, tagConfigSpecs,
                      (char *) tagPtr, (char *) NULL, 0);
          } else if (argc == 5) {
              return Tk_ConfigureInfo(interp, textPtr->tkwin, tagConfigSpecs,
                      (char *) tagPtr, argv[4], 0);
          } else {
              int result;
              result = Tk_ConfigureWidget(interp, textPtr->tkwin, tagConfigSpecs,
                      argc-4, argv+4, (char *) tagPtr, 0);
              /*
               * Some of the configuration options, like -underline
               * and -justify, require additional translation (this is
               * needed because we need to distinguish a particular value
               * of an option from "unspecified").
               */
              if (tagPtr->bdString != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin, tagPtr->bdString,
                          &tagPtr->borderWidth) != TCL_OK) {
                      return TCL_ERROR;
                  }
                  if (tagPtr->borderWidth < 0) {
                      tagPtr->borderWidth = 0;
                  }
              }
              if (tagPtr->reliefString != NULL) {
                  if (Tk_GetRelief(interp, tagPtr->reliefString,
                          &tagPtr->relief) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->justifyString != NULL) {
                  if (Tk_GetJustify(interp, tagPtr->justifyString,
                          &tagPtr->justify) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->lMargin1String != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->lMargin1String, &tagPtr->lMargin1) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->lMargin2String != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->lMargin2String, &tagPtr->lMargin2) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->offsetString != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin, tagPtr->offsetString,
                          &tagPtr->offset) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->overstrikeString != NULL) {
                  if (Tcl_GetBoolean(interp, tagPtr->overstrikeString,
                          &tagPtr->overstrike) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->rMarginString != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->rMarginString, &tagPtr->rMargin) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->spacing1String != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->spacing1String, &tagPtr->spacing1) != TCL_OK) {
                      return TCL_ERROR;
                  }
                  if (tagPtr->spacing1 < 0) {
                      tagPtr->spacing1 = 0;
                  }
              }
              if (tagPtr->spacing2String != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->spacing2String, &tagPtr->spacing2) != TCL_OK) {
                      return TCL_ERROR;
                  }
                  if (tagPtr->spacing2 < 0) {
                      tagPtr->spacing2 = 0;
                  }
              }
              if (tagPtr->spacing3String != NULL) {
                  if (Tk_GetPixels(interp, textPtr->tkwin,
                          tagPtr->spacing3String, &tagPtr->spacing3) != TCL_OK) {
                      return TCL_ERROR;
                  }
                  if (tagPtr->spacing3 < 0) {
                      tagPtr->spacing3 = 0;
                  }
              }
              if (tagPtr->tabArrayPtr != NULL) {
                  ckfree((char *) tagPtr->tabArrayPtr);
                  tagPtr->tabArrayPtr = NULL;
              }
              if (tagPtr->tabString != NULL) {
                  tagPtr->tabArrayPtr = TkTextGetTabs(interp, textPtr->tkwin,
                          tagPtr->tabString);
                  if (tagPtr->tabArrayPtr == NULL) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->underlineString != NULL) {
                  if (Tcl_GetBoolean(interp, tagPtr->underlineString,
                          &tagPtr->underline) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              if (tagPtr->elideString != NULL) {
                  if (Tcl_GetBoolean(interp, tagPtr->elideString,
                          &tagPtr->elide) != TCL_OK) {
                      return TCL_ERROR;
                  }
              }
              /*
               * If the "sel" tag was changed, be sure to mirror information
               * from the tag back into the text widget record.   NOTE: we
               * don't have to free up information in the widget record
               * before overwriting it, because it was mirrored in the tag
               * and hence freed when the tag field was overwritten.
               */
              if (tagPtr == textPtr->selTagPtr) {
                  textPtr->selBorder = tagPtr->border;
                  textPtr->selBdString = tagPtr->bdString;
                  textPtr->selFgColorPtr = tagPtr->fgColor;
              }
              tagPtr->affectsDisplay = 0;
              if ((tagPtr->border != NULL)
                      || (tagPtr->bdString != NULL)
                      || (tagPtr->reliefString != NULL)
                      || (tagPtr->bgStipple != None)
                      || (tagPtr->fgColor != NULL) || (tagPtr->tkfont != None)
                      || (tagPtr->fgStipple != None)
                      || (tagPtr->justifyString != NULL)
                      || (tagPtr->lMargin1String != NULL)
                      || (tagPtr->lMargin2String != NULL)
                      || (tagPtr->offsetString != NULL)
                      || (tagPtr->overstrikeString != NULL)
                      || (tagPtr->rMarginString != NULL)
                      || (tagPtr->spacing1String != NULL)
                      || (tagPtr->spacing2String != NULL)
                      || (tagPtr->spacing3String != NULL)
                      || (tagPtr->tabString != NULL)
                      || (tagPtr->underlineString != NULL)
                      || (tagPtr->elideString != NULL)
                      || (tagPtr->wrapMode != TEXT_WRAPMODE_NULL)) {
                  tagPtr->affectsDisplay = 1;
              }
              TkTextRedrawTag(textPtr, (TkTextIndex *) NULL,
                      (TkTextIndex *) NULL, tagPtr, 1);
              return result;
          }
      } else if ((c == 'd') && (strncmp(argv[2], "delete", length) == 0)) {
          Tcl_HashEntry *hPtr;
          if (argc < 4) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag delete tagName tagName ...\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          for (i = 3; i < argc; i++) {
              hPtr = Tcl_FindHashEntry(&textPtr->tagTable, argv[i]);
              if (hPtr == NULL) {
                  continue;
              }
              tagPtr = (TkTextTag *) Tcl_GetHashValue(hPtr);
              if (tagPtr == textPtr->selTagPtr) {
                  continue;
              }
              if (tagPtr->affectsDisplay) {
                  TkTextRedrawTag(textPtr, (TkTextIndex *) NULL,
                          (TkTextIndex *) NULL, tagPtr, 1);
              }
              TkTextMakeByteIndex(textPtr->tree, 0, 0, &first);
              TkTextMakeByteIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
 , &last),
              TkBTreeTag(&first, &last, tagPtr, 0);
              Tcl_DeleteHashEntry(hPtr);
              if (textPtr->bindingTable != NULL) {
                  Tk_DeleteAllBindings(textPtr->bindingTable,
                          (ClientData) tagPtr);
              }
              /*
               * Update the tag priorities to reflect the deletion of this tag.
               */
              ChangeTagPriority(textPtr, tagPtr, textPtr->numTags-1);
              textPtr->numTags -= 1;
              TkTextFreeTag(textPtr, tagPtr);
          }
      } else if ((c == 'l') && (strncmp(argv[2], "lower", length) == 0)) {
          TkTextTag *tagPtr2;
          int prio;
          if ((argc != 4) && (argc != 5)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag lower tagName ?belowThis?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag(interp, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_ERROR;
          }
          if (argc == 5) {
              tagPtr2 = FindTag(interp, textPtr, argv[4]);
              if (tagPtr2 == NULL) {
                  return TCL_ERROR;
              }
              if (tagPtr->priority < tagPtr2->priority) {
                  prio = tagPtr2->priority - 1;
              } else {
                  prio = tagPtr2->priority;
              }
          } else {
              prio = 0;
          }
          ChangeTagPriority(textPtr, tagPtr, prio);
          TkTextRedrawTag(textPtr, (TkTextIndex *) NULL, (TkTextIndex *) NULL,
                  tagPtr, 1);
      } else if ((c == 'n') && (strncmp(argv[2], "names", length) == 0)
              && (length >= 2)) {
          TkTextTag **arrayPtr;
          int arraySize;
          if ((argc != 3) && (argc != 4)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag names ?index?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          if (argc == 3) {
              Tcl_HashSearch search;
              Tcl_HashEntry *hPtr;
              arrayPtr = (TkTextTag **) ckalloc((unsigned)
                      (textPtr->numTags * sizeof(TkTextTag *)));
              for (i = 0, hPtr = Tcl_FirstHashEntry(&textPtr->tagTable, &search);
                      hPtr != NULL; i++, hPtr = Tcl_NextHashEntry(&search)) {
                  arrayPtr[i] = (TkTextTag *) Tcl_GetHashValue(hPtr);
              }
              arraySize = textPtr->numTags;
          } else {
              if (TkTextGetIndex(interp, textPtr, argv[3], &index1)
                      != TCL_OK) {
                  return TCL_ERROR;
              }
              arrayPtr = TkBTreeGetTags(&index1, &arraySize);
              if (arrayPtr == NULL) {
                  return TCL_OK;
              }
          }
          SortTags(arraySize, arrayPtr);
          for (i = 0; i < arraySize; i++) {
              tagPtr = arrayPtr[i];
              Tcl_AppendElement(interp, tagPtr->name);
          }
          ckfree((char *) arrayPtr);
      } else if ((c == 'n') && (strncmp(argv[2], "nextrange", length) == 0)
              && (length >= 2)) {
          TkTextSearch tSearch;
          char position[TK_POS_CHARS];
          if ((argc != 5) && (argc != 6)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag nextrange tagName index1 ?index2?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_OK;
          }
          if (TkTextGetIndex(interp, textPtr, argv[4], &index1) != TCL_OK) {
              return TCL_ERROR;
          }
          TkTextMakeByteIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
 , &last);
          if (argc == 5) {
              index2 = last;
          } else if (TkTextGetIndex(interp, textPtr, argv[5], &index2)
                  != TCL_OK) {
              return TCL_ERROR;
          }
          /*
           * The search below is a bit tricky.  Rather than use the B-tree
           * facilities to stop the search at index2, let it search up
           * until the end of the file but check for a position past index2
           * ourselves.  The reason for doing it this way is that we only
           * care whether the *start* of the range is before index2;  once
           * we find the start, we don't want TkBTreeNextTag to abort the
           * search because the end of the range is after index2.
           */
          TkBTreeStartSearch(&index1, &last, tagPtr, &tSearch);
          if (TkBTreeCharTagged(&index1, tagPtr)) {
              TkTextSegment *segPtr;
              int offset;
              /*
               * The first character is tagged.  See if there is an
               * on-toggle just before the character.  If not, then
               * skip to the end of this tagged range.
               */
              for (segPtr = index1.linePtr->segPtr, offset = index1.byteIndex;
                      offset >= 0;
                      offset -= segPtr->size, segPtr = segPtr->nextPtr) {
                  if ((offset == 0) && (segPtr->typePtr == &tkTextToggleOnType)
                          && (segPtr->body.toggle.tagPtr == tagPtr)) {
                      goto gotStart;
                  }
              }
              if (!TkBTreeNextTag(&tSearch)) {
                   return TCL_OK;
              }
          }
          /*
           * Find the start of the tagged range.
           */
          if (!TkBTreeNextTag(&tSearch)) {
              return TCL_OK;
          }
          gotStart:
          if (TkTextIndexCmp(&tSearch.curIndex, &index2) >= 0) {
              return TCL_OK;
          }
          TkTextPrintIndex(&tSearch.curIndex, position);
          Tcl_AppendElement(interp, position);
          TkBTreeNextTag(&tSearch);
          TkTextPrintIndex(&tSearch.curIndex, position);
          Tcl_AppendElement(interp, position);
      } else if ((c == 'p') && (strncmp(argv[2], "prevrange", length) == 0)
              && (length >= 2)) {
          TkTextSearch tSearch;
          char position1[TK_POS_CHARS];
          char position2[TK_POS_CHARS];
          if ((argc != 5) && (argc != 6)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag prevrange tagName index1 ?index2?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_OK;
          }
          if (TkTextGetIndex(interp, textPtr, argv[4], &index1) != TCL_OK) {
              return TCL_ERROR;
          }
          if (argc == 5) {
              TkTextMakeByteIndex(textPtr->tree, 0, 0, &index2);
          } else if (TkTextGetIndex(interp, textPtr, argv[5], &index2)
                  != TCL_OK) {
              return TCL_ERROR;
          }
          /*
           * The search below is a bit weird.  The previous toggle can be
           * either an on or off toggle. If it is an on toggle, then we
           * need to turn around and search forward for the end toggle.
           * Otherwise we keep searching backwards.
           */
          TkBTreeStartSearchBack(&index1, &index2, tagPtr, &tSearch);
          if (!TkBTreePrevTag(&tSearch)) {
              return TCL_OK;
          }
          if (tSearch.segPtr->typePtr == &tkTextToggleOnType) {
              TkTextPrintIndex(&tSearch.curIndex, position1);
              TkTextMakeByteIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
 , &last);
              TkBTreeStartSearch(&tSearch.curIndex, &last, tagPtr, &tSearch);
              TkBTreeNextTag(&tSearch);
              TkTextPrintIndex(&tSearch.curIndex, position2);
          } else {
              TkTextPrintIndex(&tSearch.curIndex, position2);
              TkBTreePrevTag(&tSearch);
              if (TkTextIndexCmp(&tSearch.curIndex, &index2) < 0) {
                  return TCL_OK;
              }
              TkTextPrintIndex(&tSearch.curIndex, position1);
          }
          Tcl_AppendElement(interp, position1);
          Tcl_AppendElement(interp, position2);
      } else if ((c == 'r') && (strncmp(argv[2], "raise", length) == 0)
              && (length >= 3)) {
          TkTextTag *tagPtr2;
          int prio;
          if ((argc != 4) && (argc != 5)) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag raise tagName ?aboveThis?\"",
                      (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag(interp, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_ERROR;
          }
          if (argc == 5) {
              tagPtr2 = FindTag(interp, textPtr, argv[4]);
              if (tagPtr2 == NULL) {
                  return TCL_ERROR;
              }
              if (tagPtr->priority <= tagPtr2->priority) {
                  prio = tagPtr2->priority;
              } else {
                  prio = tagPtr2->priority + 1;
              }
          } else {
              prio = textPtr->numTags-1;
          }
          ChangeTagPriority(textPtr, tagPtr, prio);
          TkTextRedrawTag(textPtr, (TkTextIndex *) NULL, (TkTextIndex *) NULL,
                  tagPtr, 1);
      } else if ((c == 'r') && (strncmp(argv[2], "ranges", length) == 0)
              && (length >= 3)) {
          TkTextSearch tSearch;
          char position[TK_POS_CHARS];
          if (argc != 4) {
              Tcl_AppendResult(interp, "wrong # args: should be \"",
                      argv[0], " tag ranges tagName\"", (char *) NULL);
              return TCL_ERROR;
          }
          tagPtr = FindTag((Tcl_Interp *) NULL, textPtr, argv[3]);
          if (tagPtr == NULL) {
              return TCL_OK;
          }
          TkTextMakeByteIndex(textPtr->tree, 0, 0, &first);
          TkTextMakeByteIndex(textPtr->tree, TkBTreeNumLines(textPtr->tree),
 , &last);
          TkBTreeStartSearch(&first, &last, tagPtr, &tSearch);
          if (TkBTreeCharTagged(&first, tagPtr)) {
              TkTextPrintIndex(&first, position);
              Tcl_AppendElement(interp, position);
          }
          while (TkBTreeNextTag(&tSearch)) {
              TkTextPrintIndex(&tSearch.curIndex, position);
              Tcl_AppendElement(interp, position);
          }
      } else if ((c == 'r') && (strncmp(argv[2], "remove", length) == 0)
              && (length >= 2)) {
          fullOption = "remove";
          addTag = 0;
          goto addAndRemove;
      } else {
          Tcl_AppendResult(interp, "bad tag option \"", argv[2],
                  "\": must be add, bind, cget, configure, delete, lower, ",
                  "names, nextrange, raise, ranges, or remove",
                  (char *) NULL);
          return TCL_ERROR;
      }
      return TCL_OK;
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkTextCreateTag --
   *
   *      Find the record describing a tag within a given text widget,
   *      creating a new record if one doesn't already exist.
   *
   * Results:
   *      The return value is a pointer to the TkTextTag record for tagName.
   *
   * Side effects:
   *      A new tag record is created if there isn't one already defined
   *      for tagName.
   *
   *----------------------------------------------------------------------
   */
  TkTextTag *
  TkTextCreateTag(textPtr, tagName)
      TkText *textPtr;            /* Widget in which tag is being used. */
      char *tagName;              /* Name of desired tag. */
  {
      register TkTextTag *tagPtr;
      Tcl_HashEntry *hPtr;
      int new;
      hPtr = Tcl_CreateHashEntry(&textPtr->tagTable, tagName, &new);
      if (!new) {
          return (TkTextTag *) Tcl_GetHashValue(hPtr);
      }
      /*
       * No existing entry.  Create a new one, initialize it, and add a
       * pointer to it to the hash table entry.
       */
      tagPtr = (TkTextTag *) ckalloc(sizeof(TkTextTag));
      tagPtr->name = Tcl_GetHashKey(&textPtr->tagTable, hPtr);
      tagPtr->toggleCount = 0;
      tagPtr->tagRootPtr = NULL;
      tagPtr->priority = textPtr->numTags;
      tagPtr->border = NULL;
      tagPtr->bdString = NULL;
      tagPtr->borderWidth = 0;
      tagPtr->reliefString = NULL;
      tagPtr->relief = TK_RELIEF_FLAT;
      tagPtr->bgStipple = None;
      tagPtr->fgColor = NULL;
      tagPtr->tkfont = NULL;
      tagPtr->fgStipple = None;
      tagPtr->justifyString = NULL;
      tagPtr->justify = TK_JUSTIFY_LEFT;
      tagPtr->lMargin1String = NULL;
      tagPtr->lMargin1 = 0;
      tagPtr->lMargin2String = NULL;
      tagPtr->lMargin2 = 0;
      tagPtr->offsetString = NULL;
      tagPtr->offset = 0;
      tagPtr->overstrikeString = NULL;
      tagPtr->overstrike = 0;
      tagPtr->rMarginString = NULL;
      tagPtr->rMargin = 0;
      tagPtr->spacing1String = NULL;
      tagPtr->spacing1 = 0;
      tagPtr->spacing2String = NULL;
      tagPtr->spacing2 = 0;
      tagPtr->spacing3String = NULL;
      tagPtr->spacing3 = 0;
      tagPtr->tabString = NULL;
      tagPtr->tabArrayPtr = NULL;
      tagPtr->underlineString = NULL;
      tagPtr->underline = 0;
      tagPtr->elideString = NULL;
      tagPtr->elide = 0;
      tagPtr->wrapMode = TEXT_WRAPMODE_NULL;
      tagPtr->affectsDisplay = 0;
      textPtr->numTags++;
      Tcl_SetHashValue(hPtr, tagPtr);
      return tagPtr;
  }
  /*
   *----------------------------------------------------------------------
   *
   * FindTag --
   *
   *      See if tag is defined for a given widget.
   *
   * Results:
   *      If tagName is defined in textPtr, a pointer to its TkTextTag
   *      structure is returned.  Otherwise NULL is returned and an
   *      error message is recorded in the interp's result unless interp
   *      is NULL.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  static TkTextTag *
  FindTag(interp, textPtr, tagName)
      Tcl_Interp *interp;         /* Interpreter to use for error message;
                                   * if NULL, then don't record an error
                                   * message. */
      TkText *textPtr;            /* Widget in which tag is being used. */
      char *tagName;              /* Name of desired tag. */
  {
      Tcl_HashEntry *hPtr;
      hPtr = Tcl_FindHashEntry(&textPtr->tagTable, tagName);
      if (hPtr != NULL) {
          return (TkTextTag *) Tcl_GetHashValue(hPtr);
      }
      if (interp != NULL) {
          Tcl_AppendResult(interp, "tag \"", tagName,
                  "\" isn't defined in text widget", (char *) NULL);
      }
      return NULL;
  }
  /*
   *----------------------------------------------------------------------
   *
   * TkTextFreeTag --
   *
   *      This procedure is called when a tag is deleted to free up the
   *      memory and other resources associated with the tag.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Memory and other resources are freed.
   *
   *----------------------------------------------------------------------
   */
  void
  TkTextFreeTag(textPtr, tagPtr)
      TkText *textPtr;                    /* Info about overall widget. */
      register TkTextTag *tagPtr;         /* Tag being deleted. */
  {
      if (tagPtr->border != None) {
          Tk_Free3DBorder(tagPtr->border);
      }
      if (tagPtr->bdString != NULL) {
          ckfree(tagPtr->bdString);
      }
      if (tagPtr->reliefString != NULL) {
          ckfree(tagPtr->reliefString);
      }
      if (tagPtr->bgStipple != None) {
          Tk_FreeBitmap(textPtr->display, tagPtr->bgStipple);
      }
      if (tagPtr->fgColor != None) {
          Tk_FreeColor(tagPtr->fgColor);
      }
      Tk_FreeFont(tagPtr->tkfont);
      if (tagPtr->fgStipple != None) {
          Tk_FreeBitmap(textPtr->display, tagPtr->fgStipple);
      }
      if (tagPtr->justifyString != NULL) {
          ckfree(tagPtr->justifyString);
      }
      if (tagPtr->lMargin1String != NULL) {
          ckfree(tagPtr->lMargin1String);
      }
      if (tagPtr->lMargin2String != NULL) {
          ckfree(tagPtr->lMargin2String);
      }
      if (tagPtr->offsetString != NULL) {
          ckfree(tagPtr->offsetString);
      }
      if (tagPtr->overstrikeString != NULL) {
          ckfree(tagPtr->overstrikeString);
      }
      if (tagPtr->rMarginString != NULL) {
          ckfree(tagPtr->rMarginString);
      }
      if (tagPtr->spacing1String != NULL) {
          ckfree(tagPtr->spacing1String);
      }
      if (tagPtr->spacing2String != NULL) {
          ckfree(tagPtr->spacing2String);
      }
      if (tagPtr->spacing3String != NULL) {
          ckfree(tagPtr->spacing3String);
      }
      if (tagPtr->tabString != NULL) {
          ckfree(tagPtr->tabString);
      }
      if (tagPtr->tabArrayPtr != NULL) {
          ckfree((char *) tagPtr->tabArrayPtr);
      }
      if (tagPtr->underlineString != NULL) {
          ckfree(tagPtr->underlineString);
      }
      ckfree((char *) tagPtr);
  }
  /*
   *----------------------------------------------------------------------
   *
   * SortTags --
   *
   *      This procedure sorts an array of tag pointers in increasing
   *      order of priority, optimizing for the common case where the
   *      array is small.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  static void
  SortTags(numTags, tagArrayPtr)
      int numTags;                /* Number of tag pointers at *tagArrayPtr. */
      TkTextTag **tagArrayPtr;    /* Pointer to array of pointers. */
  {
      int i, j, prio;
      register TkTextTag **tagPtrPtr;
      TkTextTag **maxPtrPtr, *tmp;
      if (numTags < 2) {
          return;
      }
      if (numTags < 20) {
          for (i = numTags-1; i > 0; i--, tagArrayPtr++) {
              maxPtrPtr = tagPtrPtr = tagArrayPtr;
              prio = tagPtrPtr[0]->priority;
              for (j = i, tagPtrPtr++; j > 0; j--, tagPtrPtr++) {
                  if (tagPtrPtr[0]->priority < prio) {
                      prio = tagPtrPtr[0]->priority;
                      maxPtrPtr = tagPtrPtr;
                  }
              }
              tmp = *maxPtrPtr;
              *maxPtrPtr = *tagArrayPtr;
              *tagArrayPtr = tmp;
          }
      } else {
          qsort((VOID *) tagArrayPtr, (unsigned) numTags, sizeof (TkTextTag *),
                      TagSortProc);
      }
  }
  /*
   *----------------------------------------------------------------------
   *
   * TagSortProc --
   *
   *      This procedure is called by qsort when sorting an array of
   *      tags in priority order.
   *
   * Results:
   *      The return value is -1 if the first argument should be before
   *      the second element (i.e. it has lower priority), 0 if it's
   *      equivalent (this should never happen!), and 1 if it should be
   *      after the second element.
   *
   * Side effects:
   *      None.
   *
   *----------------------------------------------------------------------
   */
  static int
  TagSortProc(first, second)
      CONST VOID *first, *second;         /* Elements to be compared. */
  {
      TkTextTag *tagPtr1, *tagPtr2;
      tagPtr1 = * (TkTextTag **) first;
      tagPtr2 = * (TkTextTag **) second;
      return tagPtr1->priority - tagPtr2->priority;
  }
  /*
   *----------------------------------------------------------------------
   *
   * ChangeTagPriority --
   *
   *      This procedure changes the priority of a tag by modifying
   *      its priority and the priorities of other tags that are affected
   *      by the change.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Priorities may be changed for some or all of the tags in
   *      textPtr.  The tags will be arranged so that there is exactly
   *      one tag at each priority level between 0 and textPtr->numTags-1,
   *      with tagPtr at priority "prio".
   *
   *----------------------------------------------------------------------
   */
  static void
  ChangeTagPriority(textPtr, tagPtr, prio)
      TkText *textPtr;                    /* Information about text widget. */
      TkTextTag *tagPtr;                  /* Tag whose priority is to be
                                           * changed. */
      int prio;                           /* New priority for tag. */
  {
      int low, high, delta;
      register TkTextTag *tagPtr2;
      Tcl_HashEntry *hPtr;
      Tcl_HashSearch search;
      if (prio < 0) {
          prio = 0;
      }
      if (prio >= textPtr->numTags) {
          prio = textPtr->numTags-1;
      }
      if (prio == tagPtr->priority) {
          return;
      } else if (prio < tagPtr->priority) {
          low = prio;
          high = tagPtr->priority-1;
          delta = 1;
      } else {
          low = tagPtr->priority+1;
          high = prio;
          delta = -1;
      }
      for (hPtr = Tcl_FirstHashEntry(&textPtr->tagTable, &search);
              hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
          tagPtr2 = (TkTextTag *) Tcl_GetHashValue(hPtr);
          if ((tagPtr2->priority >= low) && (tagPtr2->priority <= high)) {
              tagPtr2->priority += delta;
          }
      }
      tagPtr->priority = prio;
  }
  /*
   *--------------------------------------------------------------
   *
   * TkTextBindProc --
   *
   *      This procedure is invoked by the Tk dispatcher to handle
   *      events associated with bindings on items.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      Depends on the command invoked as part of the binding
   *      (if there was any).
   *
   *--------------------------------------------------------------
   */
  void
  TkTextBindProc(clientData, eventPtr)
      ClientData clientData;              /* Pointer to canvas structure. */
      XEvent *eventPtr;                   /* Pointer to X event that just
                                           * happened. */
  {
      TkText *textPtr = (TkText *) clientData;
      int repick  = 0;
  # define AnyButtonMask (Button1Mask|Button2Mask|Button3Mask\
          |Button4Mask|Button5Mask)
      Tcl_Preserve((ClientData) textPtr);
      /*
       * This code simulates grabs for mouse buttons by keeping track
       * of whether a button is pressed and refusing to pick a new current
       * character while a button is pressed.
       */
      if (eventPtr->type == ButtonPress) {
          textPtr->flags |= BUTTON_DOWN;
      } else if (eventPtr->type == ButtonRelease) {
          int mask;
          switch (eventPtr->xbutton.button) {
              case Button1:
                  mask = Button1Mask;
                  break;
              case Button2:
                  mask = Button2Mask;
                  break;
              case Button3:
                  mask = Button3Mask;
                  break;
              case Button4:
                  mask = Button4Mask;
                  break;
              case Button5:
                  mask = Button5Mask;
                  break;
              default:
                  mask = 0;
                  break;
          }
          if ((eventPtr->xbutton.state & AnyButtonMask) == (unsigned) mask) {
              textPtr->flags &= ~BUTTON_DOWN;
              repick = 1;
          }
      } else if ((eventPtr->type == EnterNotify)
              || (eventPtr->type == LeaveNotify)) {
          if (eventPtr->xcrossing.state & AnyButtonMask)  {
              textPtr->flags |= BUTTON_DOWN;
          } else {
              textPtr->flags &= ~BUTTON_DOWN;
          }
          TkTextPickCurrent(textPtr, eventPtr);
          goto done;
      } else if (eventPtr->type == MotionNotify) {
          if (eventPtr->xmotion.state & AnyButtonMask)  {
              textPtr->flags |= BUTTON_DOWN;
          } else {
              textPtr->flags &= ~BUTTON_DOWN;
          }
          TkTextPickCurrent(textPtr, eventPtr);
      }
      if ((textPtr->numCurTags > 0) && (textPtr->bindingTable != NULL)
              && (textPtr->tkwin != NULL)) {
          Tk_BindEvent(textPtr->bindingTable, eventPtr, textPtr->tkwin,
                  textPtr->numCurTags, (ClientData *) textPtr->curTagArrayPtr);
      }
      if (repick) {
          unsigned int oldState;
          oldState = eventPtr->xbutton.state;
          eventPtr->xbutton.state &= ~(Button1Mask|Button2Mask
                  |Button3Mask|Button4Mask|Button5Mask);
          TkTextPickCurrent(textPtr, eventPtr);
          eventPtr->xbutton.state = oldState;
      }
      done:
      Tcl_Release((ClientData) textPtr);
  }
  /*
   *--------------------------------------------------------------
   *
   * TkTextPickCurrent --
   *
   *      Find the character containing the coordinates in an event
   *      and place the "current" mark on that character.  If the
   *      "current" mark has moved then generate a fake leave event
   *      on the old current character and a fake enter event on the new
   *      current character.
   *
   * Results:
   *      None.
   *
   * Side effects:
   *      The current mark for textPtr may change.  If it does,
   *      then the commands associated with character entry and leave
   *      could do just about anything.  For example, the text widget
   *      might be deleted.  It is up to the caller to protect itself
   *      with calls to Tcl_Preserve and Tcl_Release.
   *
   *--------------------------------------------------------------
   */
  void
  TkTextPickCurrent(textPtr, eventPtr)
      register TkText *textPtr;           /* Text widget in which to select
                                           * current character. */
      XEvent *eventPtr;                   /* Event describing location of
                                           * mouse cursor.  Must be EnterWindow,
                                           * LeaveWindow, ButtonRelease, or
                                           * MotionNotify. */
  {
      TkTextIndex index;
      TkTextTag **oldArrayPtr, **newArrayPtr;
      TkTextTag **copyArrayPtr = NULL;    /* Initialization needed to prevent
                                           * compiler warning. */
      int numOldTags, numNewTags, i, j, size;
      XEvent event;
      /*
       * If a button is down, then don't do anything at all;  we'll be
       * called again when all buttons are up, and we can repick then.
       * This implements a form of mouse grabbing.
       */
      if (textPtr->flags & BUTTON_DOWN) {
          if (((eventPtr->type == EnterNotify) || (eventPtr->type == LeaveNotify))
                  && ((eventPtr->xcrossing.mode == NotifyGrab)
                  || (eventPtr->xcrossing.mode == NotifyUngrab))) {
              /*
               * Special case:  the window is being entered or left because
               * of a grab or ungrab.  In this case, repick after all.
               * Furthermore, clear BUTTON_DOWN to release the simulated
               * grab.
               */
              textPtr->flags &= ~BUTTON_DOWN;
          } else {
              return;
          }
      }
      /*
       * Save information about this event in the widget in case we have
       * to synthesize more enter and leave events later (e.g. because a
       * character was deleted, causing a new character to be underneath
       * the mouse cursor).  Also translate MotionNotify events into
       * EnterNotify events, since that's what gets reported to event
       * handlers when the current character changes.
       */
      if (eventPtr != &textPtr->pickEvent) {
          if ((eventPtr->type == MotionNotify)
                  || (eventPtr->type == ButtonRelease)) {
              textPtr->pickEvent.xcrossing.type = EnterNotify;
              textPtr->pickEvent.xcrossing.serial = eventPtr->xmotion.serial;
              textPtr->pickEvent.xcrossing.send_event
                      = eventPtr->xmotion.send_event;
              textPtr->pickEvent.xcrossing.display = eventPtr->xmotion.display;
              textPtr->pickEvent.xcrossing.window = eventPtr->xmotion.window;
              textPtr->pickEvent.xcrossing.root = eventPtr->xmotion.root;
              textPtr->pickEvent.xcrossing.subwindow = None;
              textPtr->pickEvent.xcrossing.time = eventPtr->xmotion.time;
              textPtr->pickEvent.xcrossing.x = eventPtr->xmotion.x;
              textPtr->pickEvent.xcrossing.y = eventPtr->xmotion.y;
              textPtr->pickEvent.xcrossing.x_root = eventPtr->xmotion.x_root;
              textPtr->pickEvent.xcrossing.y_root = eventPtr->xmotion.y_root;
              textPtr->pickEvent.xcrossing.mode = NotifyNormal;
              textPtr->pickEvent.xcrossing.detail = NotifyNonlinear;
              textPtr->pickEvent.xcrossing.same_screen
                      = eventPtr->xmotion.same_screen;
              textPtr->pickEvent.xcrossing.focus = False;
              textPtr->pickEvent.xcrossing.state = eventPtr->xmotion.state;
          } else  {
              textPtr->pickEvent = *eventPtr;
          }
      }
      /*
       * Find the new current character, then find and sort all of the
       * tags associated with it.
       */
      if (textPtr->pickEvent.type != LeaveNotify) {
          TkTextPixelIndex(textPtr, textPtr->pickEvent.xcrossing.x,
                  textPtr->pickEvent.xcrossing.y, &index);
          newArrayPtr = TkBTreeGetTags(&index, &numNewTags);
          SortTags(numNewTags, newArrayPtr);
      } else {
          newArrayPtr = NULL;
          numNewTags = 0;
      }
      /*
       * Resort the tags associated with the previous marked character
       * (the priorities might have changed), then make a copy of the
       * new tags, and compare the old tags to the copy, nullifying
       * any tags that are present in both groups (i.e. the tags that
       * haven't changed).
       */
      SortTags(textPtr->numCurTags, textPtr->curTagArrayPtr);
      if (numNewTags > 0) {
          size = numNewTags * sizeof(TkTextTag *);
          copyArrayPtr = (TkTextTag **) ckalloc((unsigned) size);
          memcpy((VOID *) copyArrayPtr, (VOID *) newArrayPtr, (size_t) size);
          for (i = 0; i < textPtr->numCurTags; i++) {
              for (j = 0; j < numNewTags; j++) {
                  if (textPtr->curTagArrayPtr[i] == copyArrayPtr[j]) {
                      textPtr->curTagArrayPtr[i] = NULL;
                      copyArrayPtr[j] = NULL;
                      break;
                  }
              }
          }
      }
      /*
       * Invoke the binding system with a LeaveNotify event for all of
       * the tags that have gone away.  We have to be careful here,
       * because it's possible that the binding could do something
       * (like calling tkwait) that eventually modifies
       * textPtr->curTagArrayPtr.  To avoid problems in situations like
       * this, update curTagArrayPtr to its new value before invoking
       * any bindings, and don't use it any more here.
       */
      numOldTags = textPtr->numCurTags;
      textPtr->numCurTags = numNewTags;
      oldArrayPtr = textPtr->curTagArrayPtr;
      textPtr->curTagArrayPtr = newArrayPtr;
      if (numOldTags != 0) {
          if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
              event = textPtr->pickEvent;
              event.type = LeaveNotify;
              /*
               * Always use a detail of NotifyAncestor.  Besides being
               * consistent, this avoids problems where the binding code
               * will discard NotifyInferior events.
               */
              event.xcrossing.detail = NotifyAncestor;
              Tk_BindEvent(textPtr->bindingTable, &event, textPtr->tkwin,
                      numOldTags, (ClientData *) oldArrayPtr);
          }
          ckfree((char *) oldArrayPtr);
      }
      /*
       * Reset the "current" mark (be careful to recompute its location,
       * since it might have changed during an event binding).  Then
       * invoke the binding system with an EnterNotify event for all of
       * the tags that have just appeared.
       */
      TkTextPixelIndex(textPtr, textPtr->pickEvent.xcrossing.x,
              textPtr->pickEvent.xcrossing.y, &index);
      TkTextSetMark(textPtr, "current", &index);
      if (numNewTags != 0) {
          if ((textPtr->bindingTable != NULL) && (textPtr->tkwin != NULL)) {
              event = textPtr->pickEvent;
              event.type = EnterNotify;
              event.xcrossing.detail = NotifyAncestor;
              Tk_BindEvent(textPtr->bindingTable, &event, textPtr->tkwin,
                      numNewTags, (ClientData *) copyArrayPtr);
          }
          ckfree((char *) copyArrayPtr);
      }
  }
  /* End of tktexttag.c */

 Legend:



Removed from v.69
 


changed lines


 
Added in v.71
 Legend:



Removed from v.69
 


changed lines


 
Added in v.71
-Removed from v.69
+Added in v.71

dashley@gmail.com	ViewVC Help
Powered by ViewVC 1.1.25