开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tkUnix.c
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：3k
源码类别：

通讯编程

开发平台：

Visual C++

tkUnix.c：源码内容
  1. /* 
  2.  * tkUnix.c --
  3.  *
  4.  * This file contains procedures that are UNIX/X-specific, and
  5.  * will probably have to be written differently for Windows or
  6.  * Macintosh platforms.
  7.  *
  8.  * Copyright (c) 1995 Sun Microsystems, Inc.
  9.  *
  10.  * See the file "license.terms" for information on usage and redistribution
  11.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12.  *
  13.  * RCS: @(#) $Id: tkUnix.c,v 1.5 2002/01/25 21:09:37 dgp Exp $
  14.  */
  16. #include <tkInt.h>
  18. /*
  19.  *----------------------------------------------------------------------
  20.  *
  21.  * TkGetServerInfo --
  22.  *
  23.  * Given a window, this procedure returns information about
  24.  * the window server for that window.  This procedure provides
  25.  * the guts of the "winfo server" command.
  26.  *
  27.  * Results:
  28.  * None.
  29.  *
  30.  * Side effects:
  31.  * None.
  32.  *
  33.  *----------------------------------------------------------------------
  34.  */
  36. void
  37. TkGetServerInfo(interp, tkwin)
  38.     Tcl_Interp *interp; /* The server information is returned in
  39.  * this interpreter's result. */
  40.     Tk_Window tkwin; /* Token for window;  this selects a
  41.  * particular display and server. */
  42. {
  43.     char buffer[8 + TCL_INTEGER_SPACE * 2];
  44.     char buffer2[TCL_INTEGER_SPACE];
  46.     sprintf(buffer, "X%dR%d ", ProtocolVersion(Tk_Display(tkwin)),
  47.     ProtocolRevision(Tk_Display(tkwin)));
  48.     sprintf(buffer2, " %d", VendorRelease(Tk_Display(tkwin)));
  49.     Tcl_AppendResult(interp, buffer, ServerVendor(Tk_Display(tkwin)),
  50.     buffer2, (char *) NULL);
  51. }
  53. /*
  54.  *----------------------------------------------------------------------
  55.  *
  56.  * TkGetDefaultScreenName --
  57.  *
  58.  * Returns the name of the screen that Tk should use during
  59.  * initialization.
  60.  *
  61.  * Results:
  62.  * Returns the argument or a string that should not be freed by
  63.  * the caller.
  64.  *
  65.  * Side effects:
  66.  * None.
  67.  *
  68.  *----------------------------------------------------------------------
  69.  */
  71. CONST char *
  72. TkGetDefaultScreenName(interp, screenName)
  73.     Tcl_Interp *interp; /* Interp used to find environment variables. */
  74.     CONST char *screenName; /* Screen name from command line, or NULL. */
  75. {
  76.     if ((screenName == NULL) || (screenName[0] == '')) {
  77. screenName = Tcl_GetVar2(interp, "env", "DISPLAY", TCL_GLOBAL_ONLY);
  78.     }
  79.     return screenName;
  80. }
  82. /*
  83.  *----------------------------------------------------------------------
  84.  *
  85.  * Tk_UpdatePointer --
  86.  *
  87.  * Unused function in UNIX
  88.  *
  89.  * Results:
  90.  * None.
  91.  *
  92.  * Side effects:
  93.  * None.
  94.  *
  95.  *----------------------------------------------------------------------
  96.  */
  98. void
  99. Tk_UpdatePointer(tkwin, x, y, state)
  100.     Tk_Window tkwin; /* Window to which pointer event
  101.  * is reported. May be NULL. */
  102.     int x, y; /* Pointer location in root coords. */
  103.     int state; /* Modifier state mask. */
  104. {
  105.   /*
  106.    * This function intentionally left blank
  107.    */
  108. }