/*
 * tkUnix.c --
 *
 *      This file contains procedures that are UNIX/X-specific, and
 *      will probably have to be written differently for Windows or
 *      Macintosh platforms.
 *
 * Copyright (c) 1995 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tkUnix.c,v 1.5 2002/01/25 21:09:37 dgp Exp $
 */
#include <tkInt.h>
/*
 *----------------------------------------------------------------------
 *
 * TkGetServerInfo --
 *
 *      Given a window, this procedure returns information about
 *      the window server for that window.  This procedure provides
 *      the guts of the "winfo server" command.
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */
void
TkGetServerInfo(interp, tkwin)
    Tcl_Interp *interp;         /* The server information is returned in
                                 * this interpreter's result. */
    Tk_Window tkwin;            /* Token for window;  this selects a
                                 * particular display and server. */
{
    char buffer[8 + TCL_INTEGER_SPACE * 2];
    char buffer2[TCL_INTEGER_SPACE];
    sprintf(buffer, "X%dR%d ", ProtocolVersion(Tk_Display(tkwin)),
            ProtocolRevision(Tk_Display(tkwin)));
    sprintf(buffer2, " %d", VendorRelease(Tk_Display(tkwin)));
    Tcl_AppendResult(interp, buffer, ServerVendor(Tk_Display(tkwin)),
            buffer2, (char *) NULL);
}
/*
 *----------------------------------------------------------------------
 *
 * TkGetDefaultScreenName --
 *
 *      Returns the name of the screen that Tk should use during
 *      initialization.
 *
 * Results:
 *      Returns the argument or a string that should not be freed by
 *      the caller.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */
CONST char *
TkGetDefaultScreenName(interp, screenName)
    Tcl_Interp *interp;         /* Interp used to find environment variables. */
    CONST char *screenName;     /* Screen name from command line, or NULL. */
{
    if ((screenName == NULL) || (screenName[0] == '\0')) {
#if 0
        screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY);
#else
        screenName = getenv("DISPLAY");
#endif
    }
    return screenName;
}
/*
 *----------------------------------------------------------------------
 *
 * Tk_UpdatePointer --
 *
 *      Unused function in UNIX
 *
 * Results:
 *      None.
 *
 * Side effects:
 *      None.
 *
 *----------------------------------------------------------------------
 */
void
Tk_UpdatePointer(tkwin, x, y, state)
    Tk_Window tkwin;            /* Window to which pointer event
                                 * is reported. May be NULL. */
    int x, y;                   /* Pointer location in root coords. */
    int state;                  /* Modifier state mask. */
{
  /*
   * This function intentionally left blank
   */
}