diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-14 15:57:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-01-14 15:57:59 (GMT) |
| commit | e50ff59782eb62c098fa31ce44b5ef22696d23ba (patch) | |
| tree | da7364467d81702a33baeda8458765145bfb8727 /library/ttk/cursors.tcl | |
| parent | 74c1da3513a051544b27bfde2a52525f55d648a2 (diff) | |
| download | tk-e50ff59782eb62c098fa31ce44b5ef22696d23ba.zip tk-e50ff59782eb62c098fa31ce44b5ef22696d23ba.tar.gz tk-e50ff59782eb62c098fa31ce44b5ef22696d23ba.tar.bz2 | |
Consistancy in Key/Button bindings: Use "<Button-1>" in stead of "<1>", "Key" in stead of "KeyPress" and "Button" in stead of "ButtonPress". Also eliminate unnessary "Any" and "Key" modifiers.
Diffstat (limited to 'library/ttk/cursors.tcl')
| -rw-r--r-- | library/ttk/cursors.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/ttk/cursors.tcl b/library/ttk/cursors.tcl index 9125acb..9d1e1ae 100644 --- a/library/ttk/cursors.tcl +++ b/library/ttk/cursors.tcl @@ -198,7 +198,7 @@ proc ttk::CursorSampler {f} { if {[info exists argv0] && $argv0 eq [info script]} { wm title . "[array size ::ttk::Cursors] cursors" pack [ttk::CursorSampler .f] -expand true -fill both - bind . <KeyPress-Escape> [list destroy .] + bind . <Escape> [list destroy .] focus .f } |