home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _4a21aa136085750f449dde49e9e6732d < prev    next >
Encoding:
Text File  |  2004-06-01  |  2.4 KB  |  80 lines
  1. #ifndef _TKGLUE
  2. #define _TKGLUE
  3.  
  4. #ifndef BASEEXT
  5. #define BASEEXT "Tk"
  6. #endif
  7.  
  8. #ifndef _TKOPTION
  9. #include "pTk/tkOption.h"
  10. #include "pTk/tkOption_f.h"
  11. #endif
  12.  
  13. typedef struct EventAndKeySym
  14.  {XEvent event;
  15.   KeySym keySym;
  16.   Tcl_Interp  *interp;
  17.   Tk_Window   tkwin;
  18.   SV    *window;
  19.  } EventAndKeySym;
  20.  
  21. typedef struct Lang_CmdInfo
  22.  {Tcl_CmdInfo Tk;
  23.   Tcl_Interp  *interp;
  24.   Tk_Window   tkwin;
  25.   SV          *image;
  26.   Tk_Font     tkfont;
  27.  } Lang_CmdInfo;
  28.  
  29. #include "vtab.def"
  30.  
  31.  
  32. #define VTABLE_INIT() IMPORT_VTABLES
  33.  
  34. extern Lang_CmdInfo *WindowCommand _ANSI_ARGS_((SV *win,HV **hptr, int moan));
  35. extern Tk_Window SVtoWindow _ANSI_ARGS_((SV *win));
  36. extern Tk_Font SVtoFont _ANSI_ARGS_((SV *win));
  37. extern int Call_Tk _ANSI_ARGS_((Lang_CmdInfo *info,int argc, SV **args));
  38. extern HV *InterpHv _ANSI_ARGS_((Tcl_Interp *interp,int fatal));
  39. extern SV *WidgetRef _ANSI_ARGS_((Tcl_Interp *interp, char *path));
  40. extern SV *ObjectRef _ANSI_ARGS_((Tcl_Interp *interp, char *path));
  41. extern SV *TkToWidget _ANSI_ARGS_((Tk_Window tkwin,Tcl_Interp **pinterp));
  42. extern SV *FindTkVarName _ANSI_ARGS_((CONST char *varName,int flags));
  43. extern void EnterWidgetMethods _ANSI_ARGS_((char *package, ...));
  44. extern SV *MakeReference _ANSI_ARGS_((SV * sv));
  45. extern Tk_Window TkToMainWindow _ANSI_ARGS_((Tk_Window tkwin));
  46. extern void Lang_TkSubCommand _ANSI_ARGS_ ((char *name, Tcl_ObjCmdProc *proc));
  47. extern void Lang_TkCommand _ANSI_ARGS_ ((char *name, Tcl_ObjCmdProc *proc));
  48. extern SV *XEvent_Info _((EventAndKeySym *obj,char *s));
  49. extern EventAndKeySym *SVtoEventAndKeySym _((SV *arg));
  50. extern int XSTkCommand _ANSI_ARGS_((CV *cv, int mwcd, Tcl_ObjCmdProc *proc, int items, SV **args));
  51.  
  52. extern XS(XStoWidget);
  53.  
  54. EXTERN void ClearErrorInfo _ANSI_ARGS_((SV *interp));
  55. EXTERN Tk_Window mainWindow;
  56. EXTERN void DumpStack _ANSI_ARGS_((CONST char *who));
  57. EXTERN void  Boot_Glue (pTHX);
  58. EXTERN void  Boot_Tix  (pTHX);
  59. EXTERN void install_vtab _ANSI_ARGS_((char *name, void *table, size_t size));
  60. extern SV *TagIt _((SV *sv, char *type));
  61. extern void Font_DESTROY _((SV *sv));
  62. struct pTkCheckChain;
  63. extern void Tk_CheckHash _((SV *sv,struct pTkCheckChain *chain));
  64.  
  65. extern int    has_highbit(CONST char *s,int l);
  66. extern SV *    sv_maybe_utf8(SV *sv);
  67. extern SV *    Lang_SystemEncoding(void);
  68.  
  69. #ifndef WIN32
  70. #define HWND void *
  71. #endif
  72. EXTERN HWND SVtoHWND _ANSI_ARGS_((SV *win));
  73.  
  74. #ifdef WIN32
  75. #include "pTk/tkWinInt.h"
  76. #endif
  77.  
  78. #endif
  79.  
  80.