model_server/gala/src/dis_cmds.cxx
//---------------------------------------------------------------------------------------------------
// <void>  <-  <name> <text> <index>
// 
// This function will change text at the spesified index
//---------------------------------------------------------------------------------------------------
  <-    
This function will change text at the spesified index
< - This function will change text at the spesified index
int dis_gdTextSpinChangeText(ClientData, Tcl_Interp* interp, int argc, char *argv[]) {
    if (argc != 4) {
	Tcl_SetResult (interp, "wrong number of arguments", TCL_STATIC);
	return TCL_ERROR;
    }
    gdTextSpinner *spinner = (gdTextSpinner *)dis_findItem(interp, (vchar*) argv[1]);
    if(!spinner)  TCL_EXECERR1 ("Text spinner was not found", argv[1]);
    int line = atoi(argv[3]);
    if( line<0 || spinner->GetTextCount()<= line) {
	Tcl_SetResult (interp, "passed line out of range", TCL_STATIC);
	return TCL_ERROR;
    }
    spinner->SetTextAt((unsigned char *)argv[2],line);
	spinner->MarkListDirty();
    return TCL_OK;
}
int dis_gdTextSpinChangeText ( ClientData , Tcl_Interp * interp , int argc , char * argv [ ] ) { if ( argc != 4 ) { Tcl_SetResult ( interp , " " , TCL_STATIC ) ; return TCL_ERROR ; } gdTextSpinner * spinner = ( gdTextSpinner * ) dis_findItem ( interp , ( vchar * ) argv [ 1 ] ) ; if ( ! spinner ) TCL_EXECERR1 ( " " , argv [ 1 ] ) ; int line = atoi ( argv [ 3 ] ) ; if ( line < 0 || spinner -> GetTextCount ( ) <= line ) { Tcl_SetResult ( interp , " " , TCL_STATIC ) ; return TCL_ERROR ; } spinner -> SetTextAt ( ( unsigned char * ) argv [ 2 ] , line ) ; spinner -> MarkListDirty ( ) ; return TCL_OK ; }
<void>  <-  <name> <text> <index>
This function will change text at the spesified index
<void > < - <name > <text > <index > This function will change text at the spesified index