Posted to tcl by auriocus at Tue May 16 06:56:19 GMT 2017view pretty
# print the window name under the mouse cursor proc pickwin {} { after 1000 { set pickwidget [winfo containing {*}[winfo pointerxy .]] if { $pickwidget != {} } { puts $pickwidget foreach option [$pickwidget configure] { # leave out synonym options if { [llength $option] != 5 } { continue } lassign $option name dbname dbclass defvalue currentvalue if { $defvalue != $currentvalue } { puts " $name $currentvalue" } } } else { puts "No widget under cursor." } } }