import insight-2000-02-04 snapshot (2nd try)

1 files changed, 302 insertions, 0 deletions

diff --git a/tix/generic/tixGrSel.c b/tix/generic/tixGrSel.c
new file mode 100644
index 00000000000..9f45de68507
--- /dev/null
+++ b/tix/generic/tixGrSel.c
@@ -0,0 +1,302 @@
+/* 
+ * tixGrSel.c --
+ *
+ *	This module handles the selection
+ *
+ * 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>
+#include <tixDef.h>
+#include <tixGrid.h>
+
+EXTERN TIX_DECLARE_SUBCMD(Tix_GrSelection);
+static TIX_DECLARE_SUBCMD(Tix_GrSelIncludes);
+static TIX_DECLARE_SUBCMD(Tix_GrSelModify);
+
+static int		Tix_GrSelIncludes _ANSI_ARGS_((ClientData clientData,
+			    Tcl_Interp *interp, int argc, char **argv));
+static void		Tix_GrAdjustSelection _ANSI_ARGS_((
+			    WidgetPtr wPtr, SelectBlock * sbPtr));
+static void		Tix_GrMergeSelection _ANSI_ARGS_((
+			    WidgetPtr wPtr, SelectBlock * sbPtr));
+static int 		Intersect _ANSI_ARGS_((SelectBlock * s1,
+			    SelectBlock * s2));
+static int 		Include _ANSI_ARGS_((SelectBlock * s1,
+			    SelectBlock * s2));
+
+int
+Tix_GrSelection(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    static Tix_SubCmdInfo subCmdInfo[] = {
+	{TIX_DEFAULT_LEN, "adjust",   2, 4, Tix_GrSelModify,
+	   "x1 y1 ?x2 y2?"},
+	{TIX_DEFAULT_LEN, "clear",    2, 4, Tix_GrSelModify,
+	   "x1 y1 ?x2 y2?"},
+	{TIX_DEFAULT_LEN, "includes", 2, 4, Tix_GrSelIncludes,
+	   "x1 y1 ?x2 y2?"},
+	{TIX_DEFAULT_LEN, "set",      2, 4, Tix_GrSelModify,
+	   "x1 y1 ?x2 y2?"},
+	{TIX_DEFAULT_LEN, "toggle",   2, 4, Tix_GrSelModify,
+	   "x1 y1 ?x2 y2?"},
+    };
+    static Tix_CmdInfo cmdInfo = {
+	Tix_ArraySize(subCmdInfo), 1, TIX_VAR_ARGS, "?option? ?arg ...?",
+    };
+
+    return Tix_HandleSubCmds(&cmdInfo, subCmdInfo, clientData,
+	interp, argc+1, argv-1);
+}
+
+static int
+Tix_GrSelIncludes(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+#if 0
+    WidgetPtr wPtr = (WidgetPtr) clientData;
+#endif
+    return TCL_OK;
+}
+
+static int Intersect(s1, s2)
+    SelectBlock * s1;
+    SelectBlock * s2;
+{
+    return 0;
+}
+
+static int Include(s1, s2)
+    SelectBlock * s1;
+    SelectBlock * s2;
+{
+    return 0;
+}
+
+static void
+Tix_GrMergeSelection(wPtr, sbPtr)
+    WidgetPtr wPtr;
+    SelectBlock * sbPtr;
+{
+    Tix_ListIterator li;
+
+    switch (sbPtr->type) {
+      case TIX_GR_SET:
+      case TIX_GR_CLEAR:
+	if (sbPtr->range[0][0] == 0 &&
+	    sbPtr->range[1][0] == 0 &&
+	    sbPtr->range[0][1] == TIX_GR_MAX &&
+	    sbPtr->range[1][1] == TIX_GR_MAX) {
+
+	    /* clear everything else from the list
+	     */
+	    Tix_SimpleListIteratorInit(&li);
+
+	    for (Tix_SimpleListStart(&wPtr->selList, &li);
+		 !Tix_SimpleListDone(&li);
+		 Tix_SimpleListNext (&wPtr->selList, &li)) {
+
+		SelectBlock *ptr = (SelectBlock *)li.curr;
+		Tix_SimpleListDelete(&wPtr->selList, &li);
+		ckfree((char*)ptr);
+	    }
+	}
+	if (sbPtr->type == TIX_GR_SET) {
+	    Tix_SimpleListAppend(&wPtr->selList, (char*)sbPtr, 0);
+	}
+	goto done;
+    }
+
+#if 0
+
+    switch (sbPtr->type) {
+        case TIX_GR_TOGGLE: {
+        }
+	break;
+        case TIX_GR_SET: {
+	  Tix_SimpleListAppend(&wPtr->selList, (char*)sbPtr, 0);
+        }
+        break;
+        case TIX_GR_CLEAR: {
+	    Tix_SimpleListIteratorInit(&li);
+
+	    for (Tix_SimpleListStart(&wPtr->selList, &li);
+		 !Tix_SimpleListDone(&li);
+		 Tix_SimpleListNext (&wPtr->selList, &li)) {
+	    }
+        }
+	  
+    }
+#else
+
+    Tix_SimpleListAppend(&wPtr->selList, (char*)sbPtr, 0);
+
+#endif
+
+  done:
+    Tix_GrAddChangedRect(wPtr, sbPtr->range, 0);
+}
+
+static void
+Tix_GrAdjustSelection(wPtr, sbPtr)
+    WidgetPtr wPtr;
+    SelectBlock * sbPtr;
+{
+    int changed[2][2];
+    SelectBlock * current;
+
+    current = (SelectBlock*)wPtr->selList.tail;
+
+    /*
+     * The changed region is the union of the area of the current selection
+     * and the adjusted selection.
+     */
+    changed[TIX_X][0] = sbPtr->range[TIX_X][0];
+    changed[TIX_X][1] = sbPtr->range[TIX_X][1];
+    changed[TIX_Y][0] = sbPtr->range[TIX_Y][0];
+    changed[TIX_Y][1] = sbPtr->range[TIX_Y][1];
+
+    if (changed[TIX_X][0] > current->range[TIX_X][0]) {
+	changed[TIX_X][0] = current->range[TIX_X][0];
+    }
+    if (changed[TIX_X][1] < current->range[TIX_X][1]) {
+	changed[TIX_X][1] = current->range[TIX_X][1];
+    }
+    if (changed[TIX_Y][0] > current->range[TIX_Y][0]) {
+	changed[TIX_Y][0] = current->range[TIX_Y][0];
+    }
+    if (changed[TIX_Y][1] < current->range[TIX_Y][1]) {
+	changed[TIX_Y][1] = current->range[TIX_Y][1];
+    }
+
+    /* Adjust the current selection according to sbPtr */
+    current->range[TIX_X][0] = sbPtr->range[TIX_X][0];
+    current->range[TIX_X][1] = sbPtr->range[TIX_X][1];
+    current->range[TIX_Y][0] = sbPtr->range[TIX_Y][0];
+    current->range[TIX_Y][1] = sbPtr->range[TIX_Y][1];
+
+    /* Set the changed area */
+    Tix_GrAddChangedRect(wPtr, changed, 0);
+
+    /* sbPtr is no longer needed */
+    ckfree((char*)sbPtr);
+}
+
+static int
+Tix_GrSelModify(clientData, interp, argc, argv)
+    ClientData clientData;
+    Tcl_Interp *interp;		/* Current interpreter. */
+    int argc;			/* Number of arguments. */
+    char **argv;		/* Argument strings. */
+{
+    WidgetPtr wPtr = (WidgetPtr) clientData;
+    int type, adjust = 0;
+    SelectBlock * sbPtr = NULL;
+    int tmp;
+
+    if (argc != 2 && argc != 4) {
+	return Tix_ArgcError(interp, argc+2, argv-2, 2, "x1 y1 ?x2 y2?");
+    }
+
+    /*
+     * (1) find out the type of operation.
+     */
+    if (argv[-1][0] == 'a') {
+	if (wPtr->selList.numItems <= 0) {
+	    /*
+	     * There is nothing in the selection list to adjust!
+	     */
+	    Tcl_AppendResult(interp, "selection list is empty", NULL);
+	    return TCL_ERROR;
+	}
+	adjust = 1;
+    }
+    else if (argv[-1][0] == 'c') {
+	type = TIX_GR_CLEAR;
+    }
+    else if (argv[-1][0] == 's') {
+	type = TIX_GR_SET;
+    }
+    else {
+	type = TIX_GR_TOGGLE;
+    }
+
+    sbPtr = (SelectBlock*)ckalloc(sizeof(SelectBlock));
+    sbPtr->type = type;
+
+    if (Tcl_GetInt(interp, argv[0], &sbPtr->range[0][0]) != TCL_OK) {
+	goto error;
+    }
+    if (Tcl_GetInt(interp, argv[1], &sbPtr->range[1][0]) != TCL_OK) {
+	goto error;
+    }
+    if (argc == 4) {
+	if (Tcl_GetInt(interp, argv[2], &sbPtr->range[0][1]) != TCL_OK) {
+	    if (strcmp(argv[2], "max") == 0) {
+		Tcl_ResetResult(interp);
+		sbPtr->range[0][1] = TIX_GR_MAX;
+	    } else {
+		goto error;
+	    }
+	}
+	if (Tcl_GetInt(interp, argv[3], &sbPtr->range[1][1]) != TCL_OK) {
+	    if (strcmp(argv[3], "max") == 0) {
+		Tcl_ResetResult(interp);
+		sbPtr->range[1][1] = TIX_GR_MAX;
+	    } else {
+		goto error;
+	    }
+	}
+    } else {
+	sbPtr->range[0][1] = sbPtr->range[0][0];
+	sbPtr->range[1][1] = sbPtr->range[1][0];
+    }
+
+    if (wPtr->selectUnit != tixRowUid) {
+	if (sbPtr->range[0][0] > sbPtr->range[0][1]) {
+	    tmp = sbPtr->range[0][1];
+	    sbPtr->range[0][1] = sbPtr->range[0][0]; 
+	    sbPtr->range[0][0] = tmp;
+	}
+    } else {
+	sbPtr->range[0][0] = 0;
+	sbPtr->range[0][1] = TIX_GR_MAX;
+    }
+
+    if (wPtr->selectUnit != tixColumnUid) {
+	if (sbPtr->range[1][0] > sbPtr->range[1][1]) {
+	    tmp = sbPtr->range[1][1];
+	    sbPtr->range[1][1] = sbPtr->range[1][0]; 
+	    sbPtr->range[1][0] = tmp;
+	}
+    } else {
+	sbPtr->range[1][0] = 0;
+	sbPtr->range[1][1] = TIX_GR_MAX;
+    }
+
+    if (adjust) {
+	Tix_GrAdjustSelection(wPtr, sbPtr);
+	sbPtr = NULL;
+    } else {
+	Tix_GrMergeSelection(wPtr, sbPtr);
+    }
+    wPtr->toComputeSel = 1;
+    return TCL_OK;
+
+  error:
+    if (sbPtr) {
+	ckfree((char*)sbPtr);
+    }
+    return TCL_ERROR;
+}