toplevel .find
grid [text .find.info -yscrollcommand {.find.scr set} -width 40] -row 0 -column 0 -sticky ns
grid rowconfigure .find 0 -weight 1
grid [scrollbar .find.scr -command {.find.info yview}] -row 0 -column 1 -sticky ns
grid [button .find.find -text "find"] -row 1 -column 0 -columnspan 2
bind .find.find <Button> {
grab -global .find.find
}
wm geometry .find 290x345
bind .find.find <ButtonRelease> {
grab release [grab current]
set what [winfo containing %X %Y]
if {$what != ""} {
.find.info delete 1.0 end
.find.info insert end "$what\n"
foreach a [$what config] {
.find.info insert end "\t[lindex $a 0] [$what cget [lindex $a 0]]\n"
}
} else {
.find.info delete 1.0 end
.find.info insert 1.0 NULL
}
update
}
