
/*	$Id: tixFormMisc.c,v 1.1.1.1 2000/05/17 11:08:41 idiscovery Exp $	*/

/*
 * tixFormMisc.c --
 *
 *	Implements the tixForm geometry manager, which has similar
 *	capability as the Motif Form geometry manager. Please
 *	refer to the documentation for the use of tixForm.
 *
 * 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 "tix.h"
#include "tixForm.h"

/*
 * SubCommands of the tixForm command.
 */
TIX_DECLARE_SUBCMD(TixFm_Info);

static void 		AttachInfo _ANSI_ARGS_((Tcl_Interp * interp,
			    FormInfo * clientPtr, int axis, int which));
static int		ConfigureAttachment _ANSI_ARGS_((FormInfo *clientPtr,
			    Tk_Window topLevel, Tcl_Interp* interp,
			    int axis, int which, Tcl_Obj * value));
static int		ConfigureFill _ANSI_ARGS_((
			    FormInfo *clientPtr, Tk_Window tkwin,
			    Tcl_Interp* interp, char *value));
static int		ConfigurePadding _ANSI_ARGS_((
			    FormInfo *clientPtr, Tk_Window tkwin,
			    Tcl_Interp* interp, int axis, int which,
			    char *value));
static int		ConfigureSpring _ANSI_ARGS_((FormInfo *clientPtr,
			    Tk_Window topLevel, Tcl_Interp* interp,
			    int axis, int which, Tcl_Obj * value));


/*----------------------------------------------------------------------
 * TixFm_Info --
 *
 *	Return the information about the attachment of a client window
 *----------------------------------------------------------------------
 */
int TixFm_Info(clientData, interp, argc, objv)
    ClientData clientData;	/* Main window associated with
				 * interpreter. */
    Tcl_Interp *interp;		/* Current interpreter. */
    int argc;			/* Number of arguments. */
    Tcl_Obj *CONST *objv;		/* Argument strings. */
{
    Tk_Window topLevel = (Tk_Window) clientData;
    FormInfo * clientPtr;
    char buff[256];
    int i,j;
    static char *sideNames[2][2] = {
	{"-left", "-right"},
	{"-top", "-bottom"}
    };
    static char *padNames[2][2] = {
	{"-padleft", "-padright"},
	{"-padtop", "-padbottom"}
    };

    clientPtr = TixFm_FindClientPtrByName(interp, Tcl_GetString(objv[0]), topLevel);
    if (clientPtr == NULL) {
	return TCL_ERROR;
    }

    if (argc == 2) {
	/* user wants some specific info
	 */

	for (i=0; i<2; i++) {
	    for (j=0; j<2; j++) {
		/* Do you want to know attachment? */
		if (strcmp(Tcl_GetString(objv[1]), sideNames[i][j]) == 0) {
		    AttachInfo(interp, clientPtr, i, j);
		    return TCL_OK;
		}

		/* Do you want to know padding? */
		if (strcmp(Tcl_GetString(objv[1]), padNames[i][j]) == 0) {
		    Tcl_SetIntObj(Tcl_GetObjResult(interp),clientPtr->pad[i][j]);
		    return TCL_OK;
		}
	    }
	}
	Tcl_AppendResult(interp, "Unknown option \"", Tcl_GetString(objv[1]), "\"", NULL);
	return TCL_ERROR;
    }

    /* Otherwise, give full info */

    for (i=0; i<2; i++) {
	for (j=0; j<2; j++) {
	    /* The information about attachment */
	    Tcl_AppendElement(interp,sideNames[i][j]);
	    AttachInfo(interp, clientPtr, i, j);

	    /* The information about padding */
	    Tcl_AppendElement(interp, padNames[i][j]);
	    sprintf(buff, "%d", clientPtr->pad[i][j]);
	    Tcl_IntResults(interp, 1, 1, clientPtr->pad[i][j]);
	}
    }
    return TCL_OK;
}

