一、核心問題

Qt 與 Tcl 各有一套原生事件循環(huán)：

• Qt：QApplication::exec() 驅(qū)動(dòng)，基于 QEventLoop
• Tcl：Tcl_DoOneEvent() / vwait 驅(qū)動(dòng)
  兩者不能嵌套、不能并行，會(huì)導(dǎo)致界面卡死、事件丟失、死循環(huán)。

二、官方推薦方案：用 Qt 接管 Tcl 事件循環(huán)

核心思路：替換 Tcl 底層 Notifier，讓 Tcl 所有事件（定時(shí)器、文件、通道）都走 Qt 事件循環(huán)，只保留一個(gè)主循環(huán)（Qt 的 exec()）。

實(shí)現(xiàn)步驟

1. 禁用 Tcl 原生事件循環(huán)
   不調(diào)用 Tcl_Main、不自行跑 Tcl_DoOneEvent 循環(huán)。
2. 實(shí)現(xiàn) Qt 版 Tcl Notifier
   用 Tcl_SetNotifier() 注冊自定義通知器，把 Tcl 的：
   • 定時(shí)器 → 映射到 QTimer
   • 文件/通道事件 → 映射到 QSocketNotifier
   • 事件等待 → 映射到 QEventLoop
3. 只啟動(dòng) Qt 主循環(huán)
   全程只調(diào)用 QApplication::exec()，Tcl 事件全部在 Qt 循環(huán)中派發(fā)處理。

三、最簡可用代碼框架（C++）

#include <QApplication>
#include <QTimer>
#include <QSocketNotifier>
#include <tcl.h>

// 1. 實(shí)現(xiàn) Tcl Notifier 接口（關(guān)鍵）
static void QtTclNotifierCreate() {}
static void QtTclNotifierFree() {}
static int QtTclNotifierSetTimer(Tcl_TimerToken token, int ms) {
    // 用 QTimer 驅(qū)動(dòng) Tcl 定時(shí)器回調(diào)
    QTimer::singleShot(ms, [=] { Tcl_ServiceTimer(token); });
    return 0;
}
static int QtTclNotifierCreateFileHandler(int fd, int mask, Tcl_FileProc *proc, ClientData data) {
    // 用 QSocketNotifier 驅(qū)動(dòng) Tcl 文件事件
    auto notifier = new QSocketNotifier(fd, QSocketNotifier::Read);
    QObject::connect(notifier, &QSocketNotifier::activated, [=] { proc(data, mask); });
    return 0;
}

// 2. 注冊到 Tcl
static Tcl_NotifierProcs g_QtNotifier = {
    QtTclNotifierCreate,
    QtTclNotifierFree,
    QtTclNotifierSetTimer,
    QtTclNotifierCreateFileHandler,
    nullptr, nullptr, nullptr, nullptr
};

int main(int argc, char *argv[]) {
    QApplication a(argc, argv);
    // 3. 關(guān)鍵：啟動(dòng)前替換 Notifier
    Tcl_SetNotifier(&g_QtNotifier);
    // 4. 初始化 Tcl 解釋器
    Tcl_Interp *interp = Tcl_CreateInterp();
    Tcl_Init(interp);
    // 5. 只跑 Qt 循環(huán)
    return a.exec();
}

四、備選輕量方案（快速驗(yàn)證）

• Qt 定時(shí)器輪詢 Tcl
  用 QTimer 定時(shí)調(diào)用 Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT)，非阻塞處理 Tcl 事件。
  優(yōu)點(diǎn)：改造成本極低；缺點(diǎn)：精度一般，適合簡單腳本。
• 分線程隔離
  Tcl 跑在獨(dú)立 QThread，通過信號槽/隊(duì)列通信，不共享事件循環(huán)，避免搶占。

五、避坑要點(diǎn)

• 絕不嵌套 exec()：Tcl 的 vwait / tkwait 會(huì)內(nèi)部跑循環(huán)，必須改用 Qt 異步等待。
• 線程安全：Tcl 解釋器非線程安全，只能在創(chuàng)建它的線程使用。
• 只留一個(gè)主循環(huán)：全程只調(diào)用一次 QApplication::exec()。

需要我把上面的框架補(bǔ)全成可編譯工程（含.pro、完整Notifier、Tcl腳本調(diào)用示例）嗎？