-
Notifications
You must be signed in to change notification settings - Fork 33
/
Copy pathtixGlue.c
33 lines (28 loc) · 902 Bytes
/
tixGlue.c
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
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
#include "tkGlue.def"
#include "pTk/tixInt.h"
#include "pTk/tixImgXpm.h"
#include "pTk/tkVMacro.h"
#include "tkGlue.h"
extern Tix_DItemInfo tix_TextItemType;
extern Tix_DItemInfo tix_ImageTextItemType;
extern Tix_DItemInfo tix_ImageItemType;
extern Tix_DItemInfo tix_WindowItemType;
void
Boot_Tix (pTHX)
{
install_vtab("TixVtab",TixVGet(),sizeof(TixVtab));
install_vtab("TixintVtab",TixintVGet(),sizeof(TixintVtab));
install_vtab("TiximgxpmVtab",TiximgxpmVGet(),sizeof(TiximgxpmVtab));
tixNormalUid = Tk_GetUid("normal");
tixDisabledUid = Tk_GetUid("disabled");
tixCellUid = Tk_GetUid("cell");
tixRowUid = Tk_GetUid("row");
tixColumnUid = Tk_GetUid("column");
Tix_AddDItemType(&tix_TextItemType);
Tix_AddDItemType(&tix_ImageItemType);
Tix_AddDItemType(&tix_ImageTextItemType);
Tix_AddDItemType(&tix_WindowItemType);
}