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
|
$NetBSD: patch-aj,v 1.1.1.1 2002/07/03 09:27:01 dmcmahill Exp $
--- libdesk/tixImgXpm.c.orig Sun Nov 14 16:07:47 1999
+++ libdesk/tixImgXpm.c Sun Sep 2 22:41:43 2001
@@ -156,7 +156,7 @@
*/
static int ImgXpmCreate _ANSI_ARGS_((Tcl_Interp *interp,
- char *name, int argc, char **argv,
+ char *name, int objc, Tcl_Obj *CONST objv[],
Tk_ImageType *typePtr, Tk_ImageMaster master,
ClientData *clientDataPtr));
static ClientData ImgXpmGet _ANSI_ARGS_((Tk_Window tkwin,
@@ -176,7 +176,7 @@
ImgXpmDisplay, /* displayProc */
ImgXpmFree, /* freeProc */
ImgXpmDelete, /* deleteProc */
- (Tk_ImageType *) NULL /* nextPtr */
+ /* (Tk_ImageType *) NULL *//* nextPtr */
};
/*
@@ -241,12 +241,12 @@
*----------------------------------------------------------------------
*/
static int
-ImgXpmCreate(interp, name, argc, argv, typePtr, master, clientDataPtr)
+ImgXpmCreate(interp, name, objc, objv, typePtr, master, clientDataPtr)
Tcl_Interp *interp; /* Interpreter for application containing
* image. */
char *name; /* Name to use for image. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings for options (doesn't
+ int objc; /* Number of arguments. */
+ Tcl_Obj *CONST objv[]; /* Argument strings for options (doesn't
* include image name or type). */
Tk_ImageType *typePtr; /* Pointer to our type record (not used). */
Tk_ImageMaster master; /* Token for image, to be used by us in
@@ -256,6 +256,13 @@
{
PixmapMaster *masterPtr;
+ int i;
+ char **argv = (char **) Tcl_Alloc(objc * sizeof(char*));
+ for (i=0; i < objc; i++) {
+
+ argv[i] = Tcl_GetString(objv[i]);
+ }
+
masterPtr = (PixmapMaster *) ckalloc(sizeof(PixmapMaster));
masterPtr->tkMaster = master;
masterPtr->interp = interp;
@@ -269,10 +276,11 @@
masterPtr->isDataAlloced = 0;
masterPtr->instancePtr = NULL;
- if (ImgXpmConfigureMaster(masterPtr, argc, argv, 0) != TCL_OK) {
+ if (ImgXpmConfigureMaster(masterPtr, objc, argv, 0) != TCL_OK) {
ImgXpmDelete((ClientData) masterPtr);
return TCL_ERROR;
}
+ Tcl_Free((char *) argv);
*clientDataPtr = (ClientData) masterPtr;
return TCL_OK;
}
|