c/sctop.c の1561行目から始まる #else interp = Tcl_CreateInterp(); TkCreateMainWindow(interp, NULL, "raw_dtus", "Tk"); if (Tcl_Init(interp) == TCL_ERROR) { fprintf(stderr, "Tcl_Init failed: %s\n", interp->result); } if (Tk_Init(interp) == TCL_ERROR) { fprintf(stderr, "Tk_Init failed: %s\n", interp->result); } #endif を #else interp = Tcl_CreateInterp(); // TkCreateMainWindow(interp, NULL, "raw_dtus", "Tk"); if (Tcl_Init(interp) == TCL_ERROR) { fprintf(stderr, "Tcl_Init failed: %s\n", interp->result); } if (Tk_Init(interp) == TCL_ERROR) { fprintf(stderr, "Tk_Init failed: %s\n", interp->result); } Tk_MainWindow(interp); #endif と修正下さい(TkCreateMainWindow()の行をコメントアウトし,Tk_MainWindow()を追加).