File returnval.patch of Package Source-Navigator
--- libgui/src/tclhelp.c
+++ libgui/src/tclhelp.c
@@ -547,6 +547,7 @@
{ Tcl_SetResult (interp, "Help not available", TCL_STATIC);
return TCL_ERROR;
}
+ return TCL_OK;
}
/* Implement the ide_help display command. */
@@ -560,6 +561,7 @@
{ Tcl_SetResult (interp, "Help not available", TCL_STATIC);
return TCL_ERROR;
}
+ return TCL_OK;
}
/* Initialize the help command structure. */
@@ -594,6 +596,7 @@
/* fork failed, error number is why */
else if (pidProcess == (-1))
{ return 0; }
+ return 1;
}
#endif /* ! _WIN32 */