File: tixGlue.c

package info (click to toggle)
perl-tk 1:800.025-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 18,444 kB
  • ctags: 19,081
  • sloc: ansic: 206,740; perl: 40,187; makefile: 4,371; sh: 2,373; yacc: 762
file content (33 lines) | stat: -rw-r--r-- 910 bytes parent folder | download | duplicates (4)
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 _((void))
{
 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); 
}