从 Tkinter Tcl 回调 python 函数在 Windows 中崩溃

这不完全是我的应用程序，但非常相似。我创建了这个测试代码来显示问题。基本上我试图从 python 线程调用 tcl proc。当结果准备好时，Tcl proc 将回调到 python 函数。该结果将作为事件发布到 wx 框架。当我作为纯 python 代码运行时，它工作得很好。当我使用 tcl proc 时，整个应用程序崩溃，没有任何信息。如果我增加 wait_time （比如 100），那么即使使用 tcl 也能正常工作。是回调率高有问题还是我错过了其他东西。顺便说一句，这个应用程序在 Windows 上运行。

import wx
from Tkinter import Tcl
from threading import Thread
import wx.lib.newevent
from time import sleep

CountUpdateEvent, EVT_CNT_UPDATE = wx.lib.newevent.NewEvent()

tcl_code = 'proc tcl_worker {name max_count delay_time callback} { while {$max_count>0} {after $delay_time; $callback $name $max_count; incr max_count -1}}'

# Option to use Tcl or not for counter
# When enabled, Tcl will callback to python to upate counter value
use_tcl = True

# Option to create tcl interpreter per thread. 
# Test shows single interpreter for all threads will fail.
use_per_thread_tcl = True 

count = 5000 
wait_time = 1 ;# in milliseconds

class Worker:
    def __init__(self,name,ui,tcl):
        global use_per_thread_tcl
        self.name = name
        self.ui = ui
        if use_per_thread_tcl:
            self.tcl = Tcl()
            self.tcl.eval(tcl_code)
        else:
            self.tcl = tcl
        self.target = ui.add_textbox(name)
        self.thread = Thread(target=self.run)
        self.thread.daemon = True
        self.thread.start()

    def callback(self, name, val):
        evt = CountUpdateEvent(name=self.name, val=val, target=self.target)
        wx.PostEvent(self.ui,evt)        
    def run(self):
        global count, wait_time, use_tcl

        if use_tcl:
            # Register a python function to be called back from tcl
            tcl_cmd = self.tcl.register(self.callback)

            # Now call tcl proc
            self.tcl.call('tcl_worker', self.name, str(count), str(wait_time), tcl_cmd)
        else:
            # Convert milliseconds to seconds for sleep
            py_wait_time = wait_time / 1000
            while count > 0:
                # Directly call the callback from here
                self.callback(self.name, str(count))
                count -= 1
                sleep(py_wait_time)


class MainWindow(wx.Frame):
    def __init__(self, parent):
        wx.Frame.__init__(self, parent, title="Decrement Counter", size=(600, 100))

        self._DoLayout()
        self.Bind(EVT_CNT_UPDATE, self.on_count_update)

    def _DoLayout(self):
        self.sizer = wx.BoxSizer(wx.HORIZONTAL)

        self.panels = []
        self.tbs = []
        self.xpos = 0

    def add_textbox(self,name):
        panel = wx.Panel(self, pos=(self.xpos, 0), size=(60,40))
        self.panels.append(panel)
        tb = wx.StaticText(panel, label=name)
        tb.SetFont(wx.Font(16,wx.MODERN,wx.NORMAL,wx.NORMAL))
        self.sizer.Add(panel, 1, wx.EXPAND, 7)
        self.tbs.append(tb)
        self.xpos = self.xpos + 70
        return tb

    def on_count_update(self,ev):
        ev.target.SetLabel(ev.val)
        del ev

if __name__ == '__main__':
    app = wx.App(False)
    frame = MainWindow(None)
    tcl = Tcl()
    tcl.eval(tcl_code)
    w1 = Worker('A', frame, tcl)
    w2 = Worker('B', frame, tcl)
    w3 = Worker('C', frame, tcl)
    w4 = Worker('D', frame, tcl)
    w5 = Worker('E', frame, tcl)
    w6 = Worker('F', frame, tcl)
    w7 = Worker('G', frame, tcl)
    w8 = Worker('H', frame, tcl)
    frame.Show()
    app.MainLoop()

每个 Tcl 解释器对象（即知道如何运行 Tcl 过程的上下文）只能从创建它的操作系统线程安全地使用。这是因为 Tcl 不像 Python 那样使用全局解释器锁，而是大量使用线程特定的数据来减少内部所需的锁数量。 （编写良好的 Tcl 代码可以利用这一点在合适的硬件上进行大规模扩展。）

正因为如此，你must确保您只从单个线程运行 Tcl 命令或 Tkinter 操作；这通常是主线程，但我不确定这是否是与 Python 集成的真正要求。如果需要，您可以启动工作线程，但它们将无法使用 Tcl 或 Tkinter（好吧，如果没有非常特殊的预防措施，这会带来更多麻烦，而不是可能值得的）。相反，他们需要向主线程发送消息，以便它处理与 GUI 的交互；有很多不同的方法可以做到这一点。