43 main = Tk_MainWindow( interp );
47 Tcl_CreateCommand( interp,
"plframe", (Tcl_CmdProc *)
plFrameCmd,
48 (ClientData) main, (Tcl_CmdDeleteProc *) NULL );
52 Tcl_CreateCommand( interp,
"matrix", (Tcl_CmdProc *)
Tcl_MatrixCmd,
53 (ClientData) main, (Tcl_CmdDeleteProc *) NULL );
58 Tcl_CreateCommand( interp,
"wait_until", (Tcl_CmdProc *)
plWait_Until,
59 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
64 Tcl_CreateCommand( interp,
"host_id", (Tcl_CmdProc *)
plHost_ID,
65 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
81 display = Tk_Display( main );
82 map = DefaultColormap( display, DefaultScreen( display ) );
115 if ( Tcl_ExprBoolean( interp, argv[1], &result ) )
117 fprintf( stderr,
"wait_until command \"%s\" failed:\n\t %s\n",
118 argv[1], Tcl_GetStringResult( interp ) );
int plFrameCmd(ClientData, Tcl_Interp *, int, const char **)
PLDLLIMPEXP_TCLTK int pls_auto_path(Tcl_Interp *interp)
int Tcl_MatrixCmd(ClientData PL_UNUSED(clientData), Tcl_Interp *interp, int argc, const char **argv)
int Pltk_Init(Tcl_Interp *interp)
int plWait_Until(ClientData clientData, Tcl_Interp *interp, int argc, char **argv)
int plHost_ID(ClientData clientData, Tcl_Interp *interp, int argc, const char **argv)
static const char * display
static Tcl_Interp * interp