Канал Tcl в приложении с графическим интерфейсом

Я пытаюсь встроить интерпретатор Tcl в приложение C # GUI, и все работает нормально,
даже прикрепление новой функции к TclCommand.
Но мне тяжело,
Я хочу перенаправить
стандартный вывод, стандартный вывод, стандартный вывод
для некоторых TextBox’ов.
Сейчас я работаю с C ++, потому что его легче отлаживать и компилировать.
так что я использую код

Tcl_Channel StdOut = Tcl_GetStdChannel(TCL_STDOUT);
Tcl_UnregisterChannel(interp,StdOut);
Tcl_Channel myStdOut = Tcl_CreateChannel(typePtr, "stdout",
NULL, TCL_READABLE | TCL_WRITABLE);Tcl_RegisterChannel(interp, myStdOut);
Tcl_SetStdChannel(myStdOut, TCL_STDOUT);

зарегистрировать новый стандартный вывод,
typePtr выглядит

typePtr->typeName = "stdout";
typePtr->version = TCL_CHANNEL_VERSION_2;
typePtr->getHandleProc = Tcl_MyDriverGetHandleProc;
typePtr->inputProc = Tcl_MyDriverInputProc;
typePtr->outputProc = Tcl_MyDriverOutputProc;
typePtr->flushProc = Tcl_MyDriverFlushProc;
typePtr->watchProc = Tcl_MyDriverWatchProc;
typePtr->closeProc = Tcl_MyDriverCloseProc;
typePtr->blockModeProc = Tcl_MyDriverBlockModeProc;
typePtr->seekProc = NULL;
typePtr->close2Proc = NULL;
typePtr->handlerProc = NULL;
typePtr->wideSeekProc = NULL;
typePtr->truncateProc = NULL;
typePtr->setOptionProc = NULL;
typePtr->getOptionProc = NULL;
typePtr->threadActionProc = NULL;

и каждая функция, к которой я подключаюсь, возвращает TCL_OK или EINVAL (я знаю это по API)
и помещает некоторый текст в файл, пример

int Tcl_MyDriverCloseProc(ClientData instanceData,
Tcl_Interp *interp) {
std::cout << "\n Tcl_MyDriverCloseProc\n";
file << "\n Tcl_MyDriverCloseProc\n";
file.flush();
return EINVAL;
}

я также использую std :: cout для отладки, но я не верю ему.
Когда я компилирую&запустить ничего не получится, stdout не работает, результат например

result:stderr file8adcd0 stdout stdin:
result::

код, который я скомпилировал

Tcl_GetChannelNames(interp);
std::cout << "result:" << Tcl_GetStringResult(interp) << ":\n";

Tcl_Eval(interp, "puts SomeOneHelp");
std::cout << "result:" << Tcl_GetStringResult(interp) << ":\n";

Я также не могу создать собственный канал и использовал его как

"puts myChannel pleHdeeNI"

Когда я закончу с C ++, я собираюсь сделать функцию в C #, которая будет записывать 3 стандартных канала TCL в TextBox’ы, но это легко.