perl - テキスト ウィジェットが変更されているかどうかを確認する

Question

ButtonとText Widgetがあります。ユーザーが Button をクリックすると、ユーザーが最後にButtonをクリックしてからText Widgetのテキストが変更されたかどうかを知りたいです。

これを確認するにはどうすればよいですか？

Answer 1

呼び出し

$t edit modified

(tテキストウィジェットのパス名を保持する場所) は、テキストウィジェットが変更されたかどうかを通知する必要があります。でリセット

$t edit modified false

または対応するPerl-Tkが何であれ。