static void AttachInfo(interp, clientPtr, axis, which)
    Tcl_Interp * interp;
    FormInfo * clientPtr;
    int axis;
    int which;
{
    char buff[256];

    switch(clientPtr->attType[axis][which]) {
      case ATT_NONE:
	Tcl_AppendElement(interp, "none");
	break;

      case ATT_GRID:
	sprintf(buff, "{%%%d %d}", clientPtr->att[axis][which].grid,
	    clientPtr->off[axis][which]);
	Tcl_AppendResult(interp, buff, " ", NULL);
	break;

      case ATT_OPPOSITE:
	sprintf(buff, "%d", clientPtr->off[axis][which]);
	Tcl_AppendResult(interp, "{",
	    Tk_PathName(clientPtr->att[axis][which].widget->tkwin),
	    " ", buff, "} ", NULL);
	break;

      case ATT_PARALLEL:
	sprintf(buff, "%d", clientPtr->off[axis][which]);
	Tcl_AppendResult(interp, "{&",
	    Tk_PathName(clientPtr->att[axis][which].widget->tkwin),
	    " ", buff, "} ", NULL);
	break;
    }
}

/*----------------------------------------------------------------------
 * Form Parameter Configuration
 *
 *----------------------------------------------------------------------
 */
static int ConfigureAttachment(clientPtr, topLevel, interp, axis, which, avalue)
    FormInfo *clientPtr;
    Tk_Window topLevel;
    Tcl_Interp* interp;
    int axis, which;
    Tcl_Obj * avalue;
{
    char *value = Tcl_GetString(avalue);
    Tk_Window tkwin;
    FormInfo * attWidget;
    int code = TCL_OK;
    int offset;
    int grid;
    int argc;
    Tcl_Obj **objv;
    int delta = 0;

    if (Tcl_ListObjGetElements(interp, avalue, &argc, &objv) != TCL_OK) {
	return TCL_ERROR;
    }

    switch (Tcl_GetString(objv[0])[0]) {
      case '#':		/* Attached to grid */
      case '%': 	/* Attached to percent (aka grid) */
	{Tcl_Obj *temp = Tcl_NewStringObj(Tcl_GetString(objv[0])+1,-1);
	 if (Tcl_GetIntFromObj(interp,temp,&grid) != TCL_OK) {
	    Tcl_DecrRefCount(temp);
	    goto error;
	 }
	clientPtr->attType[axis][which]   = ATT_GRID;
	clientPtr->att[axis][which].grid  = grid;
	Tcl_DecrRefCount(temp);
	}
	break;

      case '&': 		/* Attached to parallel widget */
	if (argc < 2)
	   goto malformed;
	tkwin = Tk_NameToWindow(interp, Tcl_GetString(objv[++delta]), topLevel);

	if (tkwin != NULL) {
	    if (Tk_IsTopLevel(tkwin)) {
		Tcl_AppendResult(interp, "can't attach to \"", Tcl_GetString(objv[1]),
	    	    "\": it's a top-level window",          NULL);
		goto error;
	    }
	    attWidget = TixFm_GetFormInfo(tkwin, 1);
	    TixFm_AddToMaster(clientPtr->master, attWidget);

	    clientPtr->attType[axis][which]    = ATT_PARALLEL;
	    clientPtr->att[axis][which].widget = attWidget;
	} else {
	    goto error;
	}
	break;

      case '.': 		/* Attach to opposite widget */
	tkwin = Tk_NameToWindow(interp, Tcl_GetString(objv[0]), topLevel);

	if (tkwin != NULL) {
	    if (Tk_IsTopLevel(tkwin)) {
		Tcl_AppendResult(interp, "can't attach to \"", value,
	    	    "\": it's a top-level window",          NULL);
		goto error;
	    }
	    attWidget = TixFm_GetFormInfo(tkwin, 1);
	    TixFm_AddToMaster(clientPtr->master, attWidget);

	    clientPtr->attType[axis][which]    = ATT_OPPOSITE;
	    clientPtr->att[axis][which].widget = attWidget;
	} else {
	    goto error;
	}
	break;

      case 'n':		/* none */
	if (argc == 1 && strcmp(Tcl_GetString(objv[0]), "none") == 0) {
	    clientPtr->attType[axis][which]    = ATT_NONE;
	    goto done;
	} else {
	    goto malformed;
	}
	break;

      default:		/* Check if is attached to pixel */
	/* If there is only one value, this can be the offset with implicit
	 * anchor point 0% or max_grid%
	 */
	if (argc != 1) {
	    goto malformed;
	}
	if (Tk_GetPixels(interp, topLevel, Tcl_GetString(objv[0]), &offset) != TCL_OK) {
	    goto error;
	}

	clientPtr->attType[axis][which]      = ATT_GRID;
	clientPtr->off    [axis][which]      = offset;
	if (offset < 0 || (offset == 0 && strcmp(Tcl_GetString(objv[0]), "-0") ==0)) {
	    clientPtr->att[axis][which].grid = clientPtr->master->grids[axis];
	} else {
	    clientPtr->att[axis][which].grid = 0;
	}

	goto done;	/* We have already gotten both anchor and offset */
    }

    if (argc  == 2+delta) {
	if (Tk_GetPixels(interp, topLevel, Tcl_GetString(objv[1+delta]), &offset) != TCL_OK) {
	    goto error;
	}
    	clientPtr->off[axis][which] = offset;
    } else {
	clientPtr->off[axis][which] = 0;
	if (argc != 1+delta) {
     malformed:
	    Tcl_AppendResult(interp, "Malformed attachment value \"", value,
		"\"", NULL);
     error:
	    code = TCL_ERROR;
	    goto done;
	}
    }

  done:
    if (code == TCL_ERROR) {
	clientPtr->attType[axis][which] = ATT_NONE;
	clientPtr->off[axis][which] = 0;
    }
    return code;
}

