2
/* UI generator main routine */
3
/* Bertrand Guiheneuf, INRIA 1997 */
6
#include "C-LAB_Interf.h"
13
#include "TK_uicontrol.h"
27
Matrix *MOutputHandle;
32
sprintf(MyCommand, "set MyTmpBertrand [GetGcf];");
36
Tcl_Eval(TKinterp,MyCommand);
37
StrHandle = Tcl_GetVar(TKinterp, "MyTmpBertrand", 0);
38
Handle = (int)atoi(StrHandle);
40
MOutputHandle = MatrixCreate(1,1,"real");
41
OutputHandle = (double *)MatrixGetPr(MOutputHandle);
42
*OutputHandle = Handle;
44
ReturnParam(MOutputHandle);