ckFocus.c

/* 
 * ckFocus.c --
 *
 *	This file contains procedures that manage the input focus.
 *
 * Copyright (c) 1990-1994 The Regents of the University of California.
 * Copyright (c) 1994-1995 Sun Microsystems, Inc.
 * Copyright (c) 1995 Christian Werner
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 */

#include "ckPort.h"
#include "ck.h"


/*
 *--------------------------------------------------------------
 *
 * Ck_FocusCmdObj --
 *
 *	This procedure is invoked to process the "focus" Tcl command.
 *	See the user documentation for details on what it does.
 *
 * Results:
 *	A standard Tcl result.
 *
 * Side effects:
 *	See the user documentation.
 *
 *--------------------------------------------------------------
 */

int
Ck_FocusCmdObj(clientData, interp, objc, objv)
    ClientData clientData;	/* Main window associated with
				 * interpreter. */
    Tcl_Interp *interp;		/* Current interpreter. */
    int objc;			/* Number of arguments. */
    Tcl_Obj * CONST objv[];	/* Tcl_Obj* array of arguments. */
{
    CkWindow *winPtr = (CkWindow *) clientData;
    CkWindow *newPtr, *focusWinPtr;

    /*
     * If invoked with no arguments, just return the current focus window.
     */

    if (objc == 1) {
	focusWinPtr = winPtr->mainPtr->focusPtr;
	if (focusWinPtr != NULL) {
	  Tcl_SetObjResult( interp, Tcl_NewStringObj(focusWinPtr->pathName, -1));
	}
	return TCL_OK;
    }

    /*
     * If invoked with a single argument beginning with "." then focus
     * on that window.
     */

    if (objc == 2) {
      char *s = Tcl_GetString(objv[1]);
      if (s[0] == 0) {
	return TCL_OK;
      }
      if (s[0] == '.') {
	newPtr = (CkWindow *) Ck_NameToWindow(interp, s, winPtr);
	if (newPtr == NULL) {
	  return TCL_ERROR;
	}
	if (!(newPtr->flags & CK_ALREADY_DEAD)) {
	  Ck_SetFocus(newPtr);
	}
	return TCL_OK;
      }
    }

    Tcl_WrongNumArgs (interp, 1, objv, "?pathname?");
    return TCL_ERROR;
}