OLD | NEW |
1 /* | 1 /* |
2 ** 2006 June 13 | 2 ** 2006 June 13 |
3 ** | 3 ** |
4 ** The author disclaims copyright to this source code. In place of | 4 ** The author disclaims copyright to this source code. In place of |
5 ** a legal notice, here is a blessing: | 5 ** a legal notice, here is a blessing: |
6 ** | 6 ** |
7 ** May you do good and not evil. | 7 ** May you do good and not evil. |
8 ** May you find forgiveness for yourself and forgive others. | 8 ** May you find forgiveness for yourself and forgive others. |
9 ** May you share freely, never taking more than you give. | 9 ** May you share freely, never taking more than you give. |
10 ** | 10 ** |
(...skipping 312 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
323 { "register_tclvar_module", register_tclvar_module, 0 }, | 323 { "register_tclvar_module", register_tclvar_module, 0 }, |
324 }; | 324 }; |
325 int i; | 325 int i; |
326 for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){ | 326 for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){ |
327 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, | 327 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, |
328 aObjCmd[i].xProc, aObjCmd[i].clientData, 0); | 328 aObjCmd[i].xProc, aObjCmd[i].clientData, 0); |
329 } | 329 } |
330 #endif | 330 #endif |
331 return TCL_OK; | 331 return TCL_OK; |
332 } | 332 } |
OLD | NEW |