model_server/gala/src/controlObjects.cxx
// Get the string associated with a list item entry.
Get the string associated with a list item entry.
Get the string associated with a list item entry .
vchar* gdListItem::GetCellString(int row)
{
    gInit (gdListItem::GetCellString);
    show_interpreter_wait(-1);
    Tcl_Interp* interp = gdWidget::interp(); 
    char buffer[64];
    sprintf (buffer, "%d", row);
    Tcl_SetVar(interp, "Item", (char*)buffer, TCL_GLOBAL_ONLY);
    gString cmd;
    cmd.sprintf((vchar*)"global AskListItems;global Item;global %s;lindex $%s 1", GetTag(), GetTag());
    gala_eval(interp, (char*)(vchar*)cmd);
    cmd = (vchar*)Tcl_GetStringResult(interp);
    gala_eval(interp, (char*)(vchar*)cmd);
    show_interpreter_wait(-2);    
    return((vchar*)Tcl_GetStringResult(interp));
}
vchar * gdListItem :: GetCellString ( int row ) { gInit ( gdListItem :: GetCellString ) ; show_interpreter_wait ( -1 ) ; Tcl_Interp * interp = gdWidget :: interp ( ) ; char buffer [ 64 ] ; sprintf ( buffer , " " , row ) ; Tcl_SetVar ( interp , " " , ( char * ) buffer , TCL_GLOBAL_ONLY ) ; gString cmd ; cmd . sprintf ( ( vchar * ) " " , GetTag ( ) , GetTag ( ) ) ; gala_eval ( interp , ( char * ) ( vchar * ) cmd ) ; cmd = ( vchar * ) Tcl_GetStringResult ( interp ) ; gala_eval ( interp , ( char * ) ( vchar * ) cmd ) ; show_interpreter_wait ( -2 ) ; return ( ( vchar * ) Tcl_GetStringResult ( interp ) ) ; }
Get the string associated with a list item entry.
Get the string associated with a list item entry .
// Set the row number.