检查Text小部件是否已被修改

Question

我有一个按钮和一个文本小部件。当用户点击按钮时，我想知道自上次用户点击按钮文本小部件中的文字是否已被修改>

我该如何检查？

Answer 1

调用

$t edit modified

（其中t包含文本小部件的路径名）应该告诉您文本小部件是否已被修改。用

重置

$t edit modified false

或任何相应的Perl-Tk。