model_server/gala/src/dis_cmds.cxx
//----------------------------------------------------------------------------------------------------
// <void>  <-  <name> <index>
//
// This command will remove text spin line with the spesified index.
//----------------------------------------------------------------------------------------------------
  <-   
This command will remove text spin line with the spesified index.
< - This command will remove text spin line with the spesified index .
int dis_gdTextSpinDeleteIndex(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->DeleteTextAt(line);
   spinner->MarkListDirty();
   return TCL_OK;
}
int dis_gdTextSpinDeleteIndex ( 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 -> DeleteTextAt ( line ) ; spinner -> MarkListDirty ( ) ; return TCL_OK ; }
<void>  <-  <name> <index>
This command will remove text spin line with the spesified index.
<void > < - <name > <index > This command will remove text spin line with the spesified index .