model_server/gala/src/dis_cmds.cxx
//-----------------------------------------------------------------------------------------------------
// <text>  <-  <name> 
//
// This function will return currently selected text string.
//-----------------------------------------------------------------------------------------------------
  <-  
This function will return currently selected text string.
< - This function will return currently selected text string .
int dis_gdTextSpinGetSelectedText(ClientData, Tcl_Interp* interp, int argc, char *argv[]) {
   if (argc != 2) {
	  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]);
   Tcl_SetResult (interp, spinner->GetCurrentText(), TCL_STATIC);
   return TCL_OK;
}
int dis_gdTextSpinGetSelectedText ( ClientData , Tcl_Interp * interp , int argc , char * argv [ ] ) { if ( argc != 2 ) { Tcl_SetResult ( interp , " " , TCL_STATIC ) ; return TCL_ERROR ; } gdTextSpinner * spinner = ( gdTextSpinner * ) dis_findItem ( interp , ( vchar * ) argv [ 1 ] ) ; if ( ! spinner ) TCL_EXECERR1 ( " " , argv [ 1 ] ) ; Tcl_SetResult ( interp , spinner -> GetCurrentText ( ) , TCL_STATIC ) ; return TCL_OK ; }
<text>  <-  <name>
This function will return currently selected text string.
<text > < - <name > This function will return currently selected text string .