开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tkText.h
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：36k
源码类别：

通讯编程

开发平台：

Visual C++

tkText.h：源码内容
  1. /*
  2.  * tkText.h --
  3.  *
  4.  * Declarations shared among the files that implement text
  5.  * widgets.
  6.  *
  7.  * Copyright (c) 1992-1994 The Regents of the University of California.
  8.  * Copyright (c) 1994-1995 Sun Microsystems, Inc.
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  * RCS: @(#) $Id: tkText.h,v 1.13.2.1 2006/10/17 05:38:48 dgp Exp $
  14.  */
  16. #ifndef _TKTEXT
  17. #define _TKTEXT
  19. #ifndef _TK
  20. #include "tk.h"
  21. #endif
  23. #ifndef _TKUNDO
  24. #include "tkUndo.h"
  25. #endif
  27. #ifdef BUILD_tk
  28. # undef TCL_STORAGE_CLASS
  29. # define TCL_STORAGE_CLASS DLLEXPORT
  30. #endif
  32. /*
  33.  * Opaque types for structures whose guts are only needed by a single
  34.  * file:
  35.  */
  37. typedef struct TkTextBTree_ *TkTextBTree;
  39. /*
  40.  * The data structure below defines a single line of text (from newline
  41.  * to newline, not necessarily what appears on one line of the screen).
  42.  */
  44. typedef struct TkTextLine {
  45.     struct Node *parentPtr; /* Pointer to parent node containing
  46.  * line. */
  47.     struct TkTextLine *nextPtr; /* Next in linked list of lines with
  48.  * same parent node in B-tree.  NULL
  49.  * means end of list. */
  50.     struct TkTextSegment *segPtr; /* First in ordered list of segments
  51.  * that make up the line. */
  52. } TkTextLine;
  54. /*
  55.  * -----------------------------------------------------------------------
  56.  * Segments: each line is divided into one or more segments, where each
  57.  * segment is one of several things, such as a group of characters, a
  58.  * tag toggle, a mark, or an embedded widget.  Each segment starts with
  59.  * a standard header followed by a body that varies from type to type.
  60.  * -----------------------------------------------------------------------
  61.  */
  63. /*
  64.  * The data structure below defines the body of a segment that represents
  65.  * a tag toggle.  There is one of these structures at both the beginning
  66.  * and end of each tagged range.
  67.  */
  69. typedef struct TkTextToggle {
  70.     struct TkTextTag *tagPtr; /* Tag that starts or ends here. */
  71.     int inNodeCounts; /* 1 means this toggle has been
  72.  * accounted for in node toggle
  73.  * counts; 0 means it hasn't, yet. */
  74. } TkTextToggle;
  76. /*
  77.  * The data structure below defines line segments that represent
  78.  * marks.  There is one of these for each mark in the text.
  79.  */
  81. typedef struct TkTextMark {
  82.     struct TkText *textPtr; /* Overall information about text
  83.  * widget. */
  84.     TkTextLine *linePtr; /* Line structure that contains the
  85.  * segment. */
  86.     Tcl_HashEntry *hPtr; /* Pointer to hash table entry for mark
  87.  * (in textPtr->markTable). */
  88. } TkTextMark;
  90. /*
  91.  * A structure of the following type holds information for each window
  92.  * embedded in a text widget.  This information is only used by the
  93.  * file tkTextWind.c
  94.  */
  96. typedef struct TkTextEmbWindow {
  97.     struct TkText *textPtr; /* Information about the overall text
  98.  * widget. */
  99.     TkTextLine *linePtr; /* Line structure that contains this
  100.  * window. */
  101.     Tk_Window tkwin; /* Window for this segment.  NULL
  102.  * means that the window hasn't
  103.  * been created yet. */
  104.     char *create; /* Script to create window on-demand.
  105.  * NULL means no such script.
  106.  * Malloc-ed. */
  107.     int align; /* How to align window in vertical
  108.  * space.  See definitions in
  109.  * tkTextWind.c. */
  110.     int padX, padY; /* Padding to leave around each side
  111.  * of window, in pixels. */
  112.     int stretch; /* Should window stretch to fill
  113.  * vertical space of line (except for
  114.  * pady)?  0 or 1. */
  115.     int chunkCount; /* Number of display chunks that
  116.  * refer to this window. */
  117.     int displayed; /* Non-zero means that the window
  118.  * has been displayed on the screen
  119.  * recently. */
  120. } TkTextEmbWindow;
  122. /*
  123.  * A structure of the following type holds information for each image
  124.  * embedded in a text widget.  This information is only used by the
  125.  * file tkTextImage.c
  126.  */
  128. typedef struct TkTextEmbImage {
  129.     struct TkText *textPtr; /* Information about the overall text
  130.  * widget. */
  131.     TkTextLine *linePtr; /* Line structure that contains this
  132.  * image. */
  133.     char *imageString; /* Name of the image for this segment */
  134.     char *imageName; /* Name used by text widget to identify
  135.       * this image.  May be unique-ified */
  136.     char *name; /* Name used in the hash table.
  137.       * used by "image names" to identify
  138.       * this instance of the image */
  139.     Tk_Image image; /* Image for this segment.  NULL
  140.  * means that the image hasn't
  141.  * been created yet. */
  142.     int align; /* How to align image in vertical
  143.  * space.  See definitions in
  144.  * tkTextImage.c. */
  145.     int padX, padY; /* Padding to leave around each side
  146.  * of image, in pixels. */
  147.     int chunkCount; /* Number of display chunks that
  148.  * refer to this image. */
  149. } TkTextEmbImage;
  151. /*
  152.  * The data structure below defines line segments.
  153.  */
  155. typedef struct TkTextSegment {
  156.     struct Tk_SegType *typePtr; /* Pointer to record describing
  157.  * segment's type. */
  158.     struct TkTextSegment *nextPtr; /* Next in list of segments for this
  159.  * line, or NULL for end of list. */
  160.     int size; /* Size of this segment (# of bytes
  161.  * of index space it occupies). */
  162.     union {
  163. char chars[4]; /* Characters that make up character
  164.  * info.  Actual length varies to
  165.  * hold as many characters as needed.*/
  166. TkTextToggle toggle; /* Information about tag toggle. */
  167. TkTextMark mark; /* Information about mark. */
  168. TkTextEmbWindow ew; /* Information about embedded
  169.  * window. */
  170. TkTextEmbImage ei; /* Information about embedded
  171.  * image. */
  172.     } body;
  173. } TkTextSegment;
  175. /*
  176.  * Data structures of the type defined below are used during the
  177.  * execution of Tcl commands to keep track of various interesting
  178.  * places in a text.  An index is only valid up until the next
  179.  * modification to the character structure of the b-tree so they
  180.  * can't be retained across Tcl commands.  However, mods to marks
  181.  * or tags don't invalidate indices.
  182.  */
  184. typedef struct TkTextIndex {
  185.     TkTextBTree tree; /* Tree containing desired position. */
  186.     TkTextLine *linePtr; /* Pointer to line containing position
  187.  * of interest. */
  188.     int byteIndex; /* Index within line of desired
  189.  * character (0 means first one). */
  190. } TkTextIndex;
  192. /*
  193.  * Types for procedure pointers stored in TkTextDispChunk strutures:
  194.  */
  196. typedef struct TkTextDispChunk TkTextDispChunk;
  198. typedef void  Tk_ChunkDisplayProc _ANSI_ARGS_((
  199.     TkTextDispChunk *chunkPtr, int x, int y,
  200.     int height, int baseline, Display *display,
  201.     Drawable dst, int screenY));
  202. typedef void Tk_ChunkUndisplayProc _ANSI_ARGS_((
  203.     struct TkText *textPtr,
  204.     TkTextDispChunk *chunkPtr));
  205. typedef int Tk_ChunkMeasureProc _ANSI_ARGS_((
  206.     TkTextDispChunk *chunkPtr, int x));
  207. typedef void Tk_ChunkBboxProc _ANSI_ARGS_((
  208.     TkTextDispChunk *chunkPtr, int index, int y,
  209.     int lineHeight, int baseline, int *xPtr,
  210.     int *yPtr, int *widthPtr, int *heightPtr));
  212. /*
  213.  * The structure below represents a chunk of stuff that is displayed
  214.  * together on the screen.  This structure is allocated and freed by
  215.  * generic display code but most of its fields are filled in by
  216.  * segment-type-specific code.
  217.  */
  219. struct TkTextDispChunk {
  220.     /*
  221.      * The fields below are set by the type-independent code before
  222.      * calling the segment-type-specific layoutProc.  They should not
  223.      * be modified by segment-type-specific code.
  224.      */
  226.     int x; /* X position of chunk, in pixels.
  227.  * This position is measured from the
  228.  * left edge of the logical line,
  229.  * not from the left edge of the
  230.  * window (i.e. it doesn't change
  231.  * under horizontal scrolling). */
  232.     struct TkTextDispChunk *nextPtr; /* Next chunk in the display line
  233.  * or NULL for the end of the list. */
  234.     struct TextStyle *stylePtr; /* Display information, known only
  235.  * to tkTextDisp.c. */
  237.     /*
  238.      * The fields below are set by the layoutProc that creates the
  239.      * chunk.
  240.      */
  242.     Tk_ChunkDisplayProc *displayProc; /* Procedure to invoke to draw this
  243.  * chunk on the display or an
  244.  * off-screen pixmap. */
  245.     Tk_ChunkUndisplayProc *undisplayProc;
  246. /* Procedure to invoke when segment
  247.  * ceases to be displayed on screen
  248.  * anymore. */
  249.     Tk_ChunkMeasureProc *measureProc; /* Procedure to find character under
  250.  * a given x-location. */
  251.     Tk_ChunkBboxProc *bboxProc; /* Procedure to find bounding box
  252.  * of character in chunk. */
  253.     int numBytes; /* Number of bytes that will be
  254.  * displayed in the chunk. */
  255.     int minAscent; /* Minimum space above the baseline
  256.  * needed by this chunk. */
  257.     int minDescent; /* Minimum space below the baseline
  258.  * needed by this chunk. */
  259.     int minHeight; /* Minimum total line height needed
  260.  * by this chunk. */
  261.     int width; /* Width of this chunk, in pixels.
  262.  * Initially set by chunk-specific
  263.  * code, but may be increased to
  264.  * include tab or extra space at end
  265.  * of line. */
  266.     int breakIndex; /* Index within chunk of last
  267.  * acceptable position for a line
  268.  * (break just before this byte index).
  269.  * <= 0 means don't break during or
  270.  * immediately after this chunk. */
  271.     ClientData clientData; /* Additional information for use
  272.  * of displayProc and undisplayProc. */
  273. };
  275. /*
  276.  * One data structure of the following type is used for each tag in a
  277.  * text widget.  These structures are kept in textPtr->tagTable and
  278.  * referred to in other structures.
  279.  */
  281. typedef enum { TEXT_WRAPMODE_NULL, TEXT_WRAPMODE_NONE,
  282. TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_WORD
  283. } TkWrapMode;
  285. EXTERN Tk_CustomOption TkTextWrapModeOption;
  287. typedef struct TkTextTag {
  288.     char *name; /* Name of this tag.  This field is actually
  289.  * a pointer to the key from the entry in
  290.  * textPtr->tagTable, so it needn't be freed
  291.  * explicitly. */
  292.     int priority; /* Priority of this tag within widget.  0
  293.  * means lowest priority.  Exactly one tag
  294.  * has each integer value between 0 and
  295.  * numTags-1. */
  296.     struct Node *tagRootPtr; /* Pointer into the B-Tree at the lowest
  297.  * node that completely dominates the ranges
  298.  * of text occupied by the tag.  At this
  299.  * node there is no information about the
  300.  * tag.  One or more children of the node
  301.  * do contain information about the tag. */
  302.     int toggleCount; /* Total number of tag toggles */
  304.     /*
  305.      * Information for displaying text with this tag.  The information
  306.      * belows acts as an override on information specified by lower-priority
  307.      * tags.  If no value is specified, then the next-lower-priority tag
  308.      * on the text determins the value.  The text widget itself provides
  309.      * defaults if no tag specifies an override.
  310.      */
  312.     Tk_3DBorder border; /* Used for drawing background.  NULL means
  313.  * no value specified here. */
  314.     char *bdString; /* -borderwidth option string (malloc-ed).
  315.  * NULL means option not specified. */
  316.     int borderWidth; /* Width of 3-D border for background. */
  317.     char *reliefString; /* -relief option string (malloc-ed).
  318.  * NULL means option not specified. */
  319.     int relief; /* 3-D relief for background. */
  320.     Pixmap bgStipple; /* Stipple bitmap for background.  None
  321.  * means no value specified here. */
  322.     XColor *fgColor; /* Foreground color for text.  NULL means
  323.  * no value specified here. */
  324.     Tk_Font tkfont; /* Font for displaying text.  NULL means
  325.  * no value specified here. */
  326.     Pixmap fgStipple; /* Stipple bitmap for text and other
  327.  * foreground stuff.   None means no value
  328.  * specified here.*/
  329.     char *justifyString; /* -justify option string (malloc-ed).
  330.  * NULL means option not specified. */
  331.     Tk_Justify justify; /* How to justify text: TK_JUSTIFY_LEFT,
  332.  * TK_JUSTIFY_RIGHT, or TK_JUSTIFY_CENTER.
  333.  * Only valid if justifyString is non-NULL. */
  334.     char *lMargin1String; /* -lmargin1 option string (malloc-ed).
  335.  * NULL means option not specified. */
  336.     int lMargin1; /* Left margin for first display line of
  337.  * each text line, in pixels.  Only valid
  338.  * if lMargin1String is non-NULL. */
  339.     char *lMargin2String; /* -lmargin2 option string (malloc-ed).
  340.  * NULL means option not specified. */
  341.     int lMargin2; /* Left margin for second and later display
  342.  * lines of each text line, in pixels.  Only
  343.  * valid if lMargin2String is non-NULL. */
  344.     char *offsetString; /* -offset option string (malloc-ed).
  345.  * NULL means option not specified. */
  346.     int offset; /* Vertical offset of text's baseline from
  347.  * baseline of line.  Used for superscripts
  348.  * and subscripts.  Only valid if
  349.  * offsetString is non-NULL. */
  350.     char *overstrikeString; /* -overstrike option string (malloc-ed).
  351.  * NULL means option not specified. */
  352.     int overstrike; /* Non-zero means draw horizontal line through
  353.  * middle of text.  Only valid if
  354.  * overstrikeString is non-NULL. */
  355.     char *rMarginString; /* -rmargin option string (malloc-ed).
  356.  * NULL means option not specified. */
  357.     int rMargin; /* Right margin for text, in pixels.  Only
  358.  * valid if rMarginString is non-NULL. */
  359.     char *spacing1String; /* -spacing1 option string (malloc-ed).
  360.  * NULL means option not specified. */
  361.     int spacing1; /* Extra spacing above first display
  362.  * line for text line.  Only valid if
  363.  * spacing1String is non-NULL. */
  364.     char *spacing2String; /* -spacing2 option string (malloc-ed).
  365.  * NULL means option not specified. */
  366.     int spacing2; /* Extra spacing between display
  367.  * lines for the same text line.  Only valid
  368.  * if spacing2String is non-NULL. */
  369.     char *spacing3String; /* -spacing2 option string (malloc-ed).
  370.  * NULL means option not specified. */
  371.     int spacing3; /* Extra spacing below last display
  372.  * line for text line.  Only valid if
  373.  * spacing3String is non-NULL. */
  374.     char *tabString; /* -tabs option string (malloc-ed).
  375.  * NULL means option not specified. */
  376.     struct TkTextTabArray *tabArrayPtr;
  377. /* Info about tabs for tag (malloc-ed)
  378.  * or NULL.  Corresponds to tabString. */
  379.     char *underlineString; /* -underline option string (malloc-ed).
  380.  * NULL means option not specified. */
  381.     int underline; /* Non-zero means draw underline underneath
  382.  * text.  Only valid if underlineString is
  383.  * non-NULL. */
  384.     TkWrapMode wrapMode; /* How to handle wrap-around for this tag.
  385.  * Must be TEXT_WRAPMODE_CHAR,
  386.  * TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD,
  387.  * or TEXT_WRAPMODE_NULL to use wrapmode for
  388.  * whole widget. */
  389.     char *elideString; /* -elide option string (malloc-ed).
  390.  * NULL means option not specified. */
  391.     int elide; /* Non-zero means that data under this tag
  392.  * should not be displayed. */
  393.     int affectsDisplay; /* Non-zero means that this tag affects the
  394.  * way information is displayed on the screen
  395.  * (so need to redisplay if tag changes). */
  396. } TkTextTag;
  398. #define TK_TAG_AFFECTS_DISPLAY 0x1
  399. #define TK_TAG_UNDERLINE 0x2
  400. #define TK_TAG_JUSTIFY 0x4
  401. #define TK_TAG_OFFSET 0x10
  403. /*
  404.  * The data structure below is used for searching a B-tree for transitions
  405.  * on a single tag (or for all tag transitions).  No code outside of
  406.  * tkTextBTree.c should ever modify any of the fields in these structures,
  407.  * but it's OK to use them for read-only information.
  408.  */
  410. typedef struct TkTextSearch {
  411.     TkTextIndex curIndex; /* Position of last tag transition
  412.  * returned by TkBTreeNextTag, or
  413.  * index of start of segment
  414.  * containing starting position for
  415.  * search if TkBTreeNextTag hasn't
  416.  * been called yet, or same as
  417.  * stopIndex if search is over. */
  418.     TkTextSegment *segPtr; /* Actual tag segment returned by last
  419.  * call to TkBTreeNextTag, or NULL if
  420.  * TkBTreeNextTag hasn't returned
  421.  * anything yet. */
  422.     TkTextSegment *nextPtr; /* Where to resume search in next
  423.  * call to TkBTreeNextTag. */
  424.     TkTextSegment *lastPtr; /* Stop search before just before
  425.  * considering this segment. */
  426.     TkTextTag *tagPtr; /* Tag to search for (or tag found, if
  427.  * allTags is non-zero). */
  428.     int linesLeft; /* Lines left to search (including
  429.  * curIndex and stopIndex).  When
  430.  * this becomes <= 0 the search is
  431.  * over. */
  432.     int allTags; /* Non-zero means ignore tag check:
  433.  * search for transitions on all
  434.  * tags. */
  435. } TkTextSearch;
  437. /*
  438.  * The following data structure describes a single tab stop.
  439.  */
  441. typedef enum {LEFT, RIGHT, CENTER, NUMERIC} TkTextTabAlign;
  443. typedef struct TkTextTab {
  444.     int location; /* Offset in pixels of this tab stop
  445.  * from the left margin (lmargin2) of
  446.  * the text. */
  447.     TkTextTabAlign alignment; /* Where the tab stop appears relative
  448.  * to the text. */
  449. } TkTextTab;
  451. typedef struct TkTextTabArray {
  452.     int numTabs; /* Number of tab stops. */
  453.     TkTextTab tabs[1]; /* Array of tabs.  The actual size
  454.  * will be numTabs.  THIS FIELD MUST
  455.  * BE THE LAST IN THE STRUCTURE. */
  456. } TkTextTabArray;
  458. /* enum definining the edit modes of */
  460. typedef enum {
  461.     TK_TEXT_EDIT_INSERT, /* insert mode */
  462.     TK_TEXT_EDIT_DELETE, /* delete mode */
  463.     TK_TEXT_EDIT_OTHER    /* none of the above */
  464. } TkTextEditMode;
  466. /*
  467.  * A data structure of the following type is kept for each text widget that
  468.  * currently exists for this process:
  469.  */
  471. typedef struct TkText {
  472.     Tk_Window tkwin; /* Window that embodies the text.  NULL
  473.  * means that the window has been destroyed
  474.  * but the data structures haven't yet been
  475.  * cleaned up.*/
  476.     Display *display; /* Display for widget.  Needed, among other
  477.  * things, to allow resources to be freed
  478.  * even after tkwin has gone away. */
  479.     Tcl_Interp *interp; /* Interpreter associated with widget.  Used
  480.  * to delete widget command.  */
  481.     Tcl_Command widgetCmd; /* Token for text's widget command. */
  482.     TkTextBTree tree; /* B-tree representation of text and tags for
  483.  * widget. */
  484.     Tcl_HashTable tagTable; /* Hash table that maps from tag names to
  485.  * pointers to TkTextTag structures. */
  486.     int numTags; /* Number of tags currently defined for
  487.  * widget;  needed to keep track of
  488.  * priorities. */
  489.     Tcl_HashTable markTable; /* Hash table that maps from mark names to
  490.  * pointers to mark segments. */
  491.     Tcl_HashTable windowTable; /* Hash table that maps from window names
  492.  * to pointers to window segments.  If a
  493.  * window segment doesn't yet have an
  494.  * associated window, there is no entry for
  495.  * it here. */
  496.     Tcl_HashTable imageTable; /* Hash table that maps from image names
  497.  * to pointers to image segments.  If an
  498.  * image segment doesn't yet have an
  499.  * associated image, there is no entry for
  500.  * it here. */
  501.     int state; /* Either STATE_NORMAL or STATE_DISABLED. A
  502.  * text widget is read-only when disabled. */
  504.     /*
  505.      * Default information for displaying (may be overridden by tags
  506.      * applied to ranges of characters).
  507.      */
  509.     Tk_3DBorder border; /* Structure used to draw 3-D border and
  510.  * default background. */
  511.     int borderWidth; /* Width of 3-D border to draw around entire
  512.  * widget. */
  513.     int padX, padY; /* Padding between text and window border. */
  514.     int relief; /* 3-d effect for border around entire
  515.  * widget: TK_RELIEF_RAISED etc. */
  516.     int highlightWidth; /* Width in pixels of highlight to draw
  517.  * around widget when it has the focus.
  518.  * <= 0 means don't draw a highlight. */
  519.     XColor *highlightBgColorPtr;
  520. /* Color for drawing traversal highlight
  521.  * area when highlight is off. */
  522.     XColor *highlightColorPtr; /* Color for drawing traversal highlight. */
  523.     Tk_Cursor cursor; /* Current cursor for window, or None. */
  524.     XColor *fgColor; /* Default foreground color for text. */
  525.     Tk_Font tkfont; /* Default font for displaying text. */
  526.     int charWidth; /* Width of average character in default
  527.  * font. */
  528.     int spacing1; /* Default extra spacing above first display
  529.  * line for each text line. */
  530.     int spacing2; /* Default extra spacing between display lines
  531.  * for the same text line. */
  532.     int spacing3; /* Default extra spacing below last display
  533.  * line for each text line. */
  534.     char *tabOptionString; /* Value of -tabs option string (malloc'ed). */
  535.     TkTextTabArray *tabArrayPtr;
  536. /* Information about tab stops (malloc'ed).
  537.  * NULL means perform default tabbing
  538.  * behavior. */
  540.     /*
  541.      * Additional information used for displaying:
  542.      */
  544.     TkWrapMode wrapMode; /* How to handle wrap-around.  Must be
  545.  * TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, or
  546.  * TEXT_WRAPMODE_WORD. */
  547.     int width, height; /* Desired dimensions for window, measured
  548.  * in characters. */
  549.     int setGrid; /* Non-zero means pass gridding information
  550.  * to window manager. */
  551.     int prevWidth, prevHeight; /* Last known dimensions of window;  used to
  552.  * detect changes in size. */
  553.     TkTextIndex topIndex; /* Identifies first character in top display
  554.  * line of window. */
  555.     struct TextDInfo *dInfoPtr; /* Information maintained by tkTextDisp.c. */
  557.     /*
  558.      * Information related to selection.
  559.      */
  561.     TkTextTag *selTagPtr; /* Pointer to "sel" tag.  Used to tell when
  562.  * a new selection has been made. */
  563.     Tk_3DBorder selBorder; /* Border and background for selected
  564.  * characters.  This is a copy of information
  565.  * in *cursorTagPtr, so it shouldn't be
  566.  * explicitly freed. */
  567.     char *selBdString; /* Value of -selectborderwidth option, or NULL
  568.  * if not specified (malloc'ed). */
  569.     XColor *selFgColorPtr; /* Foreground color for selected text.
  570.  * This is a copy of information in
  571.  * *cursorTagPtr, so it shouldn't be
  572.  * explicitly freed. */
  573.     int exportSelection; /* Non-zero means tie "sel" tag to X
  574.  * selection. */
  575.     TkTextIndex selIndex; /* Used during multi-pass selection retrievals.
  576.  * This index identifies the next character
  577.  * to be returned from the selection. */
  578.     int abortSelections; /* Set to 1 whenever the text is modified
  579.  * in a way that interferes with selection
  580.  * retrieval:  used to abort incremental
  581.  * selection retrievals. */
  582.     int selOffset; /* Offset in selection corresponding to
  583.  * selLine and selCh.  -1 means neither
  584.  * this information nor selIndex is of any
  585.  * use. */
  587.     /*
  588.      * Information related to insertion cursor:
  589.      */
  591.     TkTextSegment *insertMarkPtr;
  592. /* Points to segment for "insert" mark. */
  593.     Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion
  594.  * cursor. */
  595.     int insertWidth; /* Total width of insert cursor. */
  596.     int insertBorderWidth; /* Width of 3-D border around insert cursor. */
  597.     int insertOnTime; /* Number of milliseconds cursor should spend
  598.  * in "on" state for each blink. */
  599.     int insertOffTime; /* Number of milliseconds cursor should spend
  600.  * in "off" state for each blink. */
  601.     Tcl_TimerToken insertBlinkHandler;
  602. /* Timer handler used to blink cursor on and
  603.  * off. */
  605.     /*
  606.      * Information used for event bindings associated with tags:
  607.      */
  609.     Tk_BindingTable bindingTable;
  610. /* Table of all bindings currently defined
  611.  * for this widget.  NULL means that no
  612.  * bindings exist, so the table hasn't been
  613.  * created.  Each "object" used for this
  614.  * table is the address of a tag. */
  615.     TkTextSegment *currentMarkPtr;
  616. /* Pointer to segment for "current" mark,
  617.  * or NULL if none. */
  618.     XEvent pickEvent; /* The event from which the current character
  619.  * was chosen. Must be saved so that we
  620.  * can repick after modifications to the
  621.  * text. */
  622.     int numCurTags; /* Number of tags associated with character
  623.  * at current mark. */
  624.     TkTextTag **curTagArrayPtr; /* Pointer to array of tags for current
  625.  * mark, or NULL if none. */
  627.     /*
  628.      * Miscellaneous additional information:
  629.      */
  631.     char *takeFocus; /* Value of -takeFocus option; not used in
  632.  * the C code, but used by keyboard traversal
  633.  * scripts.  Malloc'ed, but may be NULL. */
  634.     char *xScrollCmd; /* Prefix of command to issue to update
  635.  * horizontal scrollbar when view changes. */
  636.     char *yScrollCmd; /* Prefix of command to issue to update
  637.  * vertical scrollbar when view changes. */
  638.     int flags; /* Miscellaneous flags;  see below for
  639.  * definitions. */
  641.     /*
  642.      * Information related to the undo/redo functonality
  643.      */
  644.      
  645.     TkUndoRedoStack * undoStack; /* The undo/redo stack */
  646.     
  647.     int undo; /* non zero means the undo/redo behaviour is 
  648.  * enabled */
  649.     
  650.     int maxUndo; /* The maximum depth of the undo stack expressed
  651.              * as the maximum number of compound statements */
  653.     int autoSeparators; /* non zero means the separatorss will be 
  654.  * inserted automatically */
  655.     
  656.     int modifiedSet; /* Flag indicating that the 'dirtynesss' of
  657.  * the text widget has been expplicitly set.
  658.  */
  660.     int isDirty; /* Flag indicating the 'dirtynesss' of the text
  661.  * widget. If the flag is not zero, unsaved 
  662.  * modifications have been applied to the
  663.  * text widget */
  665.     int isDirtyIncrement; /* Amount with which the isDirty flag is
  666.  * incremented every edit action
  667.  */
  669.     TkTextEditMode lastEditMode; /* Keeps track of what the last edit mode was
  670.  */
  672. } TkText;
  674. /*
  675.  * Flag values for TkText records:
  676.  *
  677.  * GOT_SELECTION: Non-zero means we've already claimed the
  678.  * selection.
  679.  * INSERT_ON: Non-zero means insertion cursor should be
  680.  * displayed on screen.
  681.  * GOT_FOCUS: Non-zero means this window has the input
  682.  * focus.
  683.  * BUTTON_DOWN: 1 means that a mouse button is currently
  684.  * down;  this is used to implement grabs
  685.  * for the duration of button presses.
  686.  * UPDATE_SCROLLBARS: Non-zero means scrollbar(s) should be updated
  687.  * during next redisplay operation.
  688.  */
  690. #define GOT_SELECTION 1
  691. #define INSERT_ON 2
  692. #define GOT_FOCUS 4
  693. #define BUTTON_DOWN 8
  694. #define UPDATE_SCROLLBARS 0x10
  695. #define NEED_REPICK 0x20
  697. /*
  698.  * Records of the following type define segment types in terms of
  699.  * a collection of procedures that may be called to manipulate
  700.  * segments of that type.
  701.  */
  703. typedef TkTextSegment * Tk_SegSplitProc _ANSI_ARGS_((
  704.     struct TkTextSegment *segPtr, int index));
  705. typedef int Tk_SegDeleteProc _ANSI_ARGS_((
  706.     struct TkTextSegment *segPtr,
  707.     TkTextLine *linePtr, int treeGone));
  708. typedef TkTextSegment * Tk_SegCleanupProc _ANSI_ARGS_((
  709.     struct TkTextSegment *segPtr, TkTextLine *linePtr));
  710. typedef void Tk_SegLineChangeProc _ANSI_ARGS_((
  711.     struct TkTextSegment *segPtr, TkTextLine *linePtr));
  712. typedef int Tk_SegLayoutProc _ANSI_ARGS_((struct TkText *textPtr,
  713.     struct TkTextIndex *indexPtr, TkTextSegment *segPtr,
  714.     int offset, int maxX, int maxChars,
  715.     int noCharsYet, TkWrapMode wrapMode,
  716.     struct TkTextDispChunk *chunkPtr));
  717. typedef void Tk_SegCheckProc _ANSI_ARGS_((TkTextSegment *segPtr,
  718.     TkTextLine *linePtr));
  720. typedef struct Tk_SegType {
  721.     char *name; /* Name of this kind of segment. */
  722.     int leftGravity; /* If a segment has zero size (e.g. a
  723.  * mark or tag toggle), does it
  724.  * attach to character to its left
  725.  * or right?  1 means left, 0 means
  726.  * right. */
  727.     Tk_SegSplitProc *splitProc; /* Procedure to split large segment
  728.  * into two smaller ones. */
  729.     Tk_SegDeleteProc *deleteProc; /* Procedure to call to delete
  730.  * segment. */
  731.     Tk_SegCleanupProc *cleanupProc; /* After any change to a line, this
  732.  * procedure is invoked for all
  733.  * segments left in the line to
  734.  * perform any cleanup they wish
  735.  * (e.g. joining neighboring
  736.  * segments). */
  737.     Tk_SegLineChangeProc *lineChangeProc;
  738. /* Invoked when a segment is about
  739.  * to be moved from its current line
  740.  * to an earlier line because of
  741.  * a deletion.  The linePtr is that
  742.  * for the segment's old line.
  743.  * CleanupProc will be invoked after
  744.  * the deletion is finished. */
  745.     Tk_SegLayoutProc *layoutProc; /* Returns size information when
  746.  * figuring out what to display in
  747.  * window. */
  748.     Tk_SegCheckProc *checkProc; /* Called during consistency checks
  749.  * to check internal consistency of
  750.  * segment. */
  751. } Tk_SegType;
  753. /*
  754.  * The constant below is used to specify a line when what is really
  755.  * wanted is the entire text.  For now, just use a very big number.
  756.  */
  758. #define TK_END_OF_TEXT 1000000
  760. /*
  761.  * The following definition specifies the maximum number of characters
  762.  * needed in a string to hold a position specifier.
  763.  */
  765. #define TK_POS_CHARS 30
  767. /*
  768.  * Declarations for variables shared among the text-related files:
  769.  */
  771. EXTERN int tkBTreeDebug;
  772. EXTERN int tkTextDebug;
  773. EXTERN Tk_SegType tkTextCharType;
  774. EXTERN Tk_SegType tkTextLeftMarkType;
  775. EXTERN Tk_SegType tkTextRightMarkType;
  776. EXTERN Tk_SegType tkTextToggleOnType;
  777. EXTERN Tk_SegType tkTextToggleOffType;
  779. /*
  780.  * Declarations for procedures that are used by the text-related files
  781.  * but shouldn't be used anywhere else in Tk (or by Tk clients):
  782.  */
  784. EXTERN int TkBTreeCharTagged _ANSI_ARGS_((TkTextIndex *indexPtr,
  785.     TkTextTag *tagPtr));
  786. EXTERN void TkBTreeCheck _ANSI_ARGS_((TkTextBTree tree));
  787. EXTERN int TkBTreeCharsInLine _ANSI_ARGS_((TkTextLine *linePtr));
  788. EXTERN int TkBTreeBytesInLine _ANSI_ARGS_((TkTextLine *linePtr));
  789. EXTERN TkTextBTree TkBTreeCreate _ANSI_ARGS_((TkText *textPtr));
  790. EXTERN void TkBTreeDestroy _ANSI_ARGS_((TkTextBTree tree));
  791. EXTERN void TkBTreeDeleteChars _ANSI_ARGS_((TkTextIndex *index1Ptr,
  792.     TkTextIndex *index2Ptr));
  793. EXTERN TkTextLine * TkBTreeFindLine _ANSI_ARGS_((TkTextBTree tree,
  794.     int line));
  795. EXTERN TkTextTag ** TkBTreeGetTags _ANSI_ARGS_((TkTextIndex *indexPtr,
  796.     int *numTagsPtr));
  797. EXTERN void TkBTreeInsertChars _ANSI_ARGS_((TkTextIndex *indexPtr,
  798.     CONST char *string));
  799. EXTERN int TkBTreeLineIndex _ANSI_ARGS_((TkTextLine *linePtr));
  800. EXTERN void TkBTreeLinkSegment _ANSI_ARGS_((TkTextSegment *segPtr,
  801.     TkTextIndex *indexPtr));
  802. EXTERN TkTextLine * TkBTreeNextLine _ANSI_ARGS_((TkTextLine *linePtr));
  803. EXTERN int TkBTreeNextTag _ANSI_ARGS_((TkTextSearch *searchPtr));
  804. EXTERN int TkBTreeNumLines _ANSI_ARGS_((TkTextBTree tree));
  805. EXTERN TkTextLine * TkBTreePreviousLine _ANSI_ARGS_((TkTextLine *linePtr));
  806. EXTERN int TkBTreePrevTag _ANSI_ARGS_((TkTextSearch *searchPtr));
  807. EXTERN void TkBTreeStartSearch _ANSI_ARGS_((TkTextIndex *index1Ptr,
  808.     TkTextIndex *index2Ptr, TkTextTag *tagPtr,
  809.     TkTextSearch *searchPtr));
  810. EXTERN void TkBTreeStartSearchBack _ANSI_ARGS_((TkTextIndex *index1Ptr,
  811.     TkTextIndex *index2Ptr, TkTextTag *tagPtr,
  812.     TkTextSearch *searchPtr));
  813. EXTERN void TkBTreeTag _ANSI_ARGS_((TkTextIndex *index1Ptr,
  814.     TkTextIndex *index2Ptr, TkTextTag *tagPtr,
  815.     int add));
  816. EXTERN void TkBTreeUnlinkSegment _ANSI_ARGS_((TkTextBTree tree,
  817.     TkTextSegment *segPtr, TkTextLine *linePtr));
  818. EXTERN void TkTextBindProc _ANSI_ARGS_((ClientData clientData,
  819.     XEvent *eventPtr));
  820. EXTERN void TkTextChanged _ANSI_ARGS_((TkText *textPtr,
  821.     TkTextIndex *index1Ptr, TkTextIndex *index2Ptr));
  822. EXTERN int TkTextCharBbox _ANSI_ARGS_((TkText *textPtr,
  823.     TkTextIndex *indexPtr, int *xPtr, int *yPtr,
  824.     int *widthPtr, int *heightPtr));
  825. EXTERN int TkTextCharLayoutProc _ANSI_ARGS_((TkText *textPtr,
  826.     TkTextIndex *indexPtr, TkTextSegment *segPtr,
  827.     int offset, int maxX, int maxChars, int noBreakYet,
  828.     TkWrapMode wrapMode, TkTextDispChunk *chunkPtr));
  829. EXTERN void TkTextCreateDInfo _ANSI_ARGS_((TkText *textPtr));
  830. EXTERN int TkTextDLineInfo _ANSI_ARGS_((TkText *textPtr,
  831.     TkTextIndex *indexPtr, int *xPtr, int *yPtr,
  832.     int *widthPtr, int *heightPtr, int *basePtr));
  833. EXTERN TkTextTag * TkTextCreateTag _ANSI_ARGS_((TkText *textPtr,
  834.     CONST char *tagName));
  835. EXTERN void TkTextFreeDInfo _ANSI_ARGS_((TkText *textPtr));
  836. EXTERN void TkTextFreeTag _ANSI_ARGS_((TkText *textPtr,
  837.     TkTextTag *tagPtr));
  838. EXTERN int TkTextGetIndex _ANSI_ARGS_((Tcl_Interp *interp,
  839.     TkText *textPtr, CONST char *string,
  840.     TkTextIndex *indexPtr));
  841. EXTERN TkTextTabArray * TkTextGetTabs _ANSI_ARGS_((Tcl_Interp *interp,
  842.     Tk_Window tkwin, char *string));
  843. EXTERN void TkTextIndexBackBytes _ANSI_ARGS_((
  844.     CONST TkTextIndex *srcPtr, int count,
  845.     TkTextIndex *dstPtr));
  846. EXTERN void TkTextIndexBackChars _ANSI_ARGS_((
  847.     CONST TkTextIndex *srcPtr, int count,
  848.     TkTextIndex *dstPtr));
  849. EXTERN int TkTextIndexCmp _ANSI_ARGS_((
  850.     CONST TkTextIndex *index1Ptr,
  851.     CONST TkTextIndex *index2Ptr));
  852. EXTERN void TkTextIndexForwBytes _ANSI_ARGS_((
  853.     CONST TkTextIndex *srcPtr, int count,
  854.     TkTextIndex *dstPtr));
  855. EXTERN void TkTextIndexForwChars _ANSI_ARGS_((
  856.     CONST TkTextIndex *srcPtr, int count,
  857.     TkTextIndex *dstPtr));
  858. EXTERN TkTextSegment * TkTextIndexToSeg _ANSI_ARGS_((
  859.     CONST TkTextIndex *indexPtr, int *offsetPtr));
  860. EXTERN void TkTextInsertDisplayProc _ANSI_ARGS_((
  861.     TkTextDispChunk *chunkPtr, int x, int y, int height,
  862.     int baseline, Display *display, Drawable dst,
  863.     int screenY));
  864. EXTERN void TkTextLostSelection _ANSI_ARGS_((
  865.     ClientData clientData));
  866. EXTERN TkTextIndex * TkTextMakeCharIndex _ANSI_ARGS_((TkTextBTree tree,
  867.     int lineIndex, int charIndex,
  868.     TkTextIndex *indexPtr));
  869. EXTERN int TkTextIsElided _ANSI_ARGS_((TkText *textPtr,
  870.     TkTextIndex *indexPtr));
  871. EXTERN TkTextIndex * TkTextMakeByteIndex _ANSI_ARGS_((TkTextBTree tree,
  872.     int lineIndex, int byteIndex,
  873.     TkTextIndex *indexPtr));
  874. EXTERN int TkTextMarkCmd _ANSI_ARGS_((TkText *textPtr,
  875.     Tcl_Interp *interp, int argc, CONST char **argv));
  876. EXTERN int TkTextMarkNameToIndex _ANSI_ARGS_((TkText *textPtr,
  877.     CONST char *name, TkTextIndex *indexPtr));
  878. EXTERN void TkTextMarkSegToIndex _ANSI_ARGS_((TkText *textPtr,
  879.     TkTextSegment *markPtr, TkTextIndex *indexPtr));
  880. EXTERN void TkTextEventuallyRepick _ANSI_ARGS_((TkText *textPtr));
  881. EXTERN void TkTextPickCurrent _ANSI_ARGS_((TkText *textPtr,
  882.     XEvent *eventPtr));
  883. EXTERN void TkTextPixelIndex _ANSI_ARGS_((TkText *textPtr,
  884.     int x, int y, TkTextIndex *indexPtr));
  885. EXTERN void TkTextPrintIndex _ANSI_ARGS_((
  886.     CONST TkTextIndex *indexPtr, char *string));
  887. EXTERN void TkTextRedrawRegion _ANSI_ARGS_((TkText *textPtr,
  888.     int x, int y, int width, int height));
  889. EXTERN void TkTextRedrawTag _ANSI_ARGS_((TkText *textPtr,
  890.     TkTextIndex *index1Ptr, TkTextIndex *index2Ptr,
  891.     TkTextTag *tagPtr, int withTag));
  892. EXTERN void TkTextRelayoutWindow _ANSI_ARGS_((TkText *textPtr));
  893. EXTERN int TkTextScanCmd _ANSI_ARGS_((TkText *textPtr,
  894.     Tcl_Interp *interp, int argc, CONST char **argv));
  895. EXTERN int TkTextSeeCmd _ANSI_ARGS_((TkText *textPtr,
  896.     Tcl_Interp *interp, int argc, CONST char **argv));
  897. EXTERN int TkTextSegToOffset _ANSI_ARGS_((
  898.     CONST TkTextSegment *segPtr,
  899.     CONST TkTextLine *linePtr));
  900. EXTERN TkTextSegment * TkTextSetMark _ANSI_ARGS_((TkText *textPtr,
  901.     CONST char *name, TkTextIndex *indexPtr));
  902. EXTERN void TkTextSetYView _ANSI_ARGS_((TkText *textPtr,
  903.     TkTextIndex *indexPtr, int pickPlace));
  904. EXTERN int TkTextTagCmd _ANSI_ARGS_((TkText *textPtr,
  905.     Tcl_Interp *interp, int argc, CONST char **argv));
  906. EXTERN int TkTextImageCmd _ANSI_ARGS_((TkText *textPtr,
  907.     Tcl_Interp *interp, int argc, CONST char **argv));
  908. EXTERN int TkTextImageIndex _ANSI_ARGS_((TkText *textPtr,
  909.     CONST char *name, TkTextIndex *indexPtr));
  910. EXTERN int TkTextWindowCmd _ANSI_ARGS_((TkText *textPtr,
  911.     Tcl_Interp *interp, int argc, CONST char **argv));
  912. EXTERN int TkTextWindowIndex _ANSI_ARGS_((TkText *textPtr,
  913.     CONST char *name, TkTextIndex *indexPtr));
  914. EXTERN int TkTextXviewCmd _ANSI_ARGS_((TkText *textPtr,
  915.     Tcl_Interp *interp, int argc, CONST char **argv));
  916. EXTERN int TkTextYviewCmd _ANSI_ARGS_((TkText *textPtr,
  917.     Tcl_Interp *interp, int argc, CONST char **argv));
  919. # undef TCL_STORAGE_CLASS
  920. # define TCL_STORAGE_CLASS DLLIMPORT
  922. #endif /* _TKTEXT */