Import Tix 8.4.3.5 (as of svn r86089)

2017-05-22 16:16:49 -05:00
parent d239d63057
commit 80ba28babb
769 changed files with 136423 additions and 0 deletions
--- a/generic/tixError.c
+++ b/generic/tixError.c
@@ -0,0 +1,80 @@
+
+/*	$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;
+}