/[dtapublic]/projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkselect.h
ViewVC logotype

Contents of /projs/trunk/shared_source/c_tk_base_7_5_w_mods/tkselect.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 44 - (show annotations) (download)
Fri Oct 14 02:09:58 2016 UTC (8 years, 1 month ago) by dashley
File MIME type: text/plain
File size: 7854 byte(s)
Rename for reorganization.
1 /* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tk_base/tkselect.h,v 1.1.1.1 2001/06/13 05:08:09 dtashley Exp $ */
2
3 /*
4 * tkSelect.h --
5 *
6 * Declarations of types shared among the files that implement
7 * selection support.
8 *
9 * Copyright (c) 1995 Sun Microsystems, Inc.
10 *
11 * See the file "license.terms" for information on usage and redistribution
12 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13 *
14 * RCS: @(#) $Id: tkselect.h,v 1.1.1.1 2001/06/13 05:08:09 dtashley Exp $
15 */
16
17 #ifndef _TKSELECT
18 #define _TKSELECT
19
20 /*
21 * When a selection is owned by a window on a given display, one of the
22 * following structures is present on a list of current selections in the
23 * display structure. The structure is used to record the current owner of
24 * a selection for use in later retrieval requests. There is a list of
25 * such structures because a display can have multiple different selections
26 * active at the same time.
27 */
28
29 typedef struct TkSelectionInfo {
30 Atom selection; /* Selection name, e.g. XA_PRIMARY. */
31 Tk_Window owner; /* Current owner of this selection. */
32 int serial; /* Serial number of last XSelectionSetOwner
33 * request made to server for this
34 * selection (used to filter out redundant
35 * SelectionClear events). */
36 Time time; /* Timestamp used to acquire selection. */
37 Tk_LostSelProc *clearProc; /* Procedure to call when owner loses
38 * selection. */
39 ClientData clearData; /* Info to pass to clearProc. */
40 struct TkSelectionInfo *nextPtr;
41 /* Next in list of current selections on
42 * this display. NULL means end of list */
43 } TkSelectionInfo;
44
45 /*
46 * One of the following structures exists for each selection handler
47 * created for a window by calling Tk_CreateSelHandler. The handlers
48 * are linked in a list rooted in the TkWindow structure.
49 */
50
51 typedef struct TkSelHandler {
52 Atom selection; /* Selection name, e.g. XA_PRIMARY */
53 Atom target; /* Target type for selection
54 * conversion, such as TARGETS or
55 * STRING. */
56 Atom format; /* Format in which selection
57 * info will be returned, such
58 * as STRING or ATOM. */
59 Tk_SelectionProc *proc; /* Procedure to generate selection
60 * in this format. */
61 ClientData clientData; /* Argument to pass to proc. */
62 int size; /* Size of units returned by proc
63 * (8 for STRING, 32 for almost
64 * anything else). */
65 struct TkSelHandler *nextPtr;
66 /* Next selection handler associated
67 * with same window (NULL for end of
68 * list). */
69 } TkSelHandler;
70
71 /*
72 * When the selection is being retrieved, one of the following
73 * structures is present on a list of pending selection retrievals.
74 * The structure is used to communicate between the background
75 * procedure that requests the selection and the foreground
76 * event handler that processes the events in which the selection
77 * is returned. There is a list of such structures so that there
78 * can be multiple simultaneous selection retrievals (e.g. on
79 * different displays).
80 */
81
82 typedef struct TkSelRetrievalInfo {
83 Tcl_Interp *interp; /* Interpreter for error reporting. */
84 TkWindow *winPtr; /* Window used as requestor for
85 * selection. */
86 Atom selection; /* Selection being requested. */
87 Atom property; /* Property where selection will appear. */
88 Atom target; /* Desired form for selection. */
89 int (*proc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp,
90 char *portion)); /* Procedure to call to handle pieces
91 * of selection. */
92 ClientData clientData; /* Argument for proc. */
93 int result; /* Initially -1. Set to a Tcl
94 * return value once the selection
95 * has been retrieved. */
96 Tcl_TimerToken timeout; /* Token for current timeout procedure. */
97 int idleTime; /* Number of seconds that have gone by
98 * without hearing anything from the
99 * selection owner. */
100 Tcl_EncodingState encState; /* Holds intermediate state during translations
101 * of data that cross buffer boundaries. */
102 int encFlags; /* Encoding translation state flags. */
103 Tcl_DString buf; /* Buffer to hold translation data. */
104 struct TkSelRetrievalInfo *nextPtr;
105 /* Next in list of all pending
106 * selection retrievals. NULL means
107 * end of list. */
108 } TkSelRetrievalInfo;
109
110 /*
111 * The clipboard contains a list of buffers of various types and formats.
112 * All of the buffers of a given type will be returned in sequence when the
113 * CLIPBOARD selection is retrieved. All buffers of a given type on the
114 * same clipboard must have the same format. The TkClipboardTarget structure
115 * is used to record the information about a chain of buffers of the same
116 * type.
117 */
118
119 typedef struct TkClipboardBuffer {
120 char *buffer; /* Null terminated data buffer. */
121 long length; /* Length of string in buffer. */
122 struct TkClipboardBuffer *nextPtr; /* Next in list of buffers. NULL
123 * means end of list . */
124 } TkClipboardBuffer;
125
126 typedef struct TkClipboardTarget {
127 Atom type; /* Type conversion supported. */
128 Atom format; /* Representation used for data. */
129 TkClipboardBuffer *firstBufferPtr; /* First in list of data buffers. */
130 TkClipboardBuffer *lastBufferPtr; /* Last in list of clipboard buffers.
131 * Used to speed up appends. */
132 struct TkClipboardTarget *nextPtr; /* Next in list of targets on
133 * clipboard. NULL means end of
134 * list. */
135 } TkClipboardTarget;
136
137 /*
138 * It is possible for a Tk_SelectionProc to delete the handler that it
139 * represents. If this happens, the code that is retrieving the selection
140 * needs to know about it so it doesn't use the now-defunct handler
141 * structure. One structure of the following form is created for each
142 * retrieval in progress, so that the retriever can find out if its
143 * handler is deleted. All of the pending retrievals (if there are more
144 * than one) are linked into a list.
145 */
146
147 typedef struct TkSelInProgress {
148 TkSelHandler *selPtr; /* Handler being executed. If this handler
149 * is deleted, the field is set to NULL. */
150 struct TkSelInProgress *nextPtr;
151 /* Next higher nested search. */
152 } TkSelInProgress;
153
154 /*
155 * Chunk size for retrieving selection. It's defined both in
156 * words and in bytes; the word size is used to allocate
157 * buffer space that's guaranteed to be word-aligned and that
158 * has an extra character for the terminating NULL.
159 */
160
161 #define TK_SEL_BYTES_AT_ONCE 4000
162 #define TK_SEL_WORDS_AT_ONCE 1001
163
164 /*
165 * Declarations for procedures that are used by the selection-related files
166 * but shouldn't be used anywhere else in Tk (or by Tk clients):
167 */
168
169 extern TkSelInProgress *
170 TkSelGetInProgress _ANSI_ARGS_((void));
171 extern void TkSelSetInProgress _ANSI_ARGS_((
172 TkSelInProgress *pendingPtr));
173
174 extern void TkSelClearSelection _ANSI_ARGS_((Tk_Window tkwin,
175 XEvent *eventPtr));
176 extern int TkSelDefaultSelection _ANSI_ARGS_((
177 TkSelectionInfo *infoPtr, Atom target,
178 char *buffer, int maxBytes, Atom *typePtr));
179 extern int TkSelGetSelection _ANSI_ARGS_((Tcl_Interp *interp,
180 Tk_Window tkwin, Atom selection, Atom target,
181 Tk_GetSelProc *proc, ClientData clientData));
182 #ifndef TkSelUpdateClipboard
183 extern void TkSelUpdateClipboard _ANSI_ARGS_((TkWindow *winPtr,
184 TkClipboardTarget *targetPtr));
185 #endif
186
187 #endif /* _TKSELECT */
188
189
190 /* $History: tkSelect.h $
191 *
192 * ***************** Version 1 *****************
193 * User: Dtashley Date: 1/02/01 Time: 3:01a
194 * Created in $/IjuScripter, IjuConsole/Source/Tk Base
195 * Initial check-in.
196 */
197
198 /* End of TKSELECT.H */

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25