---

ProgMeter.c

Go to the documentation of this file.

#include <tcl.h>
#include <tk.h>
#include <stdio.h>
#include <string.h>

extern Tcl_Interp* MainTclInterp;

int ProgMeter_Create(char *title)
{
    char tclstr[200];
    Tcl_Obj *tclcommand=NULL;
    int gaugenum;
    Tcl_Obj *objectresult=NULL;


    sprintf(tclstr, "gauge_gui_add \"%s\"",title);
    tclcommand = Tcl_NewStringObj(tclstr, -1);
/*    //if(Tcl_EvalObj(MainTclInterp, tclcommand,TCL_GLOBAL_ONLY) != TCL_OK ) { */
    if(Tcl_EvalObj(MainTclInterp, tclcommand) != TCL_OK ) {
        Tcl_BackgroundError(MainTclInterp);
        return 0;
    }
    
    objectresult = Tcl_GetObjResult(MainTclInterp);
    if (Tcl_GetIntFromObj(MainTclInterp, objectresult, &gaugenum) != TCL_OK) {
        Tcl_BackgroundError(MainTclInterp);
        return 0;    
    } else {
        return gaugenum;
    }
}



int ProgMeter_Update(int gaugenum, double value)
{
    char tclstr[200];
    Tcl_Obj *tclcommand=NULL;
    Tcl_Obj *objectresult=NULL;
    int cancelval;
  
    sprintf(tclstr, "gauge_gui_update %d %f",gaugenum,value);
    if( Tcl_Eval(MainTclInterp, tclstr) != TCL_OK ) {
        Tcl_BackgroundError(MainTclInterp);
        return -1;
    }

    objectresult = Tcl_GetObjResult(MainTclInterp);
    if (Tcl_GetIntFromObj(MainTclInterp, objectresult, &cancelval) != TCL_OK) {
        Tcl_BackgroundError(MainTclInterp);
        return -1;    
    } else {
        return cancelval;
    }

}


int ProgMeter_Destroy(int gaugenum)
{
    char tclstr[200];
  
    sprintf(tclstr, "gauge_gui_delete %d",gaugenum);
    if( Tcl_Eval(MainTclInterp, tclstr) != TCL_OK ) {
        Tcl_BackgroundError(MainTclInterp);
        return 0;
    } else {
        return 1;
    }
}

---