tcl thread :: send -async not works

Question

同期モードでスレッドにメッセージを送信し、トレース変数metohdを使用して結果を取得します。問題は、スレッドからの応答が得られないということです。通常のモード（thread :: send thread_id {command} var）でメッセージを送信すると、結果はvarに保存されます。誰かが間違っている箇所を指摘できますか？以下は私のコードを渡します：

trace add variable res write {apply {{v1 v2 op} { 
    upvar 1 $v1 v 
    puts "updated variable to $v"}}} 

set th [thread::create { 

    puts "new thread id : [thread::id]" 
    proc fun {n} { 
    return [expr {$n*2}] 
    } 
    thread::wait 
}] 
# thread::send $th [list fun $t] res 
thread::send -async $th [list fun 43] res 

Answer 1

ソース/メインスレッドのイベントを待っていますか？そうでない場合は、res変数を設定する非同期応答メッセージを処理することはありません。