URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [insight/] [libgui/] [src/] [tclwingrab.c] - Rev 578
Go to most recent revision | Compare with Previous | Blame | View Log
/* 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 */
Go to most recent revision | Compare with Previous | Blame | View Log