41 main = Tk_MainWindow( interp );
45 Tcl_CreateCommand( interp,
"plframe", (Tcl_CmdProc *)
plFrameCmd,
46 (ClientData) main, (Tcl_CmdDeleteProc *) NULL );
50 Tcl_CreateCommand( interp,
"matrix", (Tcl_CmdProc *)
Tcl_MatrixCmd,
51 (ClientData) main, (Tcl_CmdDeleteProc *) NULL );
56 Tcl_CreateCommand( interp,
"wait_until", (Tcl_CmdProc *)
plWait_Until,
57 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
62 Tcl_CreateCommand( interp,
"host_id", (Tcl_CmdProc *)
plHost_ID,
63 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
79 display = Tk_Display( main );
80 map = DefaultColormap( display, DefaultScreen( display ) );
113 if ( Tcl_ExprBoolean( interp, argv[1], &result ) )
115 fprintf( stderr,
"wait_until command \"%s\" failed:\n\t %s\n",
116 argv[1], Tcl_GetStringResult( interp ) );