diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-04-22 15:46:20 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-04-22 15:46:20 (GMT) |
commit | 7e8909a08b8e425eeaa69085cbe86e848f2f5650 (patch) | |
tree | f26e5e21fe28674bab321d6453ea32b5a4a491e2 /tk8.6/generic/tkText.h | |
parent | 346eeb31d1c0a2ee959ecfade3cd66e3dc07cf4b (diff) | |
download | blt-7e8909a08b8e425eeaa69085cbe86e848f2f5650.zip blt-7e8909a08b8e425eeaa69085cbe86e848f2f5650.tar.gz blt-7e8909a08b8e425eeaa69085cbe86e848f2f5650.tar.bz2 |
backout tcl/tk 8.6.9
Diffstat (limited to 'tk8.6/generic/tkText.h')
-rw-r--r-- | tk8.6/generic/tkText.h | 1171 |
1 files changed, 0 insertions, 1171 deletions
diff --git a/tk8.6/generic/tkText.h b/tk8.6/generic/tkText.h deleted file mode 100644 index 5d88784..0000000 --- a/tk8.6/generic/tkText.h +++ /dev/null @@ -1,1171 +0,0 @@ -/* - * tkText.h -- - * - * 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. - */ - -#ifndef _TKTEXT -#define _TKTEXT - -#ifndef _TK -#include "tk.h" -#endif - -#ifndef _TKUNDO -#include "tkUndo.h" -#endif - -/* - * 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). - */ - -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. */ -} 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. - * ----------------------------------------------------------------------- - */ - -/* - * 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. */ -} TkTextToggle; - -/* - * 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). */ -} 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 - */ - -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 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. */ -} 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 - */ - -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. */ -} TkTextEmbImage; - -/* - * The data structure below defines line segments. - */ - -typedef struct TkTextSegment { - const 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[2]; /* 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. - */ - -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. */ -} TkTextIndex; - -/* - * Types for procedure pointers stored in TkTextDispChunk strutures: - */ - -typedef struct TkTextDispChunk TkTextDispChunk; - -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(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); - -/* - * 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. - */ - - 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. - */ - - 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. */ -}; - -/* - * 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 -} 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. */ - 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. - */ - - 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. */ - 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 no - * value specified here. */ - Pixmap fgStipple; /* Stipple bitmap for text and other - * foreground stuff. None means no value - * specified here.*/ - 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. */ - int lMargin2; /* Left margin for second and later display - * lines of each text line, in pixels. Only - * valid if lMargin2String is non-NULL. */ - Tk_3DBorder lMarginColor; /* Used for drawing background in left margins. - * This is used for both lmargin1 and lmargin2. - * NULL means no value specified here. */ - 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. */ - int overstrike; /* Non-zero means draw horizontal line through - * middle of text. Only valid if - * overstrikeString is non-NULL. */ - XColor *overstrikeColor; /* Color for the overstrike. NULL means same - * color as foreground. */ - 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. */ - Tk_3DBorder rMarginColor; /* Used for drawing background in right margin. - * NULL means no value specified here. */ - Tk_3DBorder selBorder; /* Used for drawing background for selected text. - * NULL means no value specified here. */ - XColor *selFgColor; /* Foreground color for selected text. NULL means - * no value specified here. */ - 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. */ - int underline; /* Non-zero means draw underline underneath - * text. Only valid if underlineString is - * non-NULL. */ - XColor *underlineColor; /* Color for the underline. NULL means same - * color as foreground. */ - 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 - * whole widget. */ - 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 - * way information is displayed on the screen - * (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 - * dimensions if tag changes). */ -} TkTextTag; - -#define TK_TAG_AFFECTS_DISPLAY 0x1 -#define TK_TAG_UNDERLINE 0x2 -#define TK_TAG_JUSTIFY 0x4 -#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. - */ - -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. */ -} TkTextSearch; - -/* - * 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. - */ - -typedef enum { - 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. */ -} 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. */ -} TkTextTabArray; - -/* - * Enumeration defining 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 */ -} TkTextEditMode; - -/* - * Enumeration defining the ways in which a text widget may be modified (for - * undo/redo handling). - */ - -typedef enum { - TK_TEXT_DIRTY_NORMAL, /* Normal behavior. */ - TK_TEXT_DIRTY_UNDO, /* Reverting a compound action. */ - TK_TEXT_DIRTY_REDO, /* Reapplying a compound action. */ - TK_TEXT_DIRTY_FIXED /* Forced to be dirty; can't be undone/redone - * by normal activity. */ -} TkTextDirtyMode; - -/* - * The following enum is used to define a type for the -state option of the - * Text widget. - */ - -typedef enum { - TK_TEXT_STATE_DISABLED, TK_TEXT_STATE_NORMAL -} TkTextState; - -/* - * A data structure of the following type is shared between each text widget - * that are peers. - */ - -typedef struct TkSharedText { - int refCount; /* Reference count this shared object. */ - 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. */ - int numTags; /* Number of tags currently defined for - * 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. */ - 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, or when the - * start/end limits change, and means that any - * cached TkTextIndex objects are no longer - * valid. */ - - /* - * Information related to the undo/redo functionality. - */ - - TkUndoRedoStack *undoStack; /* The undo/redo stack. */ - 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 - * inserted automatically. */ - int isDirty; /* Flag indicating the 'dirtyness' of the - * text widget. If the flag is not zero, - * unsaved modifications have been applied to - * the text widget. */ - TkTextDirtyMode dirtyMode; /* The nature of the dirtyness characterized - * by the isDirty flag. */ - TkTextEditMode lastEditMode;/* Keeps track of what the last edit mode - * was. */ - - /* - * Keep track of all the peers - */ - - struct TkText *peers; -} TkSharedText; - -/* - * The following enum is used to define a type for the -insertunfocussed - * option of the Text widget. - */ - -typedef enum { - TK_TEXT_INSERT_NOFOCUS_HOLLOW, - TK_TEXT_INSERT_NOFOCUS_NONE, - TK_TEXT_INSERT_NOFOCUS_SOLID -} TkTextInsertUnfocussed; - -/* - * A data structure of the following type is kept for each text widget that - * currently exists for this process: - */ - -typedef struct TkText { - /* - * Information related to and accessed by widget peers and the - * TkSharedText handling routines. - */ - - 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 - * 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. */ - 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). - */ - - Tk_3DBorder border; /* Structure used to draw 3-D border and - * default background. */ - 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. */ - XColor *highlightBgColorPtr; - /* 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. */ - Tk_Font tkfont; /* Default font for displaying text. */ - int charWidth; /* Width of average character in default - * font. */ - int charHeight; /* Height of average character in default - * font, including line spacing. */ - int spacing1; /* Default extra spacing above first display - * line for each text line. */ - int spacing2; /* Default extra spacing between display lines - * for the same text line. */ - int spacing3; /* Default extra spacing below last display - * line for each text line. */ - Tcl_Obj *tabOptionPtr; /* Value of -tabs option string. */ - TkTextTabArray *tabArrayPtr; - /* Information about tab stops (malloc'ed). - * NULL means perform default tabbing - * behavior. */ - int tabStyle; /* One of TABULAR or WORDPROCESSOR. */ - - /* - * Additional information used for displaying: - */ - - 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 - * detect changes in size. */ - TkTextIndex topIndex; /* Identifies first character in top display - * line of window. */ - struct TextDInfo *dInfoPtr; /* Information maintained by tkTextDisp.c. */ - - /* - * Information related to selection. - */ - - 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 - * in *selTagPtr, so it shouldn't be - * explicitly freed. */ - 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. */ - 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. */ - - /* - * Information related to insertion cursor: - */ - - TkTextSegment *insertMarkPtr; - /* Points to segment for "insert" mark. */ - Tk_3DBorder insertBorder; /* Used to draw vertical bar for insertion - * cursor. */ - int insertWidth; /* Total width of insert cursor. */ - int insertBorderWidth; /* Width of 3-D border around insert cursor */ - TkTextInsertUnfocussed insertUnfocussed; - /* How to display the insert cursor when the - * text widget does not have the focus. */ - int insertOnTime; /* Number of milliseconds cursor should spend - * in "on" state for each blink. */ - int insertOffTime; /* Number of milliseconds cursor should spend - * in "off" state for each blink. */ - Tcl_TimerToken insertBlinkHandler; - /* Timer handler used to blink cursor on and - * off. */ - - /* - * Information used for event bindings associated with tags: - */ - - TkTextSegment *currentMarkPtr; - /* 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. */ - - /* - * 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 *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 - * definitions. */ - Tk_OptionTable optionTable; /* Token representing the configuration - * specifications. */ - int refCount; /* Number of cached TkTextIndex objects - * refering to us. */ - int insertCursorType; /* 0 = standard insertion cursor, 1 = block - * cursor. */ - - /* - * Copies of information from the shared section relating to the undo/redo - * functonality - */ - - 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 - * inserted automatically. */ - Tcl_Obj *afterSyncCmd; /* Command to be executed when lines are up to - * date */ -} TkText; - -/* - * Flag values for TkText records: - * - * GOT_SELECTION: Non-zero means we've already claimed the - * selection. - * INSERT_ON: Non-zero means insertion cursor should be - * 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. - * UPDATE_SCROLLBARS: Non-zero means scrollbar(s) should be updated - * during next redisplay operation. - * 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. - */ - -#define GOT_SELECTION 1 -#define INSERT_ON 2 -#define GOT_FOCUS 4 -#define BUTTON_DOWN 8 -#define UPDATE_SCROLLBARS 0x10 -#define NEED_REPICK 0x20 -#define OPTIONS_FREED 0x40 -#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. - */ - -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). */ - 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. */ -} 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'. - */ - -typedef int TkTextCountType; - -#define COUNT_CHARS 0 -#define COUNT_INDICES 1 -#define COUNT_DISPLAY 2 -#define COUNT_DISPLAY_CHARS (COUNT_CHARS | COUNT_DISPLAY) -#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. - */ - -#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. */ - TkTextSegment *segPtr; /* Segment to look at next. */ - int segOffset; /* Offset of segment within line. */ - int deftagCnts[LOTSA_TAGS]; - TkTextTag *deftagPtrs[LOTSA_TAGS]; - 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; - -/* - * The constant below is used to specify a line when what is really wanted is - * the entire text. For now, just use a very big number. - */ - -#define TK_END_OF_TEXT 1000000 - -/* - * 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. - */ - -#define TK_TEXT_LINE_GEOMETRY 1 - -/* - * 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. - */ - -#define TK_TEXT_PICKPLACE -1 -#define TK_TEXT_NOPIXELADJUST -2 - -/* - * Declarations for variables shared among the text-related files: - */ - -MODULE_SCOPE int tkBTreeDebug; -MODULE_SCOPE int tkTextDebug; -MODULE_SCOPE const Tk_SegType tkTextCharType; -MODULE_SCOPE const Tk_SegType tkTextLeftMarkType; -MODULE_SCOPE const Tk_SegType tkTextRightMarkType; -MODULE_SCOPE const Tk_SegType tkTextToggleOnType; -MODULE_SCOPE const Tk_SegType tkTextToggleOffType; -MODULE_SCOPE const Tk_SegType tkTextEmbWindowType; -MODULE_SCOPE const Tk_SegType tkTextEmbImageType; - -/* - * 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] -#define TkBTreeLinePixelEpoch(text, line) \ - (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): - */ - -MODULE_SCOPE int TkBTreeAdjustPixelHeight(const TkText *textPtr, - TkTextLine *linePtr, int newPixelHeight, - int mergedLogicalLines); -MODULE_SCOPE int TkBTreeCharTagged(const TkTextIndex *indexPtr, - TkTextTag *tagPtr); -MODULE_SCOPE void TkBTreeCheck(TkTextBTree tree); -MODULE_SCOPE TkTextBTree TkBTreeCreate(TkSharedText *sharedTextPtr); -MODULE_SCOPE void TkBTreeAddClient(TkTextBTree tree, TkText *textPtr, - int defaultHeight); -MODULE_SCOPE void TkBTreeClientRangeChanged(TkText *textPtr, - int defaultHeight); -MODULE_SCOPE void TkBTreeRemoveClient(TkTextBTree tree, - TkText *textPtr); -MODULE_SCOPE void TkBTreeDestroy(TkTextBTree tree); -MODULE_SCOPE void TkBTreeDeleteIndexRange(TkTextBTree tree, - TkTextIndex *index1Ptr, TkTextIndex *index2Ptr); -MODULE_SCOPE int TkBTreeEpoch(TkTextBTree tree); -MODULE_SCOPE TkTextLine *TkBTreeFindLine(TkTextBTree tree, - const TkText *textPtr, int line); -MODULE_SCOPE TkTextLine *TkBTreeFindPixelLine(TkTextBTree tree, - const TkText *textPtr, int pixels, - int *pixelOffset); -MODULE_SCOPE TkTextTag **TkBTreeGetTags(const TkTextIndex *indexPtr, - const TkText *textPtr, int *numTagsPtr); -MODULE_SCOPE void TkBTreeInsertChars(TkTextBTree tree, - TkTextIndex *indexPtr, const char *string); -MODULE_SCOPE int TkBTreeLinesTo(const TkText *textPtr, - TkTextLine *linePtr); -MODULE_SCOPE int TkBTreePixelsTo(const TkText *textPtr, - TkTextLine *linePtr); -MODULE_SCOPE void TkBTreeLinkSegment(TkTextSegment *segPtr, - TkTextIndex *indexPtr); -MODULE_SCOPE TkTextLine *TkBTreeNextLine(const TkText *textPtr, - TkTextLine *linePtr); -MODULE_SCOPE int TkBTreeNextTag(TkTextSearch *searchPtr); -MODULE_SCOPE int TkBTreeNumPixels(TkTextBTree tree, - const TkText *textPtr); -MODULE_SCOPE TkTextLine *TkBTreePreviousLine(TkText *textPtr, - TkTextLine *linePtr); -MODULE_SCOPE int TkBTreePrevTag(TkTextSearch *searchPtr); -MODULE_SCOPE void TkBTreeStartSearch(TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr); -MODULE_SCOPE void TkBTreeStartSearchBack(TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - TkTextSearch *searchPtr); -MODULE_SCOPE int TkBTreeTag(TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - int add); -MODULE_SCOPE void TkBTreeUnlinkSegment(TkTextSegment *segPtr, - TkTextLine *linePtr); -MODULE_SCOPE void TkTextBindProc(ClientData clientData, - XEvent *eventPtr); -MODULE_SCOPE void TkTextSelectionEvent(TkText *textPtr); -MODULE_SCOPE int TkTextIndexBbox(TkText *textPtr, - const TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr, int *charWidthPtr); -MODULE_SCOPE int TkTextCharLayoutProc(TkText *textPtr, - TkTextIndex *indexPtr, TkTextSegment *segPtr, - int offset, int maxX, int maxChars, int noBreakYet, - TkWrapMode wrapMode, TkTextDispChunk *chunkPtr); -MODULE_SCOPE void TkTextCreateDInfo(TkText *textPtr); -MODULE_SCOPE int TkTextDLineInfo(TkText *textPtr, - const TkTextIndex *indexPtr, int *xPtr, int *yPtr, - int *widthPtr, int *heightPtr, int *basePtr); -MODULE_SCOPE void TkTextEmbWinDisplayProc(TkText *textPtr, - TkTextDispChunk *chunkPtr, int x, int y, - int lineHeight, int baseline, Display *display, - Drawable dst, int screenY); -MODULE_SCOPE TkTextTag *TkTextCreateTag(TkText *textPtr, - const char *tagName, int *newTag); -MODULE_SCOPE void TkTextFreeDInfo(TkText *textPtr); -MODULE_SCOPE void TkTextDeleteTag(TkText *textPtr, TkTextTag *tagPtr); -MODULE_SCOPE void TkTextFreeTag(TkText *textPtr, TkTextTag *tagPtr); -MODULE_SCOPE int TkTextGetObjIndex(Tcl_Interp *interp, TkText *textPtr, - Tcl_Obj *idxPtr, TkTextIndex *indexPtr); -MODULE_SCOPE int TkTextSharedGetObjIndex(Tcl_Interp *interp, - TkSharedText *sharedTextPtr, Tcl_Obj *idxPtr, - TkTextIndex *indexPtr); -MODULE_SCOPE const TkTextIndex *TkTextGetIndexFromObj(Tcl_Interp *interp, - TkText *textPtr, Tcl_Obj *objPtr); -MODULE_SCOPE TkTextTabArray *TkTextGetTabs(Tcl_Interp *interp, - TkText *textPtr, Tcl_Obj *stringPtr); -MODULE_SCOPE void TkTextFindDisplayLineEnd(TkText *textPtr, - TkTextIndex *indexPtr, int end, int *xOffset); -MODULE_SCOPE void TkTextIndexBackChars(const TkText *textPtr, - const TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr, TkTextCountType type); -MODULE_SCOPE int TkTextIndexCmp(const TkTextIndex *index1Ptr, - const TkTextIndex *index2Ptr); -MODULE_SCOPE int TkTextIndexCountBytes(const TkText *textPtr, - const TkTextIndex *index1Ptr, - const TkTextIndex *index2Ptr); -MODULE_SCOPE int TkTextIndexCount(const TkText *textPtr, - const TkTextIndex *index1Ptr, - const TkTextIndex *index2Ptr, - TkTextCountType type); -MODULE_SCOPE void TkTextIndexForwChars(const TkText *textPtr, - const TkTextIndex *srcPtr, int count, - TkTextIndex *dstPtr, TkTextCountType type); -MODULE_SCOPE void TkTextIndexOfX(TkText *textPtr, int x, - TkTextIndex *indexPtr); -MODULE_SCOPE int TkTextIndexYPixels(TkText *textPtr, - const TkTextIndex *indexPtr); -MODULE_SCOPE TkTextSegment *TkTextIndexToSeg(const TkTextIndex *indexPtr, - int *offsetPtr); -MODULE_SCOPE void TkTextLostSelection(ClientData clientData); -MODULE_SCOPE TkTextIndex *TkTextMakeCharIndex(TkTextBTree tree, TkText *textPtr, - int lineIndex, int charIndex, - TkTextIndex *indexPtr); -MODULE_SCOPE int TkTextMeasureDown(TkText *textPtr, - TkTextIndex *srcPtr, int distance); -MODULE_SCOPE void TkTextFreeElideInfo(TkTextElideInfo *infoPtr); -MODULE_SCOPE int TkTextIsElided(const TkText *textPtr, - const TkTextIndex *indexPtr, - TkTextElideInfo *infoPtr); -MODULE_SCOPE int TkTextMakePixelIndex(TkText *textPtr, - int pixelIndex, TkTextIndex *indexPtr); -MODULE_SCOPE void TkTextInvalidateLineMetrics( - TkSharedText *sharedTextPtr, TkText *textPtr, - TkTextLine *linePtr, int lineCount, int action); -MODULE_SCOPE int TkTextUpdateLineMetrics(TkText *textPtr, int lineNum, - int endLine, int doThisMuch); -MODULE_SCOPE int TkTextUpdateOneLine(TkText *textPtr, - TkTextLine *linePtr, int pixelHeight, - TkTextIndex *indexPtr, int partialCalc); -MODULE_SCOPE int TkTextMarkCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextMarkNameToIndex(TkText *textPtr, - const char *name, TkTextIndex *indexPtr); -MODULE_SCOPE void TkTextMarkSegToIndex(TkText *textPtr, - TkTextSegment *markPtr, TkTextIndex *indexPtr); -MODULE_SCOPE void TkTextEventuallyRepick(TkText *textPtr); -MODULE_SCOPE Bool TkTextPendingsync(TkText *textPtr); -MODULE_SCOPE void TkTextPickCurrent(TkText *textPtr, XEvent *eventPtr); -MODULE_SCOPE void TkTextPixelIndex(TkText *textPtr, int x, int y, - TkTextIndex *indexPtr, int *nearest); -MODULE_SCOPE Tcl_Obj * TkTextNewIndexObj(TkText *textPtr, - const TkTextIndex *indexPtr); -MODULE_SCOPE void TkTextRedrawRegion(TkText *textPtr, int x, int y, - int width, int height); -MODULE_SCOPE void TkTextRedrawTag(TkSharedText *sharedTextPtr, - TkText *textPtr, TkTextIndex *index1Ptr, - TkTextIndex *index2Ptr, TkTextTag *tagPtr, - int withTag); -MODULE_SCOPE void TkTextRelayoutWindow(TkText *textPtr, int mask); -MODULE_SCOPE int TkTextScanCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextSeeCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextSegToOffset(const TkTextSegment *segPtr, - const TkTextLine *linePtr); -MODULE_SCOPE void TkTextSetYView(TkText *textPtr, - TkTextIndex *indexPtr, int pickPlace); -MODULE_SCOPE int TkTextTagCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextImageCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextImageIndex(TkText *textPtr, - const char *name, TkTextIndex *indexPtr); -MODULE_SCOPE int TkTextWindowCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE int TkTextWindowIndex(TkText *textPtr, const char *name, - TkTextIndex *indexPtr); -MODULE_SCOPE int TkTextYviewCmd(TkText *textPtr, Tcl_Interp *interp, - int objc, Tcl_Obj *const objv[]); -MODULE_SCOPE void TkTextWinFreeClient(Tcl_HashEntry *hPtr, - TkTextEmbWindowClient *client); - -#endif /* _TKTEXT */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ |