ScilabXloop.c File Reference

#include <stdio.h>
#include <stdlib.h>
#include "wresource.h"
#include "wcommon.h"
#include "machine.h"
#include "Messages.h"
#include "Warnings.h"
#include "Errors.h"
#include "xscion.h"

Include dependency graph for ScilabXloop.c:

Go to the source code of this file.

Functions

int GetWITH_GUI (void)
int C2F() checkevts (int *i)
void TextMessage1 (int ctrlflag)
int C2F() sxevents ()
static void strip_blank (char *source)

Variables

TW textwin


Function Documentation

int C2F() checkevts ( int i  ) 

Definition at line 33 of file ScilabXloop.c.

00034 {
00035   
00036   #ifdef WITH_TK
00037   *i= Max(getINXscilab(),1);
00038   #else
00039   *i= getINXscilab();
00040   #endif
00041   return(0);
00042 }

int GetWITH_GUI ( void   ) 

TODO : comment

Returns:

Definition at line 297 of file inisci-c.c.

00298 {
00299         return WITH_GUI;
00300 }

static void strip_blank ( char *  source  )  [static]

Definition at line 92 of file ScilabXloop.c.

References p.

00094 {
00095   char *p;
00096   p = source;
00097   /* look for end of string */
00098   while (*p != '\0')
00099     p++;
00100   while (p != source)
00101     {
00102       p--;
00103       if (*p != ' ')
00104         break;
00105       *p = '\0';
00106     }
00107 }

int C2F() sxevents (  ) 

Definition at line 72 of file ScilabXloop.c.

00073 {
00074   if ( GetWITH_GUI() )
00075   {
00076 #ifdef WITH_TK
00077           if (getINXscilab() == 1 || BasicScilab == 0 )
00078 #else
00079           if (getINXscilab() == 1 )
00080 #endif
00081           {
00082                   TextMessage1 (1);
00083           }
00084   }
00085   return (0);
00086 }

void TextMessage1 ( int  ctrlflag  ) 

Definition at line 50 of file ScilabXloop.c.

References CtrlCHit(), flushTKEvents(), TclEventsLoop(), and textwin.

Referenced by ON_WND_GRAPH_WM_CLOSE(), ScilabDoOneEvent(), sxevents(), and TextMessage().

00051 {
00052   MSG msg;
00053 #ifdef WITH_TK
00054   flushTKEvents ();
00055 #endif
00056   while (PeekMessage (&msg, 0, 0, 0, PM_NOREMOVE))
00057     {
00058 #ifdef WITH_TK
00059       /* check for a tcl/tk event */
00060      if ( TclEventsLoop() ) continue ;
00061 #endif
00062       PeekMessage (&msg, 0, 0, 0, PM_REMOVE);
00063       TranslateMessage (&msg);
00064       DispatchMessage (&msg);
00065     }
00066   if (ctrlflag == 1) 
00067     {
00068       CtrlCHit (&textwin);
00069     }
00070 }

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

TW textwin

keeps information for the current graphic window

Definition at line 8 of file TextWindows.c.


Generated on Sun Mar 4 15:58:04 2007 for Scilab [trunk] by  doxygen 1.5.1