Scilab [trunk]: scilab/modules/tclsci/src/c/TclEvents.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA 2005 */
00003 /* Allan CORNET */
00004 /*-----------------------------------------------------------------------------------*/ 
00005 #include "TclEvents.h"
00006 extern int GetWITH_GUI(void);
00007 /*-----------------------------------------------------------------------------------*/ 
00008 void flushTKEvents(void)
00009 {
00010         if( GetWITH_GUI() ) 
00011         {
00012                 while (Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT)==1)
00013                 {
00014                 }
00015         }
00016 }
00017 /*-----------------------------------------------------------------------------------*/
00018 int tcl_check_one_event(void) 
00019 {
00020         int bRes=0;
00021 
00022         if( GetWITH_GUI() ) 
00023         {
00024                 bRes=Tcl_DoOneEvent ( TCL_DONT_WAIT);
00025         }
00026         return bRes;
00027 }
00028 /*-----------------------------------------------------------------------------------*/
00029 int TclEventsLoop(void)
00030 {
00031         return (Tcl_DoOneEvent (TCL_ALL_EVENTS | TCL_DONT_WAIT) == 1);
00032 }
00033 /*-----------------------------------------------------------------------------------*/