diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-20 11:01:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-20 11:01:17 (GMT) |
| commit | 9c402860fb020d8e4edbbb2a738c1a0312fb3089 (patch) | |
| tree | 6733502bf5fed4582a907e7e0cc3b51c630cfaea /library/button.tcl | |
| parent | 1e43f52d3f5a853bf95be27798ace31ea8ee2884 (diff) | |
| download | tk-9c402860fb020d8e4edbbb2a738c1a0312fb3089.zip tk-9c402860fb020d8e4edbbb2a738c1a0312fb3089.tar.gz tk-9c402860fb020d8e4edbbb2a738c1a0312fb3089.tar.bz2 | |
Add <<Invoke>> bindings to button, listbox and menu, for consistancy with ttk.
Diffstat (limited to 'library/button.tcl')
| -rw-r--r-- | library/button.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/library/button.tcl b/library/button.tcl index d095b8a..75378cc 100644 --- a/library/button.tcl +++ b/library/button.tcl @@ -109,6 +109,15 @@ bind Checkbutton <space> { bind Radiobutton <space> { tk::CheckRadioInvoke %W } +bind Button <<Invoke>> { + tk::ButtonInvoke %W +} +bind Checkbutton <<Invoke>> { + tk::CheckRadioInvoke %W +} +bind Radiobutton <<Invoke>> { + tk::CheckRadioInvoke %W +} bind Button <FocusIn> {} bind Button <Enter> { |