/* * 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.1.1.1 2007/07/10 15:05:18 duncan Exp $ */ #include /* *---------------------------------------------------------------------- * * 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')) { screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY); } 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 */ }