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
|
*** /usr/tmp/TclTk/blt2.4j/src/bltInit.c Wed Sep 22 22:32:04 1999
--- bltInit.c Thu Nov 4 13:48:54 1999
***************
*** 31,36 ****
--- 31,58 ----
static Tcl_MathProc MinMathProc, MaxMathProc;
#endif
+ /* Exclude commands not needed by TkDesk: */
+
+ #define NO_HTEXT
+ #define NO_GRAPH
+ #define NO_TABLE
+ #define NO_WINOP
+ #define NO_BITMAP
+ #define NO_DEBUG
+ #define NO_WATCH
+ #define NO_VECTOR
+ #define NO_SPLINE
+ #define NO_BELL
+ #define NO_CUTBUFFER
+ #define NO_TILEFRAME
+ #define NO_TILEBUTTON
+ #define NO_TILESCROLLBAR
+ #define NO_BITMAP
+ #define NO_EPS
+ #define NO_HIERBOX
+ #define NO_TABSET
+ #define NO_CONTAINER
+
static Tcl_AppInitProc *initProcArr[] =
{
#ifndef NO_GRAPH
***************
*** 216,222 ****
continue \n\
} \n\
set path [set $var] \n\
! if { [file readable [file join $path bltGraph.tcl]] } { \n\
set blt_library $path\n\
break \n\
} \n\
--- 238,244 ----
continue \n\
} \n\
set path [set $var] \n\
! if { [file readable [file join $path bltDnd.tcl]] } { \n\
set blt_library $path\n\
break \n\
} \n\
***************
*** 369,375 ****
--- 391,399 ----
argTypes[0] = argTypes[1] = TCL_EITHER;
Tcl_CreateMathFunc(interp, "min", 2, argTypes, MinMathProc,(ClientData)0);
Tcl_CreateMathFunc(interp, "max", 2, argTypes, MaxMathProc,(ClientData)0);
+ #ifndef NO_EPS
Blt_InitEpsCanvasItem(interp);
+ #endif
return TCL_OK;
}
***************
*** 415,421 ****
--- 439,447 ----
argTypes[0] = argTypes[1] = TCL_EITHER;
Tcl_CreateMathFunc(interp, "min", 2, argTypes, MinMathProc,(ClientData)0);
Tcl_CreateMathFunc(interp, "max", 2, argTypes, MaxMathProc,(ClientData)0);
+ #ifndef NO_EPS
Blt_InitEpsCanvasItem(interp);
+ #endif
return TCL_OK;
}
***************
*** 470,476 ****
--- 496,506 ----
Tcl_DStringAppend(&dString, specPtr->name, -1);
cmdPath = Tcl_DStringValue(&dString);
+ #if HAVE_NAMESPACES
cmdToken = Tcl_FindCommand(interp, cmdPath, (Tcl_Namespace *)NULL, 0);
+ #else
+ cmdToken = NULL;
+ #endif /* HAVE_NAMESPACES */
if (cmdToken != NULL) {
Tcl_DStringFree(&dString);
return cmdToken; /* Assume command was already initialized */
|
