Tcl/Tk-示例代码：跟随鼠标的目光

一个Tk小程序，中间的眼睛会盯着鼠标的位置

声明：这是好多年前保存的源码，出处已经忘记了，如无意外，应该是在Tcl语言的官方社区https://wiki.tcl-lang.org 里找到的。

在第180行已经调用了 package require Tk ，所以可以直接用tclsh运行该源码。

吐槽：Bilibili的专栏不计算代码的字数，我还得随便打点字乱凑够200字，无语🙃🙃🙃🙃🙃🙃🙃🙃🙃🙃