00001 /*-----------------------------------------------------------------------------------*/ 00002 /* INRIA 2007 */ 00003 /* Allan CORNET */ 00004 /*-----------------------------------------------------------------------------------*/ 00005 #include "TerminateTclTk.h" 00006 /*-----------------------------------------------------------------------------------*/ 00007 #include "InitTclTk.h" 00008 /*-----------------------------------------------------------------------------------*/ 00009 BOOL TerminateTclTk(void) 00010 { 00011 #ifdef WITH_TK 00012 CloseTCLsci(); 00013 #endif 00014 return TRUE; 00015 } 00016 /*-----------------------------------------------------------------------------------*/
1.5.1