Subversion Repositories or1k

/* tclwingrab.c -- Tcl routines to enable and disable windows on Windows.
   Copyright (C) 1997 Cygnus Solutions.
   Written by Ian Lance Taylor <ian@cygnus.com>.
 
   This file contains routines to enable and disable windows on
   Windows.  This is used to support grabs on Windows in Tk 8.0.
 
   The routines in this file are expected to be invoked from
   ide_grab_support, which is defined in libide/library/wingrab.tcl.
   They are not expected to be invoked directly, so they are not
   really documented.  */
 
#ifdef _WIN32
 
#include <windows.h>
 
#include <tcl.h>
#include <tk.h>
 
#include "guitcl.h"
 
/* FIXME: We need to dig into the Tk window implementation internals
   to convert a Tk window to an HWND.  */
 
#include <tkWinInt.h>
 
/* Enable or disable a window.  If the clientdata argument is NULL, we
   disable the window.  Otherwise we enable the window.  This is just
   a quick hack; if we ever need to do something else, we can use a
   more serious method to distinguish the commands.  */
 
static int
wingrab_command (ClientData cd, Tcl_Interp *interp, int objc,
		 Tcl_Obj *const *objv)
{
  long l;
  HWND hwnd;
 
  /* Note that here we understand the return value of wm frame.  */
 
  if (Tcl_GetLongFromObj (interp, objv[1], &l) != TCL_OK)
    return TCL_ERROR;
 
  hwnd = (HWND) l;
  EnableWindow (hwnd, cd != NULL);
 
  return TCL_OK;
}
 
/* Create the ide_grab_support_disable and ide_grab_support_enable
   commands.  */
 
int
ide_create_win_grab_command (Tcl_Interp *interp)
{
  if (Tcl_CreateObjCommand (interp, "ide_grab_support_disable",
			    wingrab_command, NULL, NULL) == NULL
      || Tcl_CreateObjCommand (interp, "ide_grab_support_enable",
			       wingrab_command, (ClientData) 1, NULL) == NULL)
    return TCL_ERROR;
  return TCL_OK;
}
 
#endif /* _WIN32 */