68 Tk_InitStubs( interp,
"8.1", 0 );
73 Tcl_CreateCommand( interp,
"plframe", (Tcl_CmdProc *)
plFrameCmd,
74 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
79 Tcl_CreateCommand( interp,
"host_id", (Tcl_CmdProc *)
plHost_ID,
80 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
96 display = Tk_Display( mainWindow );
97 map = DefaultColormap( display, DefaultScreen( display ) );
104 Tcl_PkgProvide( interp,
"Pltk",
VERSION );