displaywidgetpath.tcl

来自「是TCL的另外一个编译（解释）器」· TCL 代码 · 共 19 行

#this is a little helper, if you want to know the widget-name
# simply source it in your file

package require Tk

global widgetPath

set widgetPath "move mouse to a widget and click left mouse button while pressing Ctrl-Key"
toplevel .widgetPath

entry .widgetPath.e -textvar widgetPath

pack .widgetPath.e -fill both -expand yes

wm geometry .widgetPath =[winfo screenwidth .widgetPath]x20+0+0
raise .widgetPath
# wm withdraw .

bind all <Control-Button-1> {set widgetPath %W;break}