static int ConfigurePadding(clientPtr, tkwin, interp, axis, which, value)
    FormInfo *clientPtr;
    Tk_Window tkwin;
    Tcl_Interp* interp;
    int axis, which;
    char *value;
{
    int p_value;

    if (Tk_GetPixels(interp, tkwin, value, &p_value) != TCL_OK) {
	return TCL_ERROR;
    }
    else {
	clientPtr->pad[axis][which] = p_value;
	return TCL_OK;
    }
}

static int ConfigureFill(clientPtr, tkwin, interp, value)
    FormInfo *clientPtr;
    Tk_Window tkwin;
    Tcl_Interp* interp;
    char *value;
{
    size_t len = strlen(value);

    if (strncmp(value, "x", len) == 0) {
	clientPtr->fill[AXIS_X] = 1;
	clientPtr->fill[AXIS_Y] = 0;
    }
    else if (strncmp(value, "y", len) == 0) {
	clientPtr->fill[AXIS_X] = 0;
	clientPtr->fill[AXIS_Y] = 1;
    }
    else if (strncmp(value, "both", len) == 0) {
	clientPtr->fill[AXIS_X] = 1;
	clientPtr->fill[AXIS_Y] = 1;
    }
    else if (strncmp(value, "none", len) == 0) {
	clientPtr->fill[AXIS_X] = 0;
	clientPtr->fill[AXIS_Y] = 0;
    }
    else {
	Tcl_AppendResult(interp, "bad fill style \"", value,
	    "\": must be none, x, y, or both", NULL);
	return TCL_ERROR;
    }

    return TCL_OK;
}

static int ConfigureSpring(clientPtr, topLevel, interp, axis, which, value)
    FormInfo *clientPtr;
    Tk_Window topLevel;
    Tcl_Interp* interp;
    int axis, which;
    Tcl_Obj * value;
{
    int         strength;
    int		i = axis, j = which;

    if (Tcl_GetIntFromObj(interp, value, &strength) != TCL_OK) {
	return TCL_ERROR;
    }

    clientPtr->spring[i][j] = strength;

    if (clientPtr->attType[i][j] == ATT_OPPOSITE) {
	FormInfo * oppo;

	oppo = clientPtr->att[i][j].widget;
	oppo->spring[i][!j]  = strength;

	if (strength != 0 && clientPtr->strWidget[i][j] == NULL) {
	    clientPtr->strWidget[i][j] = oppo;

	    if (oppo->strWidget[i][!j] != clientPtr) {
		if (oppo->strWidget[i][!j] != NULL) {
		    oppo->strWidget[i][!j]->strWidget[i][j] = NULL;
		    oppo->strWidget[i][!j]->spring[i][j]  = 0;
		}
	    }
	    oppo->strWidget[i][!j] = clientPtr;
	}
    }

    return TCL_OK;
}

int TixFm_Configure(clientPtr, topLevel, interp, argc, objv)
    FormInfo *clientPtr;
    Tk_Window topLevel;
    Tcl_Interp* interp;
    int argc;
    Tcl_Obj *CONST *objv;
{
    int i, flag, value;

    for (i=0; i< argc; i+=2) {
	flag  = i;
	value = i+1;

	if (strcmp(Tcl_GetString(objv[flag]), "-in") == 0) {
	    /* Reset the parent of the widget
	     */
	    Tcl_AppendResult(interp,
		"\"-in \" must be the first option given to tixForm", NULL);
	    return TCL_ERROR;
	} else if (strcmp(Tcl_GetString(objv[flag]), "-l") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		0, 0, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-left") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		0, 0, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-r") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		0, 1, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-right") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		0, 1, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-top") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
	        1, 0, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-t") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
	        1, 0, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-bottom") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		1, 1, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-b") == 0) {
	    if (ConfigureAttachment(clientPtr, topLevel, interp,
		1, 1, objv[value]) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-padx") == 0) {
	    if (ConfigurePadding(clientPtr, topLevel, interp,
  	        0, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		0, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-pady") == 0) {
	    if (ConfigurePadding(clientPtr,topLevel,interp,
		1, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		1, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-padleft") == 0) {
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		0, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-lp") == 0) {
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		0, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-padright")== 0){
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		0, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-rp")== 0){
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		0, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-padtop")== 0) {
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		1, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-tp")== 0) {
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		1, 0, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]),"-padbottom")== 0){
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		1, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]),"-bp")== 0){
	    if (ConfigurePadding(clientPtr, topLevel, interp,
		1, 1, Tcl_GetString(objv[value])) == TCL_ERROR) {

		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-leftspring") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		0, 0, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-ls") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		0, 0, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-rightspring") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		0, 1, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-rs") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		0, 1, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-topspring") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		1, 0, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-ts") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		1, 0, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-bottomspring") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		1, 1, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-bs") == 0) {
	    if (ConfigureSpring(clientPtr, topLevel, interp,
		1, 1, objv[value]) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else if (strcmp(Tcl_GetString(objv[flag]), "-fill") == 0) {
	    if (ConfigureFill(clientPtr, topLevel, interp,
		Tcl_GetString(objv[value])) == TCL_ERROR) {
		return TCL_ERROR;
	    }
	} else {
	    Tcl_AppendResult(interp, "Wrong option \"",
		Tcl_GetString(objv[i]), "\".",          NULL);
	    return TCL_ERROR;
	}
    }

    /*
     * Clear the previously set default attachment if the opposide
     * edge is attached.
     */

#if 0
    /* (1) The X axis */
    if ((clientPtr->attType[0][0] ==  ATT_DEFAULT_PIXEL)
	&&(clientPtr->attType[0][1]  !=  ATT_NONE)) {
	clientPtr->attType[0][0]   = ATT_NONE;
    }

    /* (2) The Y axis */
    if ((clientPtr->attType[1][0] ==  ATT_DEFAULT_PIXEL)
	&&(clientPtr->attType[1][1]  !=  ATT_NONE)) {
	clientPtr->attType[1][0]   = ATT_NONE;
    }
#endif

    return TCL_OK;
}

