blob: c96f61930c0e344311a785aa459848376664f9c3 (
plain)
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
|
/*
* ------------------------------------------------------------------------
* 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
/*
* 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 "itclInt.h"
#include "tk.h"
#ifdef BUILD_itk
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#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
CONST char * Itk_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
char *version, int 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 */
|
