TCL: keybindings in widget text

man n bind
man n event

>man n bind
>man n event
пришли мне пожалуйста код который СПОСОБЕН это сделать
так как bind .widget <Shift-KEY> вообще ни на что не реагирует, а просто пытается вывести KEY в верхнем регистре (если это буква, то выводит, а если мне надо функциональнукю клавишу ???)

а <Control-F> - дефолтный биндинг у виджета и он попутно делает одно не нужное мне действие, которое я не знаю могу отключить.

а если сделать bindtag .widget {.widget "" . all} и потом сделать bind, то почему то вообще никакие каллбеки не вызываются

а маны читать я умею .