File: tixGlue.c

package info (click to toggle)
perl-tk 1%3A804.032-3
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 34,728 kB
  • ctags: 37,169
  • sloc: ansic: 349,522; perl: 52,175; sh: 17,904; makefile: 5,732; asm: 3,565; ada: 1,681; pascal: 1,089; cpp: 1,006; yacc: 883; cs: 879
file content (33 lines) | stat: -rw-r--r-- 902 bytes parent folder | download | duplicates (10)
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
#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);
}