1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
/*
* ------------------------------------------------------------------------
* PACKAGE: [incr Tk]
* DESCRIPTION: Building mega-widgets with [incr Tcl]
*
* [incr Tk] provides a framework for building composite "mega-widgets"
* using [incr Tcl] classes. It defines a set of base classes that are
* specialized to create all other widgets.
*
* ADDING [incr Tk] TO A Tcl-BASED APPLICATION:
*
* To add [incr Tk] facilities to a Tcl application, modify the
* Tcl_AppInit() routine as follows:
*
* 1) Include the header files for [incr Tcl] and [incr Tk] near
* the top of the file containing Tcl_AppInit():
*
* #include "itcl.h"
* #include "itk.h"
*
* 2) Within the body of Tcl_AppInit(), add the following lines:
*
* if (Itcl_Init(interp) == TCL_ERROR) {
* return TCL_ERROR;
* }
* if (Itk_Init(interp) == TCL_ERROR) {
* return TCL_ERROR;
* }
*
* 3) Link your application with libitcl.a and libitk.a
*
* NOTE: An example file "tkAppInit.c" containing the changes shown
* above is included in this distribution.
*
* ========================================================================
* AUTHOR: Michael J. McLennan
* Bell Labs Innovations for Lucent Technologies
* mmclennan@lucent.com
* http://www.tcltk.com/itcl
*
* RCS: $Id$
* ========================================================================
* Copyright (c) 1993-1998 Lucent Technologies, Inc.
* ------------------------------------------------------------------------
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*/
#ifndef ITK_H
#define ITK_H
#ifndef TCL_ALPHA_RELEASE
# define TCL_ALPHA_RELEASE 0
#endif
#ifndef TCL_BETA_RELEASE
# define TCL_BETA_RELEASE 1
#endif
#ifndef TCL_FINAL_RELEASE
# define TCL_FINAL_RELEASE 2
#endif
#define ITK_MAJOR_VERSION 3
#define ITK_MINOR_VERSION 3
#define ITK_RELEASE_LEVEL TCL_FINAL_RELEASE
#define ITK_RELEASE_SERIAL 0
#define ITK_VERSION "3.3"
#define ITK_PATCH_LEVEL "3.3.0"
/*
* A special definition used to allow this header file to be included
* in resource files so that they can get obtain version information from
* this file. Resource compilers don't like all the C stuff, like typedefs
* and procedure declarations, that occur below.
*/
#ifndef RC_INVOKED
#include "tk.h"
#include "itclInt.h"
#undef TCL_STORAGE_CLASS
#ifdef BUILD_itk
# define TCL_STORAGE_CLASS DLLEXPORT
#else
# ifdef USE_ITK_STUBS
# define TCL_STORAGE_CLASS
# else
# define TCL_STORAGE_CLASS DLLIMPORT
# endif
#endif
/*
* List of options in alphabetical order:
*/
typedef struct ItkOptList {
Tcl_HashTable *options; /* list containing the real options */
Tcl_HashEntry **list; /* gives ordering of options */
int len; /* number of entries in order list */
int max; /* maximum size of order list */
} ItkOptList;
/*
* List of options created in the class definition:
*/
typedef struct ItkClassOptTable {
Tcl_HashTable options; /* option storage with fast lookup */
ItkOptList order; /* gives ordering of options */
} ItkClassOptTable;
/*
* Each option created in the class definition:
*/
typedef struct ItkClassOption {
ItclMember *member; /* info about this option */
char *resName; /* resource name in X11 database */
char *resClass; /* resource class name in X11 database */
char *init; /* initial value for option */
} ItkClassOption;
#include "itkDecls.h"
/*
* This function is contained in the itkstub static library
*/
#ifdef USE_ITK_STUBS
TCL_EXTERNC CONST char *
Itk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
CONST char *version, int exact));
#else
#define Itk_InitStubs(interp, version, exact) \
Tcl_PkgRequire(interp, "Itk", version, exact)
#endif
/*
* Public functions that are not accessible via the stubs table.
*/
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#endif /* RC_INVOKED */
#endif /* ITK_H */
|
