diff options
Diffstat (limited to 'generic/tkText.h')
| -rw-r--r-- | generic/tkText.h | 1432 |
1 files changed, 684 insertions, 748 deletions
diff --git a/generic/tkText.h b/generic/tkText.h index 2ccbfa9..3fd92ab 100644 --- a/generic/tkText.h +++ b/generic/tkText.h @@ -1,16 +1,15 @@ /* * tkText.h -- * - * Declarations shared among the files that implement text - * widgets. + * Declarations shared among the files that implement text widgets. * * Copyright (c) 1992-1994 The Regents of the University of California. * Copyright (c) 1994-1995 Sun Microsystems, Inc. * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkText.h,v 1.27 2005/10/10 10:36:35 vincentdarley Exp $ + * RCS: @(#) $Id: tkText.h,v 1.28 2005/11/17 16:21:56 dkf Exp $ */ #ifndef _TKTEXT @@ -30,156 +29,142 @@ #endif /* - * Opaque types for structures whose guts are only needed by a single - * file. + * Opaque types for structures whose guts are only needed by a single file. */ typedef struct TkTextBTree_ *TkTextBTree; /* * The data structure below defines a single logical line of text (from - * newline to newline, not necessarily what appears on one display line - * of the screen). + * newline to newline, not necessarily what appears on one display line of the + * screen). */ typedef struct TkTextLine { - struct Node *parentPtr; /* Pointer to parent node containing - * line. */ - struct TkTextLine *nextPtr; /* Next in linked list of lines with - * same parent node in B-tree. NULL - * means end of list. */ - struct TkTextSegment *segPtr; /* First in ordered list of segments - * that make up the line. */ - int *pixels; /* Array containing two integers - * for each referring text widget. - * The first of these is the number - * of vertical pixels taken up by - * this line, whether currently - * displayed or not. This number - * is only updated asychronously. - * The second of these is the last - * epoch at which the pixel height - * was recalculated. */ + struct Node *parentPtr; /* Pointer to parent node containing line. */ + struct TkTextLine *nextPtr; /* Next in linked list of lines with same + * parent node in B-tree. NULL means end of + * list. */ + struct TkTextSegment *segPtr; + /* First in ordered list of segments that make + * up the line. */ + int *pixels; /* Array containing two integers for each + * referring text widget. The first of these + * is the number of vertical pixels taken up + * by this line, whether currently displayed + * or not. This number is only updated + * asychronously. The second of these is the + * last epoch at which the pixel height was + * recalculated. */ } TkTextLine; /* * ----------------------------------------------------------------------- * Segments: each line is divided into one or more segments, where each - * segment is one of several things, such as a group of characters, a - * tag toggle, a mark, or an embedded widget. Each segment starts with - * a standard header followed by a body that varies from type to type. + * segment is one of several things, such as a group of characters, a tag + * toggle, a mark, or an embedded widget. Each segment starts with a standard + * header followed by a body that varies from type to type. * ----------------------------------------------------------------------- */ /* - * The data structure below defines the body of a segment that represents - * a tag toggle. There is one of these structures at both the beginning - * and end of each tagged range. + * The data structure below defines the body of a segment that represents a + * tag toggle. There is one of these structures at both the beginning and end + * of each tagged range. */ typedef struct TkTextToggle { - struct TkTextTag *tagPtr; /* Tag that starts or ends here. */ - int inNodeCounts; /* 1 means this toggle has been - * accounted for in node toggle - * counts; 0 means it hasn't, yet. */ + struct TkTextTag *tagPtr; /* Tag that starts or ends here. */ + int inNodeCounts; /* 1 means this toggle has been accounted for + * in node toggle counts; 0 means it hasn't, + * yet. */ } TkTextToggle; /* - * The data structure below defines line segments that represent - * marks. There is one of these for each mark in the text. + * The data structure below defines line segments that represent marks. There + * is one of these for each mark in the text. */ typedef struct TkTextMark { - struct TkText *textPtr; /* Overall information about text - * widget. */ - TkTextLine *linePtr; /* Line structure that contains the - * segment. */ - Tcl_HashEntry *hPtr; /* Pointer to hash table entry for mark - * (in sharedTextPtr->markTable). */ + struct TkText *textPtr; /* Overall information about text widget. */ + TkTextLine *linePtr; /* Line structure that contains the + * segment. */ + Tcl_HashEntry *hPtr; /* Pointer to hash table entry for mark (in + * sharedTextPtr->markTable). */ } TkTextMark; /* * A structure of the following type holds information for each window - * embedded in a text widget. This information is only used by the - * file tkTextWind.c + * embedded in a text widget. This information is only used by the file + * tkTextWind.c */ typedef struct TkTextEmbWindowClient { - struct TkText *textPtr; /* Information about the overall text - * widget. */ - Tk_Window tkwin; /* Window for this segment. NULL - * means that the window hasn't - * been created yet. */ - int chunkCount; /* Number of display chunks that - * refer to this window. */ - int displayed; /* Non-zero means that the window - * has been displayed on the screen - * recently. */ + struct TkText *textPtr; /* Information about the overall text + * widget. */ + Tk_Window tkwin; /* Window for this segment. NULL means that + * the window hasn't been created yet. */ + int chunkCount; /* Number of display chunks that refer to this + * window. */ + int displayed; /* Non-zero means that the window has been + * displayed on the screen recently. */ struct TkTextSegment *parent; struct TkTextEmbWindowClient *next; } TkTextEmbWindowClient; typedef struct TkTextEmbWindow { - struct TkSharedText *sharedTextPtr; /* Information about the shared - * portion of the text widget. */ - Tk_Window tkwin; /* Window for this segment. - * This is just a temporary - * value, copied from - * 'clients', to make option - * table updating easier. NULL - * means that the window hasn't - * been created yet. */ - TkTextLine *linePtr; /* Line structure that contains this - * window. */ - char *create; /* Script to create window on-demand. - * NULL means no such script. - * Malloc-ed. */ - int align; /* How to align window in vertical - * space. See definitions in - * tkTextWind.c. */ - int padX, padY; /* Padding to leave around each side - * of window, in pixels. */ - int stretch; /* Should window stretch to fill - * vertical space of line (except for - * pady)? 0 or 1. */ - Tk_OptionTable optionTable; /* Token representing the - * configuration specifications. */ - TkTextEmbWindowClient *clients; /* Linked list of peer-widget - * specific information for - * this embedded window. */ + struct TkSharedText *sharedTextPtr; + /* Information about the shared portion of the + * text widget. */ + Tk_Window tkwin; /* Window for this segment. This is just a + * temporary value, copied from 'clients', to + * make option table updating easier. NULL + * means that the window hasn't been created + * yet. */ + TkTextLine *linePtr; /* Line structure that contains this + * window. */ + char *create; /* Script to create window on-demand. NULL + * means no such script. Malloc-ed. */ + int align; /* How to align window in vertical space. See + * definitions in tkTextWind.c. */ + int padX, padY; /* Padding to leave around each side of + * window, in pixels. */ + int stretch; /* Should window stretch to fill vertical + * space of line (except for pady)? 0 or 1. */ + Tk_OptionTable optionTable; /* Token representing the configuration + * specifications. */ + TkTextEmbWindowClient *clients; + /* Linked list of peer-widget specific + * information for this embedded window. */ } TkTextEmbWindow; /* - * A structure of the following type holds information for each image - * embedded in a text widget. This information is only used by the - * file tkTextImage.c + * A structure of the following type holds information for each image embedded + * in a text widget. This information is only used by the file tkTextImage.c */ typedef struct TkTextEmbImage { - struct TkSharedText *sharedTextPtr; /* Information about the shared - * portion of the text widget. - * This is used when the image - * changes or is deleted. */ - TkTextLine *linePtr; /* Line structure that contains this - * image. */ - char *imageString; /* Name of the image for this segment */ - char *imageName; /* Name used by text widget to identify - * this image. May be unique-ified */ - char *name; /* Name used in the hash table. - * used by "image names" to identify - * this instance of the image */ - Tk_Image image; /* Image for this segment. NULL - * means that the image hasn't - * been created yet. */ - int align; /* How to align image in vertical - * space. See definitions in - * tkTextImage.c. */ - int padX, padY; /* Padding to leave around each side - * of image, in pixels. */ - int chunkCount; /* Number of display chunks that - * refer to this image. */ - Tk_OptionTable optionTable; /* Token representing the - * configuration specifications. */ + struct TkSharedText *sharedTextPtr; + /* Information about the shared portion of the + * text widget. This is used when the image + * changes or is deleted. */ + TkTextLine *linePtr; /* Line structure that contains this image. */ + char *imageString; /* Name of the image for this segment */ + char *imageName; /* Name used by text widget to identify this + * image. May be unique-ified */ + char *name; /* Name used in the hash table. Used by + * "image names" to identify this instance of + * the image */ + Tk_Image image; /* Image for this segment. NULL means that the + * image hasn't been created yet. */ + int align; /* How to align image in vertical space. See + * definitions in tkTextImage.c. */ + int padX, padY; /* Padding to leave around each side of image, + * in pixels. */ + int chunkCount; /* Number of display chunks that refer to this + * image. */ + Tk_OptionTable optionTable; /* Token representing the configuration + * specifications. */ } TkTextEmbImage; /* @@ -187,45 +172,42 @@ typedef struct TkTextEmbImage { */ typedef struct TkTextSegment { - struct Tk_SegType *typePtr; /* Pointer to record describing - * segment's type. */ - struct TkTextSegment *nextPtr; /* Next in list of segments for this - * line, or NULL for end of list. */ - int size; /* Size of this segment (# of bytes - * of index space it occupies). */ + struct Tk_SegType *typePtr; /* Pointer to record describing segment's + * type. */ + struct TkTextSegment *nextPtr; + /* Next in list of segments for this line, or + * NULL for end of list. */ + int size; /* Size of this segment (# of bytes of index + * space it occupies). */ union { - char chars[4]; /* Characters that make up character - * info. Actual length varies to - * hold as many characters as needed.*/ - TkTextToggle toggle; /* Information about tag toggle. */ - TkTextMark mark; /* Information about mark. */ - TkTextEmbWindow ew; /* Information about embedded - * window. */ - TkTextEmbImage ei; /* Information about embedded - * image. */ + char chars[4]; /* Characters that make up character info. + * Actual length varies to hold as many + * characters as needed.*/ + TkTextToggle toggle; /* Information about tag toggle. */ + TkTextMark mark; /* Information about mark. */ + TkTextEmbWindow ew; /* Information about embedded window. */ + TkTextEmbImage ei; /* Information about embedded image. */ } body; } TkTextSegment; /* - * Data structures of the type defined below are used during the - * execution of Tcl commands to keep track of various interesting - * places in a text. An index is only valid up until the next - * modification to the character structure of the b-tree so they - * can't be retained across Tcl commands. However, mods to marks - * or tags don't invalidate indices. + * Data structures of the type defined below are used during the execution of + * Tcl commands to keep track of various interesting places in a text. An + * index is only valid up until the next modification to the character + * structure of the b-tree so they can't be retained across Tcl commands. + * However, mods to marks or tags don't invalidate indices. */ typedef struct TkTextIndex { - TkTextBTree tree; /* Tree containing desired position. */ - TkTextLine *linePtr; /* Pointer to line containing position - * of interest. */ - int byteIndex; /* Index within line of desired - * character (0 means first one). */ - struct TkText *textPtr; /* May be NULL, but otherwise - * the text widget with which - * this index is associated. - * If not NULL, then we have a - * refCount on the widget. */ + TkTextBTree tree; /* Tree containing desired position. */ + TkTextLine *linePtr; /* Pointer to line containing position of + * interest. */ + int byteIndex; /* Index within line of desired character (0 + * means first one). */ + struct TkText *textPtr; /* May be NULL, but otherwise the text widget + * with which this index is associated. If not + * NULL, then we have a refCount on the + * widget. */ } TkTextIndex; /* @@ -234,207 +216,197 @@ typedef struct TkTextIndex { typedef struct TkTextDispChunk TkTextDispChunk; -typedef void Tk_ChunkDisplayProc _ANSI_ARGS_(( - struct TkText *textPtr, +typedef void Tk_ChunkDisplayProc(struct TkText *textPtr, TkTextDispChunk *chunkPtr, int x, int y, int height, int baseline, Display *display, - Drawable dst, int screenY)); -typedef void Tk_ChunkUndisplayProc _ANSI_ARGS_(( - struct TkText *textPtr, - TkTextDispChunk *chunkPtr)); -typedef int Tk_ChunkMeasureProc _ANSI_ARGS_(( - TkTextDispChunk *chunkPtr, int x)); -typedef void Tk_ChunkBboxProc _ANSI_ARGS_(( - struct TkText *textPtr, + Drawable dst, int screenY); +typedef void Tk_ChunkUndisplayProc(struct TkText *textPtr, + TkTextDispChunk *chunkPtr); +typedef int Tk_ChunkMeasureProc(TkTextDispChunk *chunkPtr, int x); +typedef void Tk_ChunkBboxProc(struct TkText *textPtr, TkTextDispChunk *chunkPtr, int index, int y, int lineHeight, int baseline, int *xPtr, - int *yPtr, int *widthPtr, int *heightPtr)); + int *yPtr, int *widthPtr, int *heightPtr); /* - * The structure below represents a chunk of stuff that is displayed - * together on the screen. This structure is allocated and freed by - * generic display code but most of its fields are filled in by - * segment-type-specific code. + * The structure below represents a chunk of stuff that is displayed together + * on the screen. This structure is allocated and freed by generic display + * code but most of its fields are filled in by segment-type-specific code. */ struct TkTextDispChunk { /* - * The fields below are set by the type-independent code before - * calling the segment-type-specific layoutProc. They should not - * be modified by segment-type-specific code. + * The fields below are set by the type-independent code before calling + * the segment-type-specific layoutProc. They should not be modified by + * segment-type-specific code. */ - int x; /* X position of chunk, in pixels. - * This position is measured from the - * left edge of the logical line, - * not from the left edge of the - * window (i.e. it doesn't change - * under horizontal scrolling). */ - struct TkTextDispChunk *nextPtr; /* Next chunk in the display line - * or NULL for the end of the list. */ - struct TextStyle *stylePtr; /* Display information, known only - * to tkTextDisp.c. */ + int x; /* X position of chunk, in pixels. This + * position is measured from the left edge of + * the logical line, not from the left edge of + * the window (i.e. it doesn't change under + * horizontal scrolling). */ + struct TkTextDispChunk *nextPtr; + /* Next chunk in the display line or NULL for + * the end of the list. */ + struct TextStyle *stylePtr; /* Display information, known only to + * tkTextDisp.c. */ /* - * The fields below are set by the layoutProc that creates the - * chunk. + * The fields below are set by the layoutProc that creates the chunk. */ - Tk_ChunkDisplayProc *displayProc; /* Procedure to invoke to draw this - * chunk on the display or an - * off-screen pixmap. */ + Tk_ChunkDisplayProc *displayProc; + /* Procedure to invoke to draw this chunk on + * the display or an off-screen pixmap. */ Tk_ChunkUndisplayProc *undisplayProc; - /* Procedure to invoke when segment - * ceases to be displayed on screen - * anymore. */ - Tk_ChunkMeasureProc *measureProc; /* Procedure to find character under - * a given x-location. */ - Tk_ChunkBboxProc *bboxProc; /* Procedure to find bounding box - * of character in chunk. */ - int numBytes; /* Number of bytes that will be - * displayed in the chunk. */ - int minAscent; /* Minimum space above the baseline - * needed by this chunk. */ - int minDescent; /* Minimum space below the baseline - * needed by this chunk. */ - int minHeight; /* Minimum total line height needed - * by this chunk. */ - int width; /* Width of this chunk, in pixels. - * Initially set by chunk-specific - * code, but may be increased to - * include tab or extra space at end - * of line. */ - int breakIndex; /* Index within chunk of last - * acceptable position for a line - * (break just before this byte index). - * <= 0 means don't break during or - * immediately after this chunk. */ - ClientData clientData; /* Additional information for use - * of displayProc and undisplayProc. */ + /* Procedure to invoke when segment ceases to + * be displayed on screen anymore. */ + Tk_ChunkMeasureProc *measureProc; + /* Procedure to find character under a given + * x-location. */ + Tk_ChunkBboxProc *bboxProc; /* Procedure to find bounding box of character + * in chunk. */ + int numBytes; /* Number of bytes that will be displayed in + * the chunk. */ + int minAscent; /* Minimum space above the baseline needed by + * this chunk. */ + int minDescent; /* Minimum space below the baseline needed by + * this chunk. */ + int minHeight; /* Minimum total line height needed by this + * chunk. */ + int width; /* Width of this chunk, in pixels. Initially + * set by chunk-specific code, but may be + * increased to include tab or extra space at + * end of line. */ + int breakIndex; /* Index within chunk of last acceptable + * position for a line (break just before this + * byte index). <= 0 means don't break during + * or immediately after this chunk. */ + ClientData clientData; /* Additional information for use of + * displayProc and undisplayProc. */ }; /* - * One data structure of the following type is used for each tag in a - * text widget. These structures are kept in sharedTextPtr->tagTable - * and referred to in other structures. + * One data structure of the following type is used for each tag in a text + * widget. These structures are kept in sharedTextPtr->tagTable and referred + * to in other structures. */ -typedef enum { TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, - TEXT_WRAPMODE_WORD, TEXT_WRAPMODE_NULL +typedef enum { + TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, + TEXT_WRAPMODE_NULL } TkWrapMode; typedef struct TkTextTag { - CONST char *name; /* Name of this tag. This field is - * actually a pointer to the key from - * the entry in - * sharedTextPtr->tagTable, so it - * needn't be freed explicitly. For - * 'sel' tags this is just a static - * string, so again need not be freed. - * */ - CONST struct TkText *textPtr;/* If non-NULL, then this tag only - * applies to the given text widget - * (when there are peer widgets). */ - int priority; /* Priority of this tag within widget. 0 - * means lowest priority. Exactly one tag - * has each integer value between 0 and - * numTags-1. */ - struct Node *tagRootPtr; /* Pointer into the B-Tree at the lowest - * node that completely dominates the ranges - * of text occupied by the tag. At this - * node there is no information about the - * tag. One or more children of the node - * do contain information about the tag. */ + CONST char *name; /* Name of this tag. This field is actually a + * pointer to the key from the entry in + * sharedTextPtr->tagTable, so it needn't be + * freed explicitly. For 'sel' tags this is + * just a static string, so again need not be + * freed. */ + CONST struct TkText*textPtr;/* If non-NULL, then this tag only applies to + * the given text widget (when there are peer + * widgets). */ + int priority; /* Priority of this tag within widget. 0 means + * lowest priority. Exactly one tag has each + * integer value between 0 and numTags-1. */ + struct Node *tagRootPtr; /* Pointer into the B-Tree at the lowest node + * that completely dominates the ranges of + * text occupied by the tag. At this node + * there is no information about the tag. One + * or more children of the node do contain + * information about the tag. */ int toggleCount; /* Total number of tag toggles */ /* - * Information for displaying text with this tag. The information - * belows acts as an override on information specified by lower-priority - * tags. If no value is specified, then the next-lower-priority tag - * on the text determins the value. The text widget itself provides - * defaults if no tag specifies an override. + * Information for displaying text with this tag. The information belows + * acts as an override on information specified by lower-priority tags. + * If no value is specified, then the next-lower-priority tag on the text + * determins the value. The text widget itself provides defaults if no tag + * specifies an override. */ - Tk_3DBorder border; /* Used for drawing background. NULL means - * no value specified here. */ + Tk_3DBorder border; /* Used for drawing background. NULL means no + * value specified here. */ int borderWidth; /* Width of 3-D border for background. */ Tcl_Obj* borderWidthPtr; /* Width of 3-D border for background. */ - char *reliefString; /* -relief option string (malloc-ed). - * NULL means option not specified. */ + char *reliefString; /* -relief option string (malloc-ed). NULL + * means option not specified. */ int relief; /* 3-D relief for background. */ - Pixmap bgStipple; /* Stipple bitmap for background. None - * means no value specified here. */ - XColor *fgColor; /* Foreground color for text. NULL means - * no value specified here. */ - Tk_Font tkfont; /* Font for displaying text. NULL means + Pixmap bgStipple; /* Stipple bitmap for background. None means * no value specified here. */ + XColor *fgColor; /* Foreground color for text. NULL means no + * value specified here. */ + Tk_Font tkfont; /* Font for displaying text. NULL means no + * value specified here. */ Pixmap fgStipple; /* Stipple bitmap for text and other - * foreground stuff. None means no value + * foreground stuff. None means no value * specified here.*/ - char *justifyString; /* -justify option string (malloc-ed). - * NULL means option not specified. */ + char *justifyString; /* -justify option string (malloc-ed). NULL + * means option not specified. */ Tk_Justify justify; /* How to justify text: TK_JUSTIFY_LEFT, * TK_JUSTIFY_RIGHT, or TK_JUSTIFY_CENTER. * Only valid if justifyString is non-NULL. */ - char *lMargin1String; /* -lmargin1 option string (malloc-ed). - * NULL means option not specified. */ - int lMargin1; /* Left margin for first display line of - * each text line, in pixels. Only valid - * if lMargin1String is non-NULL. */ - char *lMargin2String; /* -lmargin2 option string (malloc-ed). - * NULL means option not specified. */ + char *lMargin1String; /* -lmargin1 option string (malloc-ed). NULL + * means option not specified. */ + int lMargin1; /* Left margin for first display line of each + * text line, in pixels. Only valid if + * lMargin1String is non-NULL. */ + char *lMargin2String; /* -lmargin2 option string (malloc-ed). NULL + * means option not specified. */ int lMargin2; /* Left margin for second and later display - * lines of each text line, in pixels. Only + * lines of each text line, in pixels. Only * valid if lMargin2String is non-NULL. */ - char *offsetString; /* -offset option string (malloc-ed). - * NULL means option not specified. */ + char *offsetString; /* -offset option string (malloc-ed). NULL + * means option not specified. */ int offset; /* Vertical offset of text's baseline from - * baseline of line. Used for superscripts - * and subscripts. Only valid if - * offsetString is non-NULL. */ - char *overstrikeString; /* -overstrike option string (malloc-ed). - * NULL means option not specified. */ + * baseline of line. Used for superscripts and + * subscripts. Only valid if offsetString is + * non-NULL. */ + char *overstrikeString; /* -overstrike option string (malloc-ed). NULL + * means option not specified. */ int overstrike; /* Non-zero means draw horizontal line through - * middle of text. Only valid if + * middle of text. Only valid if * overstrikeString is non-NULL. */ - char *rMarginString; /* -rmargin option string (malloc-ed). - * NULL means option not specified. */ - int rMargin; /* Right margin for text, in pixels. Only + char *rMarginString; /* -rmargin option string (malloc-ed). NULL + * means option not specified. */ + int rMargin; /* Right margin for text, in pixels. Only * valid if rMarginString is non-NULL. */ - char *spacing1String; /* -spacing1 option string (malloc-ed). - * NULL means option not specified. */ - int spacing1; /* Extra spacing above first display - * line for text line. Only valid if - * spacing1String is non-NULL. */ - char *spacing2String; /* -spacing2 option string (malloc-ed). - * NULL means option not specified. */ - int spacing2; /* Extra spacing between display - * lines for the same text line. Only valid - * if spacing2String is non-NULL. */ - char *spacing3String; /* -spacing2 option string (malloc-ed). - * NULL means option not specified. */ - int spacing3; /* Extra spacing below last display - * line for text line. Only valid if - * spacing3String is non-NULL. */ - Tcl_Obj *tabStringPtr; /* -tabs option string. - * NULL means option not specified. */ + char *spacing1String; /* -spacing1 option string (malloc-ed). NULL + * means option not specified. */ + int spacing1; /* Extra spacing above first display line for + * text line. Only valid if spacing1String is + * non-NULL. */ + char *spacing2String; /* -spacing2 option string (malloc-ed). NULL + * means option not specified. */ + int spacing2; /* Extra spacing between display lines for the + * same text line. Only valid if + * spacing2String is non-NULL. */ + char *spacing3String; /* -spacing2 option string (malloc-ed). NULL + * means option not specified. */ + int spacing3; /* Extra spacing below last display line for + * text line. Only valid if spacing3String is + * non-NULL. */ + Tcl_Obj *tabStringPtr; /* -tabs option string. NULL means option not + * specified. */ struct TkTextTabArray *tabArrayPtr; - /* Info about tabs for tag (malloc-ed) - * or NULL. Corresponds to tabString. */ - int tabStyle; /* One of TABULAR or WORDPROCESSOR or - * NONE (if not specified). */ - char *underlineString; /* -underline option string (malloc-ed). - * NULL means option not specified. */ + /* Info about tabs for tag (malloc-ed) or + * NULL. Corresponds to tabString. */ + int tabStyle; /* One of TABULAR or WORDPROCESSOR or NONE (if + * not specified). */ + char *underlineString; /* -underline option string (malloc-ed). NULL + * means option not specified. */ int underline; /* Non-zero means draw underline underneath - * text. Only valid if underlineString is + * text. Only valid if underlineString is * non-NULL. */ TkWrapMode wrapMode; /* How to handle wrap-around for this tag. * Must be TEXT_WRAPMODE_CHAR, - * TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, - * or TEXT_WRAPMODE_NULL to use wrapmode for + * TEXT_WRAPMODE_NONE, TEXT_WRAPMODE_WORD, or + * TEXT_WRAPMODE_NULL to use wrapmode for * whole widget. */ - char *elideString; /* -elide option string (malloc-ed). - * NULL means option not specified. */ + char *elideString; /* -elide option string (malloc-ed). NULL + * means option not specified. */ int elide; /* Non-zero means that data under this tag * should not be displayed. */ int affectsDisplay; /* Non-zero means that this tag affects the @@ -442,9 +414,9 @@ typedef struct TkTextTag { * (so need to redisplay if tag changes). */ Tk_OptionTable optionTable; /* Token representing the configuration * specifications. */ - int affectsDisplayGeometry; /* Non-zero means that this tag affects the - * size with which information is displayed - * on the screen (so need to recalculate line + int affectsDisplayGeometry; /* Non-zero means that this tag affects the + * size with which information is displayed on + * the screen (so need to recalculate line * dimensions if tag changes). */ } TkTextTag; @@ -454,91 +426,86 @@ typedef struct TkTextTag { #define TK_TAG_OFFSET 0x10 /* - * The data structure below is used for searching a B-tree for transitions - * on a single tag (or for all tag transitions). No code outside of - * tkTextBTree.c should ever modify any of the fields in these structures, - * but it's OK to use them for read-only information. + * The data structure below is used for searching a B-tree for transitions on + * a single tag (or for all tag transitions). No code outside of tkTextBTree.c + * should ever modify any of the fields in these structures, but it's OK to + * use them for read-only information. */ typedef struct TkTextSearch { - TkTextIndex curIndex; /* Position of last tag transition - * returned by TkBTreeNextTag, or - * index of start of segment - * containing starting position for - * search if TkBTreeNextTag hasn't - * been called yet, or same as - * stopIndex if search is over. */ - TkTextSegment *segPtr; /* Actual tag segment returned by last - * call to TkBTreeNextTag, or NULL if - * TkBTreeNextTag hasn't returned - * anything yet. */ - TkTextSegment *nextPtr; /* Where to resume search in next - * call to TkBTreeNextTag. */ - TkTextSegment *lastPtr; /* Stop search before just before - * considering this segment. */ - TkTextTag *tagPtr; /* Tag to search for (or tag found, if - * allTags is non-zero). */ - int linesLeft; /* Lines left to search (including - * curIndex and stopIndex). When - * this becomes <= 0 the search is - * over. */ - int allTags; /* Non-zero means ignore tag check: - * search for transitions on all - * tags. */ + TkTextIndex curIndex; /* Position of last tag transition returned by + * TkBTreeNextTag, or index of start of + * segment containing starting position for + * search if TkBTreeNextTag hasn't been called + * yet, or same as stopIndex if search is + * over. */ + TkTextSegment *segPtr; /* Actual tag segment returned by last call to + * TkBTreeNextTag, or NULL if TkBTreeNextTag + * hasn't returned anything yet. */ + TkTextSegment *nextPtr; /* Where to resume search in next call to + * TkBTreeNextTag. */ + TkTextSegment *lastPtr; /* Stop search before just before considering + * this segment. */ + TkTextTag *tagPtr; /* Tag to search for (or tag found, if allTags + * is non-zero). */ + int linesLeft; /* Lines left to search (including curIndex + * and stopIndex). When this becomes <= 0 the + * search is over. */ + int allTags; /* Non-zero means ignore tag check: search for + * transitions on all tags. */ } TkTextSearch; /* - * The following data structure describes a single tab stop. It must be - * kept in sync with the 'tabOptionStrings' array in the function - * 'TkTextGetTabs' + * The following data structure describes a single tab stop. It must be kept + * in sync with the 'tabOptionStrings' array in the function 'TkTextGetTabs' */ typedef enum {LEFT, RIGHT, CENTER, NUMERIC} TkTextTabAlign; /* - * The following are the supported styles of tabbing, used for the - * -tabstyle option of the text widget. The last element is only - * used for tag options. + * The following are the supported styles of tabbing, used for the -tabstyle + * option of the text widget. The last element is only used for tag options. */ + typedef enum { - TK_TEXT_TABSTYLE_TABULAR, - TK_TEXT_TABSTYLE_WORDPROCESSOR, + TK_TEXT_TABSTYLE_TABULAR, + TK_TEXT_TABSTYLE_WORDPROCESSOR, TK_TEXT_TABSTYLE_NONE } TkTextTabStyle; typedef struct TkTextTab { - int location; /* Offset in pixels of this tab stop - * from the left margin (lmargin2) of - * the text. */ - TkTextTabAlign alignment; /* Where the tab stop appears relative - * to the text. */ + int location; /* Offset in pixels of this tab stop from the + * left margin (lmargin2) of the text. */ + TkTextTabAlign alignment; /* Where the tab stop appears relative to the + * text. */ } TkTextTab; typedef struct TkTextTabArray { - int numTabs; /* Number of tab stops. */ - double lastTab; /* The accurate fractional pixel - * position of the last tab. */ - double tabIncrement; /* The accurate fractional pixel - * increment between interpolated - * tabs we have to create when - * we exceed numTabs. */ - TkTextTab tabs[1]; /* Array of tabs. The actual size - * will be numTabs. THIS FIELD MUST - * BE THE LAST IN THE STRUCTURE. */ + int numTabs; /* Number of tab stops. */ + double lastTab; /* The accurate fractional pixel position of + * the last tab. */ + double tabIncrement; /* The accurate fractional pixel increment + * between interpolated tabs we have to create + * when we exceed numTabs. */ + TkTextTab tabs[1]; /* Array of tabs. The actual size will be + * numTabs. THIS FIELD MUST BE THE LAST IN THE + * STRUCTURE. */ } TkTextTabArray; -/* enum definining the edit modes of */ +/* + * Enumeration definining the edit modes of the widget. + */ typedef enum { - TK_TEXT_EDIT_INSERT, /* insert mode */ - TK_TEXT_EDIT_DELETE, /* delete mode */ - TK_TEXT_EDIT_REPLACE, /* replace mode */ - TK_TEXT_EDIT_OTHER /* none of the above */ + TK_TEXT_EDIT_INSERT, /* insert mode */ + TK_TEXT_EDIT_DELETE, /* delete mode */ + TK_TEXT_EDIT_REPLACE, /* replace mode */ + TK_TEXT_EDIT_OTHER /* none of the above */ } TkTextEditMode; /* - * The following enum is used to define a type for the -state option - * of the Text widget. + * The following enum is used to define a type for the -state option of the + * Text widget. */ typedef enum { @@ -556,77 +523,64 @@ typedef struct TkSharedText { TkTextBTree tree; /* B-tree representation of text and tags for * widget. */ Tcl_HashTable tagTable; /* Hash table that maps from tag names to - * pointers to TkTextTag structures. - * The "sel" tag does not feature in - * this table, since there's one of - * those for each text peer. */ + * pointers to TkTextTag structures. The "sel" + * tag does not feature in this table, since + * there's one of those for each text peer. */ int numTags; /* Number of tags currently defined for - * widget; needed to keep track of + * widget; needed to keep track of * priorities. */ Tcl_HashTable markTable; /* Hash table that maps from mark names to - * pointers to mark segments. The - * special "insert" and "current" marks - * are not stored in this table, but - * directly accessed as fields of - * textPtr. */ - Tcl_HashTable windowTable; /* Hash table that maps from window names - * to pointers to window segments. If a - * window segment doesn't yet have an - * associated window, there is no entry for - * it here. */ - Tcl_HashTable imageTable; /* Hash table that maps from image names - * to pointers to image segments. If an - * image segment doesn't yet have an - * associated image, there is no entry for - * it here. */ + * pointers to mark segments. The special + * "insert" and "current" marks are not stored + * in this table, but directly accessed as + * fields of textPtr. */ + Tcl_HashTable windowTable; /* Hash table that maps from window names to + * pointers to window segments. If a window + * segment doesn't yet have an associated + * window, there is no entry for it here. */ + Tcl_HashTable imageTable; /* Hash table that maps from image names to + * pointers to image segments. If an image + * segment doesn't yet have an associated + * image, there is no entry for it here. */ Tk_BindingTable bindingTable; - /* Table of all bindings currently defined - * for this widget. NULL means that no - * bindings exist, so the table hasn't been - * created. Each "object" used for this - * table is the name of a tag. */ - int stateEpoch; /* This is incremented each time the - * B-tree's contents change - * structurally, and means that any - * cached TkTextIndex objects are no + /* Table of all bindings currently defined for + * this widget. NULL means that no bindings + * exist, so the table hasn't been created. + * Each "object" used for this table is the + * name of a tag. */ + int stateEpoch; /* This is incremented each time the B-tree's + * contents change structurally, and means + * that any cached TkTextIndex objects are no * longer valid. */ /* * Information related to the undo/redo functonality */ - + TkUndoRedoStack *undoStack; /* The undo/redo stack */ - - int undo; /* Non-zero means the undo/redo behaviour is + int undo; /* Non-zero means the undo/redo behaviour is * enabled */ - - int maxUndo; /* The maximum depth of the undo stack - * expressed as the maximum number of - * compound statements */ - - int autoSeparators; /* Non-zero means the separators will be + int maxUndo; /* The maximum depth of the undo stack + * expressed as the maximum number of compound + * statements */ + int autoSeparators; /* Non-zero means the separators will be * inserted automatically */ - int modifiedSet; /* Flag indicating that the 'dirtynesss' of - * the text widget has been expplicitly set. - */ - - int isDirty; /* Flag indicating the 'dirtynesss' of the text - * widget. If the flag is not zero, unsaved - * modifications have been applied to the - * text widget */ - + * the text widget has been expplicitly set. */ + int isDirty; /* Flag indicating the 'dirtynesss' of the + * text widget. If the flag is not zero, + * unsaved modifications have been applied to + * the text widget */ int isDirtyIncrement; /* Amount with which the isDirty flag is * incremented every edit action */ - - TkTextEditMode lastEditMode;/* Keeps track of what the last edit - * mode was */ + TkTextEditMode lastEditMode;/* Keeps track of what the last edit mode + * was */ /* * Keep track of all the peers */ - struct TkText *peers; + struct TkText *peers; } TkSharedText; /* @@ -642,38 +596,37 @@ typedef struct TkText { TkSharedText *sharedTextPtr;/* Shared section of all peers. */ struct TkText *next; /* Next in list of linked peers. */ - TkTextLine *start; /* First B-tree line to show, or NULL - * to start at the beginning. */ - TkTextLine *end; /* Last B-tree line to show, or NULL - * for up to the end. */ - int pixelReference; /* Counter into the current tree - * reference index corresponding to - * this widget */ - - int abortSelections; /* Set to 1 whenever the text is modified - * in a way that interferes with selection - * retrieval: used to abort incremental + TkTextLine *start; /* First B-tree line to show, or NULL to start + * at the beginning. */ + TkTextLine *end; /* Last B-tree line to show, or NULL for up to + * the end. */ + int pixelReference; /* Counter into the current tree reference + * index corresponding to this widget */ + + int abortSelections; /* Set to 1 whenever the text is modified in a + * way that interferes with selection + * retrieval: used to abort incremental * selection retrievals. */ - /* + /* * Standard Tk widget information and text-widget specific items */ - - Tk_Window tkwin; /* Window that embodies the text. NULL - * means that the window has been destroyed - * but the data structures haven't yet been - * cleaned up.*/ - Display *display; /* Display for widget. Needed, among other - * things, to allow resources to be freed - * even after tkwin has gone away. */ - Tcl_Interp *interp; /* Interpreter associated with widget. Used - * to delete widget command. */ + + Tk_Window tkwin; /* Window that embodies the text. NULL means + * that the window has been destroyed but the + * data structures haven't yet been cleaned + * up.*/ + Display *display; /* Display for widget. Needed, among other + * things, to allow resources to be freed even + * after tkwin has gone away. */ + Tcl_Interp *interp; /* Interpreter associated with widget. Used to + * delete widget command. */ Tcl_Command widgetCmd; /* Token for text's widget command. */ int state; /* Either STATE_NORMAL or STATE_DISABLED. A * text widget is read-only when disabled. */ /* - * Default information for displaying (may be overridden by tags - * applied to ranges of characters). + * Default information for displaying (may be overridden by tags applied + * to ranges of characters). */ Tk_3DBorder border; /* Structure used to draw 3-D border and @@ -681,14 +634,14 @@ typedef struct TkText { int borderWidth; /* Width of 3-D border to draw around entire * widget. */ int padX, padY; /* Padding between text and window border. */ - int relief; /* 3-d effect for border around entire - * widget: TK_RELIEF_RAISED etc. */ - int highlightWidth; /* Width in pixels of highlight to draw - * around widget when it has the focus. - * <= 0 means don't draw a highlight. */ + int relief; /* 3-d effect for border around entire widget: + * TK_RELIEF_RAISED etc. */ + int highlightWidth; /* Width in pixels of highlight to draw around + * widget when it has the focus. <= 0 means + * don't draw a highlight. */ XColor *highlightBgColorPtr; - /* Color for drawing traversal highlight - * area when highlight is off. */ + /* Color for drawing traversal highlight area + * when highlight is off. */ XColor *highlightColorPtr; /* Color for drawing traversal highlight. */ Tk_Cursor cursor; /* Current cursor for window, or None. */ XColor *fgColor; /* Default foreground color for text. */ @@ -714,14 +667,14 @@ typedef struct TkText { * Additional information used for displaying: */ - TkWrapMode wrapMode; /* How to handle wrap-around. Must be + TkWrapMode wrapMode; /* How to handle wrap-around. Must be * TEXT_WRAPMODE_CHAR, TEXT_WRAPMODE_NONE, or * TEXT_WRAPMODE_WORD. */ - int width, height; /* Desired dimensions for window, measured - * in characters. */ - int setGrid; /* Non-zero means pass gridding information - * to window manager. */ - int prevWidth, prevHeight; /* Last known dimensions of window; used to + int width, height; /* Desired dimensions for window, measured in + * characters. */ + int setGrid; /* Non-zero means pass gridding information to + * window manager. */ + int prevWidth, prevHeight; /* Last known dimensions of window; used to * detect changes in size. */ TkTextIndex topIndex; /* Identifies first character in top display * line of window. */ @@ -731,26 +684,27 @@ typedef struct TkText { * Information related to selection. */ - TkTextTag *selTagPtr; /* Pointer to "sel" tag. Used to tell when - * a new selection has been made. */ + TkTextTag *selTagPtr; /* Pointer to "sel" tag. Used to tell when a + * new selection has been made. */ Tk_3DBorder selBorder; /* Border and background for selected - * characters. This is a copy of information + * characters. This is a copy of information * in *selTagPtr, so it shouldn't be * explicitly freed. */ - Tk_3DBorder inactiveSelBorder;/* Border and background for selected + Tk_3DBorder inactiveSelBorder; + /* Border and background for selected * characters when they don't have the * focus. */ int selBorderWidth; /* Width of border around selection. */ Tcl_Obj* selBorderWidthPtr; /* Width of border around selection. */ - XColor *selFgColorPtr; /* Foreground color for selected text. - * This is a copy of information in - * *selTagPtr, so it shouldn't be - * explicitly freed. */ + XColor *selFgColorPtr; /* Foreground color for selected text. This is + * a copy of information in *selTagPtr, so it + * shouldn't be explicitly freed. */ int exportSelection; /* Non-zero means tie "sel" tag to X * selection. */ - TkTextIndex selIndex; /* Used during multi-pass selection retrievals. - * This index identifies the next character - * to be returned from the selection. */ + TkTextIndex selIndex; /* Used during multi-pass selection + * retrievals. This index identifies the next + * character to be returned from the + * selection. */ /* * Information related to insertion cursor: @@ -775,51 +729,50 @@ typedef struct TkText { */ TkTextSegment *currentMarkPtr; - /* Pointer to segment for "current" mark, - * or NULL if none. */ + /* Pointer to segment for "current" mark, or + * NULL if none. */ XEvent pickEvent; /* The event from which the current character - * was chosen. Must be saved so that we - * can repick after modifications to the - * text. */ - int numCurTags; /* Number of tags associated with character - * at current mark. */ - TkTextTag **curTagArrayPtr; /* Pointer to array of tags for current - * mark, or NULL if none. */ + * was chosen. Must be saved so that we can + * repick after modifications to the text. */ + int numCurTags; /* Number of tags associated with character at + * current mark. */ + TkTextTag **curTagArrayPtr; /* Pointer to array of tags for current mark, + * or NULL if none. */ /* * Miscellaneous additional information: */ - char *takeFocus; /* Value of -takeFocus option; not used in - * the C code, but used by keyboard traversal - * scripts. Malloc'ed, but may be NULL. */ + char *takeFocus; /* Value of -takeFocus option; not used in the + * C code, but used by keyboard traversal + * scripts. Malloc'ed, but may be NULL. */ char *xScrollCmd; /* Prefix of command to issue to update * horizontal scrollbar when view changes. */ char *yScrollCmd; /* Prefix of command to issue to update * vertical scrollbar when view changes. */ - int flags; /* Miscellaneous flags; see below for + int flags; /* Miscellaneous flags; see below for * definitions. */ Tk_OptionTable optionTable; /* Token representing the configuration * specifications. */ - - int refCount; /* Number of cached TkTextIndex objects + + int refCount; /* Number of cached TkTextIndex objects * refering to us */ - int insertCursorType; /* 0 = standard insertion cursor, - * 1 = block cursor. */ + int insertCursorType; /* 0 = standard insertion cursor, 1 = block + * cursor. */ /* - * Copies of information from the shared section relating to the - * undo/redo functonality + * Copies of information from the shared section relating to the undo/redo + * functonality */ - - int undo; /* Non-zero means the undo/redo behaviour is + + int undo; /* Non-zero means the undo/redo behaviour is * enabled */ - - int maxUndo; /* The maximum depth of the undo stack - * expressed as the maximum number of - * compound statements */ - int autoSeparators; /* Non-zero means the separators will be + int maxUndo; /* The maximum depth of the undo stack + * expressed as the maximum number of compound + * statements */ + + int autoSeparators; /* Non-zero means the separators will be * inserted automatically */ } TkText; @@ -832,15 +785,15 @@ typedef struct TkText { * displayed on screen. * GOT_FOCUS: Non-zero means this window has the input * focus. - * BUTTON_DOWN: 1 means that a mouse button is currently - * down; this is used to implement grabs - * for the duration of button presses. + * BUTTON_DOWN: 1 means that a mouse button is currently down; + * this is used to implement grabs for the + * duration of button presses. * UPDATE_SCROLLBARS: Non-zero means scrollbar(s) should be updated * during next redisplay operation. - * NEED_REPICK This appears unused and should probably - * be ignored + * NEED_REPICK This appears unused and should probably be + * ignored * OPTIONS_FREED The widget's options have been freed - * DESTROYED The widget is going away + * DESTROYED The widget is going away */ #define GOT_SELECTION 1 @@ -853,67 +806,60 @@ typedef struct TkText { #define DESTROYED 0x80 /* - * Records of the following type define segment types in terms of - * a collection of procedures that may be called to manipulate - * segments of that type. + * Records of the following type define segment types in terms of a collection + * of procedures that may be called to manipulate segments of that type. */ -typedef TkTextSegment * Tk_SegSplitProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, int index)); -typedef int Tk_SegDeleteProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, - TkTextLine *linePtr, int treeGone)); -typedef TkTextSegment * Tk_SegCleanupProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, TkTextLine *linePtr)); -typedef void Tk_SegLineChangeProc _ANSI_ARGS_(( - struct TkTextSegment *segPtr, TkTextLine *linePtr)); -typedef int Tk_SegLayoutProc _ANSI_ARGS_((struct TkText *textPtr, - struct TkTextIndex *indexPtr, TkTextSegment *segPtr, - int offset, int maxX, int maxChars, - int noCharsYet, TkWrapMode wrapMode, - struct TkTextDispChunk *chunkPtr)); -typedef void Tk_SegCheckProc _ANSI_ARGS_((TkTextSegment *segPtr, - TkTextLine *linePtr)); +typedef TkTextSegment * Tk_SegSplitProc(struct TkTextSegment *segPtr, + int index); +typedef int Tk_SegDeleteProc(struct TkTextSegment *segPtr, + TkTextLine *linePtr, int treeGone); +typedef TkTextSegment * Tk_SegCleanupProc(struct TkTextSegment *segPtr, + TkTextLine *linePtr); +typedef void Tk_SegLineChangeProc(struct TkTextSegment *segPtr, + TkTextLine *linePtr); +typedef int Tk_SegLayoutProc(struct TkText *textPtr, + struct TkTextIndex *indexPtr, + TkTextSegment *segPtr, int offset, int maxX, + int maxChars, int noCharsYet, TkWrapMode wrapMode, + struct TkTextDispChunk *chunkPtr); +typedef void Tk_SegCheckProc(TkTextSegment *segPtr, + TkTextLine *linePtr); typedef struct Tk_SegType { - CONST char *name; /* Name of this kind of segment. */ - int leftGravity; /* If a segment has zero size (e.g. a - * mark or tag toggle), does it - * attach to character to its left - * or right? 1 means left, 0 means - * right. */ - Tk_SegSplitProc *splitProc; /* Procedure to split large segment - * into two smaller ones. */ - Tk_SegDeleteProc *deleteProc; /* Procedure to call to delete - * segment. */ - Tk_SegCleanupProc *cleanupProc; /* After any change to a line, this - * procedure is invoked for all - * segments left in the line to - * perform any cleanup they wish - * (e.g. joining neighboring - * segments). */ + CONST char *name; /* Name of this kind of segment. */ + int leftGravity; /* If a segment has zero size (e.g. a mark or + * tag toggle), does it attach to character to + * its left or right? 1 means left, 0 means + * right. */ + Tk_SegSplitProc *splitProc; /* Procedure to split large segment into two + * smaller ones. */ + Tk_SegDeleteProc *deleteProc; + /* Procedure to call to delete segment. */ + Tk_SegCleanupProc *cleanupProc; + /* After any change to a line, this procedure + * is invoked for all segments left in the + * line to perform any cleanup they wish + * (e.g. joining neighboring segments). */ Tk_SegLineChangeProc *lineChangeProc; - /* Invoked when a segment is about - * to be moved from its current line - * to an earlier line because of - * a deletion. The linePtr is that - * for the segment's old line. - * CleanupProc will be invoked after - * the deletion is finished. */ - Tk_SegLayoutProc *layoutProc; /* Returns size information when - * figuring out what to display in - * window. */ - Tk_SegCheckProc *checkProc; /* Called during consistency checks - * to check internal consistency of - * segment. */ + /* Invoked when a segment is about to be moved + * from its current line to an earlier line + * because of a deletion. The linePtr is that + * for the segment's old line. CleanupProc + * will be invoked after the deletion is + * finished. */ + Tk_SegLayoutProc *layoutProc; + /* Returns size information when figuring out + * what to display in window. */ + Tk_SegCheckProc *checkProc; /* Called during consistency checks to check + * internal consistency of segment. */ } Tk_SegType; - /* - * The following type and items describe different flags for text widget - * items to count. They are used in both tkText.c and tkTextIndex.c, - * in 'CountIndices', 'TkTextIndexBackChars', 'TkTextIndexForwChars', - * and 'TkTextIndexCount'. + * The following type and items describe different flags for text widget items + * to count. They are used in both tkText.c and tkTextIndex.c, in + * 'CountIndices', 'TkTextIndexBackChars', 'TkTextIndexForwChars', and + * 'TkTextIndexCount'. */ typedef int TkTextCountType; @@ -925,24 +871,23 @@ typedef int TkTextCountType; #define COUNT_DISPLAY_INDICES (COUNT_INDICES | COUNT_DISPLAY) /* - * The following structure is used to keep track of elided text - * taking account of different tag priorities, it is need for - * quick calculations of whether a single index is elided, and - * to start at a given index and maintain a correct elide state - * as we move or count forwards or backwards. + * The following structure is used to keep track of elided text taking account + * of different tag priorities, it is need for quick calculations of whether a + * single index is elided, and to start at a given index and maintain a + * correct elide state as we move or count forwards or backwards. */ #define LOTSA_TAGS 1000 typedef struct TkTextElideInfo { int numTags; /* Total tags in widget */ int elide; /* Is the state currently elided */ - int elidePriority; /* Tag priority controlling elide state */ + int elidePriority; /* Tag priority controlling elide state */ TkTextSegment *segPtr; /* Segment to look at next */ int segOffset; /* Offset of segment within line */ - int deftagCnts[LOTSA_TAGS]; + int deftagCnts[LOTSA_TAGS]; TkTextTag *deftagPtrs[LOTSA_TAGS]; - int *tagCnts; /* 0 or 1 depending if the tag with - * that priority is on or off */ + int *tagCnts; /* 0 or 1 depending if the tag with that + * priority is on or off */ TkTextTag **tagPtrs; /* Only filled with a tagPtr if the * corresponding tagCnt is 1 */ } TkTextElideInfo; @@ -955,34 +900,39 @@ typedef struct TkTextElideInfo { #define TK_END_OF_TEXT 1000000 /* - * The following definition specifies the maximum number of characters - * needed in a string to hold a position specifier. + * The following definition specifies the maximum number of characters needed + * in a string to hold a position specifier. */ #define TK_POS_CHARS 30 -/* - * Mask used for those options which may impact the pixel height - * calculations of individual lines displayed in the widget. +/* + * Mask used for those options which may impact the pixel height calculations + * of individual lines displayed in the widget. */ + #define TK_TEXT_LINE_GEOMETRY 1 -/* - * Mask used for those options which may impact the start and - * end lines used in the widget. + +/* + * Mask used for those options which may impact the start and end lines used + * in the widget. */ + #define TK_TEXT_LINE_RANGE 2 /* * Used as 'action' values in calls to TkTextInvalidateLineMetrics */ + #define TK_TEXT_INVALIDATE_ONLY 0 #define TK_TEXT_INVALIDATE_INSERT 1 #define TK_TEXT_INVALIDATE_DELETE 2 /* - * Used as special 'pickPlace' values in calls to TkTextSetYView. - * Zero or positive values indicate a number of pixels. + * Used as special 'pickPlace' values in calls to TkTextSetYView. Zero or + * positive values indicate a number of pixels. */ + #define TK_TEXT_PICKPLACE -1 #define TK_TEXT_NOPIXELADJUST -2 @@ -999,223 +949,209 @@ EXTERN Tk_SegType tkTextToggleOnType; EXTERN Tk_SegType tkTextToggleOffType; /* - * Convenience macros for use by B-tree clients which want to access - * pixel information on each line. Currently only used by TkTextDisp.c + * Convenience macros for use by B-tree clients which want to access pixel + * information on each line. Currently only used by TkTextDisp.c */ #define TkBTreeLinePixelCount(text, line) \ - line->pixels[2*text->pixelReference] + (line)->pixels[2*(text)->pixelReference] #define TkBTreeLinePixelEpoch(text, line) \ - line->pixels[1+2*text->pixelReference] + (line)->pixels[1+2*(text)->pixelReference] /* - * Declarations for procedures that are used by the text-related files - * but shouldn't be used anywhere else in Tk (or by Tk clients): + * Declarations for procedures that are used by the text-related files but + * shouldn't be used anywhere else in Tk (or by Tk clients): */ - -EXTERN int TkBTreeAdjustPixelHeight _ANSI_ARGS_((CONST TkText *textPtr, + +EXTERN int TkBTreeAdjustPixelHeight(CONST TkText *textPtr, TkTextLine *linePtr, int newPixelHeight, - int mergedLogicalLines)); -EXTERN int TkBTreeCharTagged _ANSI_ARGS_((CONST TkTextIndex *indexPtr, - TkTextTag *tagPtr)); -EXTERN void TkBTreeCheck _ANSI_ARGS_((TkTextBTree tree)); -EXTERN TkTextBTree TkBTreeCreate _ANSI_ARGS_((TkSharedText *sharedTextPtr)); -EXTERN void TkBTreeAddClient _ANSI_ARGS_((TkTextBTree tree, - TkText *textPtr, - int defaultHeight)); -EXTERN void TkBTreeClientRangeChanged _ANSI_ARGS_((TkText *textPtr, - int defaultHeight)); -EXTERN void TkBTreeRemoveClient _ANSI_ARGS_((TkTextBTree tree, - TkText *textPtr)); -EXTERN void TkBTreeDestroy _ANSI_ARGS_((TkTextBTree tree)); -EXTERN void TkBTreeDeleteIndexRange _ANSI_ARGS_((TkTextBTree tree, - TkTextIndex *index1Ptr, TkTextIndex *index2Ptr)); -EXTERN TkTextLine * TkBTreeFindLine _ANSI_ARGS_((TkTextBTree tree, - CONST TkText *textPtr, int line)); -EXTERN TkTextLine * TkBTreeFindPixelLine _ANSI_ARGS_((TkTextBTree tree, - CONST TkText *textPtr, int pixels, int *pixelOffset)); -EXTERN TkTextTag ** TkBTreeGetTags _ANSI_ARGS_((CONST TkTextIndex *indexPtr, - CONST TkText *textPtr, int *numTagsPtr)); -EXTERN void TkBTreeInsertChars _ANSI_ARGS_((TkTextBTree tree, - TkTextIndex *indexPtr, CONST char *string)); -EXTERN int TkBTreeLinesTo _ANSI_ARGS_((CONST TkText *textPtr, - TkTextLine *linePtr)); -EXTERN int TkBTreePixelsTo _ANSI_ARGS_((CONST TkText *textPtr, - TkTextLine *linePtr)); -EXTERN void TkBTreeLinkSegment _ANSI_ARGS_((TkTextSegment *segPtr, - TkTextIndex *indexPtr)); -EXTERN TkTextLine * TkBTreeNextLine _ANSI_ARGS_((CONST TkText *textPtr, - TkTextLine *linePtr)); -EXTERN int TkBTreeNextTag _ANSI_ARGS_((TkTextSearch *searchPtr)); -EXTERN int TkBTreeNumLines _ANSI_ARGS_((TkTextBTree tree, - CONST TkText *textPtr)); -EXTERN int TkBTreeNumPixels _ANSI_ARGS_((TkTextBTree tree, - CONST TkText *textPtr)); -EXTERN TkTextLine * TkBTreePreviousLine _ANSI_ARGS_((TkText *textPtr, - TkTextLine *linePtr)); -EXTERN int TkBTreePrevTag _ANSI_ARGS_((TkTextSearch *searchPtr)); -EXTERN void TkBTreeStartSearch _ANSI_ARGS_((TkTextIndex *index1Ptr, + int mergedLogicalLines); +EXTERN int TkBTreeCharTagged(CONST TkTextIndex *indexPtr, + TkTextTag *tagPtr); +EXTERN void TkBTreeCheck(TkTextBTree tree); +EXTERN TkTextBTree TkBTreeCreate(TkSharedText *sharedTextPtr); +EXTERN void TkBTreeAddClient(TkTextBTree tree, TkText *textPtr, + int defaultHeight); +EXTERN void TkBTreeClientRangeChanged(TkText *textPtr, + int defaultHeight); +EXTERN void TkBTreeRemoveClient(TkTextBTree tree, + TkText *textPtr); +EXTERN void TkBTreeDestroy(TkTextBTree tree); +EXTERN void TkBTreeDeleteIndexRange(TkTextBTree tree, + TkTextIndex *index1Ptr, TkTextIndex *index2Ptr); +EXTERN TkTextLine * TkBTreeFindLine(TkTextBTree tree, + CONST TkText *textPtr, int line); +EXTERN TkTextLine * TkBTreeFindPixelLine(TkTextBTree tree, + CONST TkText *textPtr, int pixels, + int *pixelOffset); +EXTERN TkTextTag ** TkBTreeGetTags(CONST TkTextIndex *indexPtr, + CONST TkText *textPtr, int *numTagsPtr); +EXTERN void TkBTreeInsertChars(TkTextBTree tree, + TkTextIndex *indexPtr, CONST char *string); +EXTERN int TkBTreeLinesTo(CONST TkText *textPtr, + TkTextLine *linePtr); +EXTERN int TkBTreePixelsTo(CONST TkText *textPtr, + TkTextLine *linePtr); +EXTERN void TkBTreeLinkSegment(TkTextSegment *segPtr, + TkTextIndex *indexPtr); +EXTERN TkTextLine * TkBTreeNextLine(CONST TkText *textPtr, + TkTextLine *linePtr); +EXTERN int TkBTreeNextTag(TkTextSearch *searchPtr); +EXTERN int TkBTreeNumLines(TkTextBTree tree, + CONST TkText *textPtr); +EXTERN int TkBTreeNumPixels(TkTextBTree tree, + CONST TkText *textPtr); +EXTERN TkTextLine * TkBTreePreviousLine(TkText *textPtr, + TkTextLine *linePtr); +EXTERN int TkBTreePrevTag(TkTextSearch *searchPtr); +EXTERN void TkBTreeStartSearch(TkTextIndex *index1Ptr, TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr)); -EXTERN void TkBTreeStartSearchBack _ANSI_ARGS_((TkTextIndex *index1Ptr, + TkTextSearch *searchPtr); +EXTERN void TkBTreeStartSearchBack(TkTextIndex *index1Ptr, TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr)); -EXTERN int TkBTreeTag _ANSI_ARGS_((TkTextIndex *index1Ptr, + TkTextSearch *searchPtr); +EXTERN int TkBTreeTag(TkTextIndex *index1Ptr, TkTextIndex *index2Ptr, TkTextTag *tagPtr, - int add)); -EXTERN void TkBTreeUnlinkSegment _ANSI_ARGS_(( - TkTextSegment *segPtr, TkTextLine *linePtr)); -EXTERN void TkTextBindProc _ANSI_ARGS_((ClientData clientData, - XEvent *eventPtr)); -EXTERN void TkTextSelectionEvent _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkTextChanged _ANSI_ARGS_((TkSharedText *sharedTextPtr, - TkText *textPtr, - CONST TkTextIndex *index1Ptr, - CONST TkTextIndex *index2Ptr)); -EXTERN int TkTextIndexBbox _ANSI_ARGS_((TkText *textPtr, + int add); +EXTERN void TkBTreeUnlinkSegment(TkTextSegment *segPtr, + TkTextLine *linePtr); +EXTERN void TkTextBindProc(ClientData clientData, + XEvent *eventPtr); +EXTERN void TkTextSelectionEvent(TkText *textPtr); +EXTERN void TkTextChanged(TkSharedText *sharedTextPtr, + TkText *textPtr, CONST TkTextIndex *index1Ptr, + CONST TkTextIndex *index2Ptr); +EXTERN int TkTextIndexBbox(TkText *textPtr, CONST TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr, int *charWidthPtr)); -EXTERN int TkTextCharLayoutProc _ANSI_ARGS_((TkText *textPtr, + int *widthPtr, int *heightPtr, int *charWidthPtr); +EXTERN int TkTextCharLayoutProc(TkText *textPtr, TkTextIndex *indexPtr, TkTextSegment *segPtr, int offset, int maxX, int maxChars, int noBreakYet, - TkWrapMode wrapMode, TkTextDispChunk *chunkPtr)); -EXTERN void TkTextCreateDInfo _ANSI_ARGS_((TkText *textPtr)); -EXTERN int TkTextDLineInfo _ANSI_ARGS_((TkText *textPtr, + TkWrapMode wrapMode, TkTextDispChunk *chunkPtr); +EXTERN void TkTextCreateDInfo(TkText *textPtr); +EXTERN int TkTextDLineInfo(TkText *textPtr, CONST TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr, int *basePtr)); -EXTERN void TkTextEmbWinDisplayProc _ANSI_ARGS_((TkText *textPtr, + int *widthPtr, int *heightPtr, int *basePtr); +EXTERN void TkTextEmbWinDisplayProc(TkText *textPtr, TkTextDispChunk *chunkPtr, int x, int y, int lineHeight, int baseline, Display *display, - Drawable dst, int screenY)); -EXTERN TkTextTag * TkTextCreateTag _ANSI_ARGS_((TkText *textPtr, - CONST char *tagName, int *newTag)); -EXTERN void TkTextFreeDInfo _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkTextDeleteTag _ANSI_ARGS_((TkText *textPtr, - TkTextTag *tagPtr)); -EXTERN void TkTextFreeTag _ANSI_ARGS_((TkText *textPtr, - TkTextTag *tagPtr)); -EXTERN int TkTextGetIndex _ANSI_ARGS_((Tcl_Interp *interp, - TkText *textPtr, CONST char *string, - TkTextIndex *indexPtr)); -EXTERN int TkTextGetObjIndex _ANSI_ARGS_((Tcl_Interp *interp, - TkText *textPtr, Tcl_Obj *idxPtr, - TkTextIndex *indexPtr)); -EXTERN int TkTextSharedGetObjIndex _ANSI_ARGS_((Tcl_Interp *interp, + Drawable dst, int screenY); +EXTERN TkTextTag * TkTextCreateTag(TkText *textPtr, + CONST char *tagName, int *newTag); +EXTERN void TkTextFreeDInfo(TkText *textPtr); +EXTERN void TkTextDeleteTag(TkText *textPtr, TkTextTag *tagPtr); +EXTERN void TkTextFreeTag(TkText *textPtr, TkTextTag *tagPtr); +EXTERN int TkTextGetIndex(Tcl_Interp *interp, TkText *textPtr, + CONST char *string, TkTextIndex *indexPtr); +EXTERN int TkTextGetObjIndex(Tcl_Interp *interp, TkText *textPtr, + Tcl_Obj *idxPtr, TkTextIndex *indexPtr); +EXTERN int TkTextSharedGetObjIndex(Tcl_Interp *interp, TkSharedText *sharedTextPtr, Tcl_Obj *idxPtr, - TkTextIndex *indexPtr)); -EXTERN CONST TkTextIndex* TkTextGetIndexFromObj _ANSI_ARGS_((Tcl_Interp *interp, - TkText *textPtr, Tcl_Obj *objPtr)); -EXTERN TkTextTabArray * TkTextGetTabs _ANSI_ARGS_((Tcl_Interp *interp, - TkText *textPtr, Tcl_Obj *stringPtr)); -EXTERN void TkTextFindDisplayLineEnd _ANSI_ARGS_(( - TkText *textPtr, TkTextIndex *indexPtr, - int end, int *xOffset)); -EXTERN int TkTextIndexBackBytes _ANSI_ARGS_((CONST TkText *textPtr, + TkTextIndex *indexPtr); +EXTERN CONST TkTextIndex* TkTextGetIndexFromObj(Tcl_Interp *interp, + TkText *textPtr, Tcl_Obj *objPtr); +EXTERN TkTextTabArray * TkTextGetTabs(Tcl_Interp *interp, + TkText *textPtr, Tcl_Obj *stringPtr); +EXTERN void TkTextFindDisplayLineEnd(TkText *textPtr, + TkTextIndex *indexPtr, int end, int *xOffset); +EXTERN int TkTextIndexBackBytes(CONST TkText *textPtr, CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN void TkTextIndexBackChars _ANSI_ARGS_(( - CONST TkText *textPtr, + TkTextIndex *dstPtr); +EXTERN void TkTextIndexBackChars(CONST TkText *textPtr, CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr, TkTextCountType type)); -EXTERN int TkTextIndexCmp _ANSI_ARGS_(( - CONST TkTextIndex *index1Ptr, - CONST TkTextIndex *index2Ptr)); -EXTERN int TkTextIndexCount _ANSI_ARGS_((CONST TkText *textPtr, + TkTextIndex *dstPtr, TkTextCountType type); +EXTERN int TkTextIndexCmp(CONST TkTextIndex *index1Ptr, + CONST TkTextIndex *index2Ptr); +EXTERN int TkTextIndexCount(CONST TkText *textPtr, CONST TkTextIndex *index1Ptr, - CONST TkTextIndex *index2Ptr, - TkTextCountType type)); -EXTERN int TkTextIndexForwBytes _ANSI_ARGS_((CONST TkText *textPtr, + CONST TkTextIndex *index2Ptr, + TkTextCountType type); +EXTERN int TkTextIndexForwBytes(CONST TkText *textPtr, CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr)); -EXTERN void TkTextIndexForwChars _ANSI_ARGS_(( - CONST TkText *textPtr, + TkTextIndex *dstPtr); +EXTERN void TkTextIndexForwChars(CONST TkText *textPtr, CONST TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr, TkTextCountType type)); -EXTERN void TkTextIndexOfX _ANSI_ARGS_((TkText *textPtr, - int x, TkTextIndex *indexPtr)); -EXTERN int TkTextIndexYPixels _ANSI_ARGS_((TkText *textPtr, - CONST TkTextIndex *indexPtr)); -EXTERN TkTextSegment * TkTextIndexToSeg _ANSI_ARGS_(( - CONST TkTextIndex *indexPtr, int *offsetPtr)); -EXTERN void TkTextInsertDisplayProc _ANSI_ARGS_((TkText *textPtr, - TkTextDispChunk *chunkPtr, int x, int y, int height, - int baseline, Display *display, Drawable dst, - int screenY)); -EXTERN void TkTextLostSelection _ANSI_ARGS_(( - ClientData clientData)); -EXTERN TkTextIndex * TkTextMakeCharIndex _ANSI_ARGS_((TkTextBTree tree, - TkText *textPtr, int lineIndex, int charIndex, - TkTextIndex *indexPtr)); -EXTERN int TkTextMeasureDown _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *srcPtr, int distance)); -EXTERN void TkTextFreeElideInfo _ANSI_ARGS_(( - TkTextElideInfo *infoPtr)); -EXTERN int TkTextIsElided _ANSI_ARGS_((CONST TkText *textPtr, - CONST TkTextIndex *indexPtr, - TkTextElideInfo *infoPtr)); -EXTERN TkTextIndex * TkTextMakeByteIndex _ANSI_ARGS_((TkTextBTree tree, - CONST TkText *textPtr, int lineIndex, int byteIndex, - TkTextIndex *indexPtr)); -EXTERN int TkTextMakePixelIndex _ANSI_ARGS_((TkText *textPtr, - int pixelIndex, TkTextIndex *indexPtr)); -EXTERN void TkTextInvalidateLineMetrics _ANSI_ARGS_(( + TkTextIndex *dstPtr, TkTextCountType type); +EXTERN void TkTextIndexOfX(TkText *textPtr, int x, + TkTextIndex *indexPtr); +EXTERN int TkTextIndexYPixels(TkText *textPtr, + CONST TkTextIndex *indexPtr); +EXTERN TkTextSegment * TkTextIndexToSeg(CONST TkTextIndex *indexPtr, + int *offsetPtr); +EXTERN void TkTextInsertDisplayProc(TkText *textPtr, + TkTextDispChunk *chunkPtr, int x, int y, + int height, int baseline, Display *display, + Drawable dst, int screenY); +EXTERN void TkTextLostSelection(ClientData clientData); +EXTERN TkTextIndex * TkTextMakeCharIndex(TkTextBTree tree, TkText *textPtr, + int lineIndex, int charIndex, + TkTextIndex *indexPtr); +EXTERN int TkTextMeasureDown(TkText *textPtr, + TkTextIndex *srcPtr, int distance); +EXTERN void TkTextFreeElideInfo(TkTextElideInfo *infoPtr); +EXTERN int TkTextIsElided(CONST TkText *textPtr, + CONST TkTextIndex *indexPtr, + TkTextElideInfo *infoPtr); +EXTERN TkTextIndex * TkTextMakeByteIndex(TkTextBTree tree, + CONST TkText *textPtr, int lineIndex, + int byteIndex, TkTextIndex *indexPtr); +EXTERN int TkTextMakePixelIndex(TkText *textPtr, + int pixelIndex, TkTextIndex *indexPtr); +EXTERN void TkTextInvalidateLineMetrics( TkSharedText *sharedTextPtr, TkText *textPtr, - TkTextLine *linePtr, int lineCount, int action)); -EXTERN int TkTextUpdateLineMetrics _ANSI_ARGS_((TkText *textPtr, - int lineNum, int endLine, int doThisMuch)); -EXTERN int TkTextUpdateOneLine _ANSI_ARGS_((TkText *textPtr, - TkTextLine *linePtr, int pixelHeight, - TkTextIndex *indexPtr, int partialCalc)); -EXTERN int TkTextMarkCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextMarkNameToIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN void TkTextMarkSegToIndex _ANSI_ARGS_((TkText *textPtr, - TkTextSegment *markPtr, TkTextIndex *indexPtr)); -EXTERN void TkTextEventuallyRepick _ANSI_ARGS_((TkText *textPtr)); -EXTERN void TkTextPickCurrent _ANSI_ARGS_((TkText *textPtr, - XEvent *eventPtr)); -EXTERN void TkTextPixelIndex _ANSI_ARGS_((TkText *textPtr, - int x, int y, TkTextIndex *indexPtr, int *nearest)); -EXTERN int TkTextPrintIndex _ANSI_ARGS_((CONST TkText *textPtr, - CONST TkTextIndex *indexPtr, char *string)); -EXTERN Tcl_Obj* TkTextNewIndexObj _ANSI_ARGS_((TkText *textPtr, - CONST TkTextIndex *indexPtr)); -EXTERN void TkTextRedrawRegion _ANSI_ARGS_((TkText *textPtr, - int x, int y, int width, int height)); -EXTERN void TkTextRedrawTag _ANSI_ARGS_((TkSharedText *sharedTextPtr, - TkText *textPtr, - TkTextIndex *index1Ptr, TkTextIndex *index2Ptr, - TkTextTag *tagPtr, int withTag)); -EXTERN void TkTextRelayoutWindow _ANSI_ARGS_((TkText *textPtr, - int mask)); -EXTERN int TkTextScanCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextSeeCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextSegToOffset _ANSI_ARGS_(( - CONST TkTextSegment *segPtr, - CONST TkTextLine *linePtr)); -EXTERN TkTextSegment * TkTextSetMark _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN void TkTextSetYView _ANSI_ARGS_((TkText *textPtr, - TkTextIndex *indexPtr, int pickPlace)); -EXTERN int TkTextTagCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextImageCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextImageIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN int TkTextWindowCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextWindowIndex _ANSI_ARGS_((TkText *textPtr, - CONST char *name, TkTextIndex *indexPtr)); -EXTERN int TkTextXviewCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN int TkTextYviewCmd _ANSI_ARGS_((TkText *textPtr, - Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); -EXTERN void TkTextWinFreeClient _ANSI_ARGS_((Tcl_HashEntry *hPtr, - TkTextEmbWindowClient *client)); + TkTextLine *linePtr, int lineCount, int action); +EXTERN int TkTextUpdateLineMetrics(TkText *textPtr, int lineNum, + int endLine, int doThisMuch); +EXTERN int TkTextUpdateOneLine(TkText *textPtr, + TkTextLine *linePtr, int pixelHeight, + TkTextIndex *indexPtr, int partialCalc); +EXTERN int TkTextMarkCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextMarkNameToIndex(TkText *textPtr, + CONST char *name, TkTextIndex *indexPtr); +EXTERN void TkTextMarkSegToIndex(TkText *textPtr, + TkTextSegment *markPtr, TkTextIndex *indexPtr); +EXTERN void TkTextEventuallyRepick(TkText *textPtr); +EXTERN void TkTextPickCurrent(TkText *textPtr, XEvent *eventPtr); +EXTERN void TkTextPixelIndex(TkText *textPtr, int x, int y, + TkTextIndex *indexPtr, int *nearest); +EXTERN int TkTextPrintIndex(CONST TkText *textPtr, + CONST TkTextIndex *indexPtr, char *string); +EXTERN Tcl_Obj* TkTextNewIndexObj(TkText *textPtr, + CONST TkTextIndex *indexPtr); +EXTERN void TkTextRedrawRegion(TkText *textPtr, int x, int y, + int width, int height); +EXTERN void TkTextRedrawTag(TkSharedText *sharedTextPtr, + TkText *textPtr, TkTextIndex *index1Ptr, + TkTextIndex *index2Ptr, TkTextTag *tagPtr, + int withTag); +EXTERN void TkTextRelayoutWindow(TkText *textPtr, int mask); +EXTERN int TkTextScanCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextSeeCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextSegToOffset(CONST TkTextSegment *segPtr, + CONST TkTextLine *linePtr); +EXTERN TkTextSegment * TkTextSetMark(TkText *textPtr, + CONST char *name, TkTextIndex *indexPtr); +EXTERN void TkTextSetYView(TkText *textPtr, + TkTextIndex *indexPtr, int pickPlace); +EXTERN int TkTextTagCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextImageCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextImageIndex(TkText *textPtr, + CONST char *name, TkTextIndex *indexPtr); +EXTERN int TkTextWindowCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextWindowIndex(TkText *textPtr, CONST char *name, + TkTextIndex *indexPtr); +EXTERN int TkTextXviewCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN int TkTextYviewCmd(TkText *textPtr, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[]); +EXTERN void TkTextWinFreeClient(Tcl_HashEntry *hPtr, + TkTextEmbWindowClient *client); # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT |