home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _622def831f9a1c5d61addcc7666336a8 < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.3 KB  |  61 lines
  1. /*
  2.  * tkWin.h --
  3.  *
  4.  *    Declarations of public types and interfaces that are only
  5.  *    available under Windows.
  6.  *
  7.  * Copyright (c) 1996-1997 by Sun Microsystems, Inc.
  8.  *
  9.  * See the file "license.terms" for information on usage and redistribution
  10.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  11.  *
  12.  * RCS: @(#) $Id: tkWin.h,v 1.6 1999/04/16 01:51:48 stanton Exp $
  13.  */
  14.  
  15. #ifndef _TKWIN
  16. #define _TKWIN
  17.  
  18. #ifndef _TK
  19. #include "tk.h"
  20. #endif
  21.  
  22. #define WIN32_LEAN_AND_MEAN
  23. #include <windows.h>
  24. #undef WIN32_LEAN_AND_MEAN
  25.  
  26. #ifdef BUILD_tk
  27. # undef TCL_STORAGE_CLASS
  28. # define TCL_STORAGE_CLASS DLLEXPORT
  29. #endif
  30.  
  31. /*
  32.  * The following messages are use to communicate between a Tk toplevel
  33.  * and its container window.
  34.  */
  35.  
  36. #define TK_CLAIMFOCUS    (WM_USER)
  37. #define TK_GEOMETRYREQ    (WM_USER+1)
  38. #define TK_ATTACHWINDOW    (WM_USER+2)
  39. #define TK_DETACHWINDOW    (WM_USER+3)
  40.  
  41.  
  42. typedef void Tcl_HandleProc (ClientData, HANDLE);
  43.  
  44.  
  45. /*
  46.  *--------------------------------------------------------------
  47.  *
  48.  * Exported procedures defined for the Windows platform only.
  49.  *
  50.  *--------------------------------------------------------------
  51.  */
  52.  
  53. #include "tkPlatDecls.h"
  54.  
  55. extern HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void));
  56.  
  57. # undef TCL_STORAGE_CLASS
  58. # define TCL_STORAGE_CLASS DLLIMPORT
  59.  
  60. #endif /* _TKWIN */
  61.