Linux Perl TK：如何知道我的脚本窗口是否是活动窗口？

Question

我有一个使用TK for gui的Perl脚本，我只需要在调用它时知道它在活动期间它是否仍然是屏幕上的“ACTIVE WINDOW”。

如果它不再是屏幕上的“ACTIVE WINDOW”，我希望它自杀（退出或死亡）。

示例1：我执行它，通常是活动窗口，所以什么都不会发生。 示例2：当它处于活动状态时，我点击了另一个gui应用程序，因此我的当前脚本不再是我的屏幕上的ACTIVE WINDOW，所以现在它必须自杀并自杀。

Answer 1

包GUITest中的GetInputFocus方法会告诉你巫婆窗口有键盘焦点。