Tcl/tk - yesno messageBoxをスレッドで表示する方法

Question

ユーザが何らかの操作をしたくないときまで、メッセージボックスを継続的に表示するための簡単なスレッドを作成しました。以下はコードです

thread::create { while [tk_messageBox -message "Do you want to Exit?!!" -type yesno] { 
    doSomething 
}} 

スレッドが作成されても、メッセージボックスは表示されません。 どうすればこれらのメッセージボックスを実際に見ることができますか？

Answer 1

あなたはTkをスレッドにも存在させる必要があります。唯一のスレッドパッケージは下位のスレッドでデフォルトで存在している：

thread::create { 
    package require Tk 
    while [tk_messageBox -message "Do you want to Exit?!!" -type yesno] { 
     doSomething 
    } 
} 

はまた、あなたのコード内の他の問題の束を修正する必要があります。

1. は常には{括弧}にwhileの条件を置きます。それがなければ、式の動的部分は一度しか評価されません。これは実際にはwhileで望むものではありません。
2. スレッドがthread::waitであることを確認してください。プロセスとスレッドの管理が改善されるためです。メッセージボックスのループを完全に書き直す必要があります。

これは、このコードにつながるかもしれない：

thread::create { 
    package require Tk 

    proc periodicallyMaybeDoSomething {} { 
     if {[tk_messageBox -message "Do you want to Exit?!!" -type yesno]} { 
      thread::exit 
     } 
     doSomething 
     # pick a better delay maybe? 
     after 1 periodicallyMaybeDoSomething 
    } 
    after 1 periodicallyMaybeDoSomething 

    thread::wait 
} 

あなたが8.6を使用している場合は、コードをよりエレガントにするためにコルーチンを使用することができます。