Differences From Artifact [b857879a9c]:

• File init.c — part of check-in [31a81c2c47] at 2010-06-03 19:48:13 on branch trunk — [ tkimg-Bugs-3011001 ] Only support accessing tkImg procs through stub table implemented for base Issue #3011001 (user: nijtmans size: 4881)

To Artifact [1ac20e7a05]:

• File init.c — part of check-in [cd97d859bc] at 2010-06-28 13:23:34 on branch trunk — backport various ttkGenStubs.tcl improvements to genStubs.tcl (user: nijtmans size: 4860)

126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

 *----------------------------------------------------------------------------
 */

int
@CPACKAGE@_Init(
	Tcl_Interp *interp /* Interpreter to initialise. */
) {
	if (Tcl_InitStubs(interp, "8.3", 0) == NULL) {
		return TCL_ERROR;
	}
	if (Tk_InitStubs(interp, "8.3", 0) == NULL) {
		return TCL_ERROR;
	}
	if (Tkimg_InitStubs(interp, TKIMG_VERSION, 0) == NULL) {
		return TCL_ERROR;
	}

	MORE_INITIALIZATION;

	/*
	 * Register the new photo image type.

|


|


|

126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

 *----------------------------------------------------------------------------
 */

int
@CPACKAGE@_Init(
	Tcl_Interp *interp /* Interpreter to initialise. */
) {
	if (!Tcl_InitStubs(interp, "8.3", 0)) {
		return TCL_ERROR;
	}
	if (!Tk_InitStubs(interp, "8.3", 0)) {
		return TCL_ERROR;
	}
	if (!Tkimg_InitStubs(interp, TKIMG_VERSION, 0)) {
		return TCL_ERROR;
	}

	MORE_INITIALIZATION;

	/*
	 * Register the new photo image type.