perl - 检查文本小部件是否已被修改

Question

我有一个Button和一个Text Widget。当用户单击Button时，我想知道自用户上次单击Button以来Text Widget中的文本是否已被修改。

我该如何检查？

Answer 1

调用

$t edit modified

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

$t edit modified false

或者相应的 Perl-Tk 是什么。