Posted to tcl by auriocus at Tue May 16 06:56:19 GMT 2017view raw

  1. # print the window name under the mouse cursor
  2. proc pickwin {} {
  3.  
  4. after 1000 {
  5.  
  6. set pickwidget [winfo containing {*}[winfo pointerxy .]]
  7. if { $pickwidget != {} } {
  8. puts $pickwidget
  9. foreach option [$pickwidget configure] {
  10. # leave out synonym options
  11. if { [llength $option] != 5 } { continue }
  12. lassign $option name dbname dbclass defvalue currentvalue
  13. if { $defvalue != $currentvalue } { puts " $name $currentvalue" }
  14. }
  15. } else { puts "No widget under cursor." }
  16.  
  17. }
  18.  
  19. }