66 Tk_InitStubs( interp,
"8.1", 0 );
71 Tcl_CreateCommand( interp,
"plframe", (Tcl_CmdProc *)
plFrameCmd,
72 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
77 Tcl_CreateCommand( interp,
"host_id", (Tcl_CmdProc *)
plHost_ID,
78 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
94 display = Tk_Display( mainWindow );
95 map = DefaultColormap( display, DefaultScreen( display ) );
int plFrameCmd(ClientData, Tcl_Interp *, int, const char **)
int Pltk_Init(Tcl_Interp *interp)
PLDLLIMPEXP_TCLTK int pls_auto_path(Tcl_Interp *interp)
int plHost_ID(ClientData clientData, Tcl_Interp *interp, int argc, const char **argv)
PLDLLIMPEXP_TCLTK int PlbasicInit(Tcl_Interp *interp)
static const char * display
static Tcl_Interp * interp