1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/*
File : flash.h
Description : Header file for the flash window extension for tk
Author : Youness El Alaoui ( KaKaRoTo - kakaroto@user.sourceforge.net)
*/
#ifndef _FLASH
#define _FLASH
// Include files, must include windows.h before tk.h and tcl.h before tk.h
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xatom.h>
#include <tcl.h>
#include <tk.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <tkPlatDecls.h>
// Defined as described in tcl.tk compiling extension help
#ifndef STATIC_BUILD
#if defined(_MSC_VER)
# define EXPORT(a,b) __declspec(dllexport) a b
# define DllEntryPoint DllMain
#else
# if defined(__BORLANDC__)
# define EXPORT(a,b) a _export b
# else
# define EXPORT(a,b) a b
# endif
#endif
#endif
#define DLL_BUILD
#define BUILD_Flash
#ifdef BUILD_Flash
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLEXPORT
#endif
#ifdef __cplusplus
extern "C"
#endif
// Prototype of my functions
EXTERN int Flash_Init _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN int Tk_FlashWindow (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
EXTERN int Tk_UnFlashWindow (ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *CONST objv[]);
EXTERN int flash_window (Tcl_Interp *interp, Tcl_Obj *CONST objv1, int flash);
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLIMPORT
#endif /* _FLASH */
|
