Tcl/Tk-示例代碼:跟隨鼠標(biāo)的目光

一個(gè)Tk小程序,中間的眼睛會(huì)盯著鼠標(biāo)的位置
聲明:這是好多年前保存的源碼,出處已經(jīng)忘記了,如無意外,應(yīng)該是在Tcl語言的官方社區(qū)https://wiki.tcl-lang.org 里找到的。
在第180行已經(jīng)調(diào)用了?package require Tk ,所以可以直接用tclsh運(yùn)行該源碼。
吐槽:Bilibili的專欄不計(jì)算代碼的字?jǐn)?shù),我還得隨便打點(diǎn)字亂湊夠200字,無語????????????????????
標(biāo)簽: