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