diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-06-03 11:08:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-06-03 11:08:38 (GMT) |
| commit | 622180938c63060edf98112f7b99e35b4b2551ad (patch) | |
| tree | c79192f74a513c9e559f678cef64aeb06f6d1b3b /macosx/tkMacOSXEmbed.c | |
| parent | d962821b84a7745d3cc1a45c6e58e7192d2b764f (diff) | |
| download | tk-622180938c63060edf98112f7b99e35b4b2551ad.zip tk-622180938c63060edf98112f7b99e35b4b2551ad.tar.gz tk-622180938c63060edf98112f7b99e35b4b2551ad.tar.bz2 | |
Convert TkpTestembedCmd and TkpTesttextCmd to Tcl_Obj-based commands.
Diffstat (limited to 'macosx/tkMacOSXEmbed.c')
| -rw-r--r-- | macosx/tkMacOSXEmbed.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/macosx/tkMacOSXEmbed.c b/macosx/tkMacOSXEmbed.c index e2e05d2..1d66b82 100644 --- a/macosx/tkMacOSXEmbed.c +++ b/macosx/tkMacOSXEmbed.c @@ -563,15 +563,15 @@ int TkpTestembedCmd( ClientData clientData, /* Main window for application. */ Tcl_Interp *interp, /* Current interpreter. */ - int argc, /* Number of arguments. */ - const char **argv) /* Argument strings. */ + int objc, /* Number of arguments. */ + Tcl_Obj *const objv[]) /* Argument strings. */ { int all; Container *containerPtr; Tcl_DString dString; char buffer[50]; - if ((argc > 1) && (strcmp(argv[1], "all") == 0)) { + if ((objc > 1) && (strcmp(Tcl_GetString(objv[1]), "all") == 0)) { all = 1; } else { all = 0; |