model_server/gala/src/dis_cmds.cxx
int  dis_gdTextSpinSelectByIndex(ClientData, Tcl_Interp* interp, int argc, char *argv[]) {
    if (argc != 3) {
	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[2]);
    if( line<0 || spinner->GetTextCount()<= line) {
	   Tcl_SetResult (interp, "passed line out of range", TCL_STATIC);
	   return TCL_ERROR;
    }
    spinner->SelectTextAt(line);
	spinner->MarkContentDirty();
    return TCL_OK;
}
//----------------------------------------------------------------------------------------------------
// <result>  <-  <name> <index>
//
// This command will set the line wich index passed into it as active line in spinner.
//-----------------------------------------------------------------------------------------------------
  <-   
This command will set the line wich index passed into it as active line in spinner.
< - This command will set the line wich index passed into it as active line in spinner .
int  dis_gdTextSpinSelectByIndex(ClientData, Tcl_Interp* interp, int argc, char *argv[]) {
    if (argc != 3) {
	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[2]);
    if( line<0 || spinner->GetTextCount()<= line) {
	   Tcl_SetResult (interp, "passed line out of range", TCL_STATIC);
	   return TCL_ERROR;
    }
    spinner->SelectTextAt(line);
	spinner->MarkContentDirty();
    return TCL_OK;
}
int dis_gdTextSpinSelectByIndex ( ClientData , Tcl_Interp * interp , int argc , char * argv [ ] ) { if ( argc != 3 ) { 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 [ 2 ] ) ; if ( line < 0 || spinner -> GetTextCount ( ) <= line ) { Tcl_SetResult ( interp , " " , TCL_STATIC ) ; return TCL_ERROR ; } spinner -> SelectTextAt ( line ) ; spinner -> MarkContentDirty ( ) ; return TCL_OK ; }
<result>  <-  <name> <index>
This command will set the line wich index passed into it as active line in spinner.
<result > < - <name > <index > This command will set the line wich index passed into it as active line in spinner .