81 lines
2.0 KiB
C
81 lines
2.0 KiB
C
|
|
/* $Id: tixError.c,v 1.2 2004/03/28 02:44:56 hobbs Exp $ */
|
|
|
|
/*
|
|
* tixError.c --
|
|
*
|
|
* Implements error handlers for Tix.
|
|
*
|
|
* Copyright (c) 1996, Expert Interface Technologies
|
|
*
|
|
* See the file "license.terms" for information on usage and redistribution
|
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
*
|
|
*/
|
|
|
|
#include <tixPort.h>
|
|
#include <tixInt.h>
|
|
|
|
int Tix_ArgcError(interp, argc, argv, prefixCount, message)
|
|
Tcl_Interp * interp;
|
|
int argc;
|
|
CONST84 char ** argv;
|
|
int prefixCount;
|
|
CONST84 char * message;
|
|
{
|
|
int i;
|
|
|
|
Tcl_AppendResult(interp, "wrong # of arguments, should be \"",(char*)NULL);
|
|
|
|
for (i=0; i<prefixCount && i<argc; i++) {
|
|
Tcl_AppendResult(interp, argv[i], " ", (char*)NULL);
|
|
}
|
|
|
|
Tcl_AppendResult(interp, message, "\".", (char*)NULL);
|
|
|
|
return TCL_ERROR;
|
|
}
|
|
|
|
int Tix_ValueMissingError(interp, spec)
|
|
Tcl_Interp * interp;
|
|
CONST84 char * spec;
|
|
{
|
|
Tcl_AppendResult(interp, "value for \"", spec,
|
|
"\" missing", (char*)NULL);
|
|
return TCL_ERROR;
|
|
}
|
|
|
|
|
|
/*----------------------------------------------------------------------
|
|
* Tix_UnknownPublicMethodError --
|
|
*
|
|
*
|
|
* ToDo: sort the list of commands.
|
|
*----------------------------------------------------------------------
|
|
*/
|
|
int Tix_UnknownPublicMethodError(interp, cPtr, widRec, method)
|
|
Tcl_Interp * interp;
|
|
TixClassRecord * cPtr;
|
|
CONST84 char * widRec;
|
|
CONST84 char * method;
|
|
{
|
|
int i;
|
|
CONST84 char * lead = "";
|
|
|
|
Tcl_AppendResult(interp, "unknown option \"", method,
|
|
"\": must be ",
|
|
(char*)NULL);
|
|
|
|
for (i=0; i<cPtr->nMethods-1; i++) {
|
|
Tcl_AppendResult(interp, lead, cPtr->methods[i], (char*)NULL);
|
|
lead = ", ";
|
|
}
|
|
if (cPtr->nMethods>1) {
|
|
Tcl_AppendResult(interp, " or ", (char*)NULL);
|
|
}
|
|
if (cPtr->nMethods>0) {
|
|
Tcl_AppendResult(interp, cPtr->methods[i], (char*)NULL);
|
|
}
|
|
return TCL_ERROR;
|
|
}
|