Tk Img Extensions
Diff
Not logged in
Odie Home Timeline Branches Tags Tickets Wiki Login
Annotate Patch Side-by-side Diff
Tcl 2014 Conference, Portland/OR, US, Nov 10-14
Send your abstracts to tclconference@googlegroups.com by Sep 8.

Differences From Artifact [f1ca14bb3e]:

To Artifact [b857879a9c]:

︙
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

11
12
13
14
15
16
17











18
19
20
21
22


23
24



25
26
27
28
29
30
31








-
-
-
-
-
-
-
-
-
-
-





-
-
+
+
-
-
-









#include "tkimg.h"

#ifndef MORE_INITIALIZATION
#define MORE_INITIALIZATION /* Nothing */
#endif

#undef TCL_STORAGE_CLASS
#ifdef BUILD_%PACKAGE%
# define TCL_STORAGE_CLASS DLLEXPORT
#else
# ifdef USE_%PACKAGE_UP%_STUBS
#  define TCL_STORAGE_CLASS
# else
#  define TCL_STORAGE_CLASS DLLIMPORT
# endif
#endif

/*
 * Functions exported for package management.
 */


EXTERN int @CPACKAGE@_Init(Tcl_Interp *interp);
EXTERN int @CPACKAGE@_SafeInit(Tcl_Interp *interp);
extern DLLEXPORT int @CPACKAGE@_Init(Tcl_Interp *interp);
extern DLLEXPORT int @CPACKAGE@_SafeInit(Tcl_Interp *interp);

#undef  TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT

/*
 * Declarations of internal functions.
 */

static int ChnMatch(Tcl_Channel chan, const char *fileName,
	Tcl_Obj *format, int *widthPtr, int *heightPtr,	Tcl_Interp *interp);
︙
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168

126
127
128
129
130
131
132

133
134
135


136
137
138


139
140
141

142
143
144
145
146
147
148








-



-
-



-
-



-








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

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

	MORE_INITIALIZATION;

	/*
	 * Register the new photo image type.
	 */
︙