Mirrors/zint
1
0
Fork 0
mirror of https://git.code.sf.net/p/zint/code synced 2025-12-20 03:17:12 +00:00
Code Issues Projects Releases Wiki Activity

Add zint_tcl project files

Browse Source
This commit is contained in:
Harald Oehlmann
2025-01-21 16:34:09 +01:00
parent 1456af0e8b
commit e8ce194152
3 changed files with 497 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
backend_tcl/zint.c
View File

@@ -673,6 +673,8 @@ DLLEXPORT int Zint_Init (Tcl_Interp *interp)
*tkFlagPtr = 0;
Tcl_CallWhenDeleted(interp, InterpCleanupProc, (ClientData)tkFlagPtr);
/*------------------------------------------------------------------------*/
/* FIXME: to unload even on command rename, capture the tolken, put it in */
*/ the client data and use it to delete the command. */
Tcl_CreateObjCommand(interp, "zint", ZintCmd, (ClientData)tkFlagPtr,
(Tcl_CmdDeleteProc *)NULL);
Tcl_PkgProvide (interp, "zint", version_string);