diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-16 07:41:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-16 07:41:01 (GMT) |
| commit | b759c79faef78af4298e356f590b3d3a35b5ae01 (patch) | |
| tree | 086c86b546650518426dcc5803be311f66cb3831 /library/tk.tcl | |
| parent | 79f10dcb586890630b25aa27250f270b39125713 (diff) | |
| download | tk-b759c79faef78af4298e356f590b3d3a35b5ae01.zip tk-b759c79faef78af4298e356f590b3d3a35b5ae01.tar.gz tk-b759c79faef78af4298e356f590b3d3a35b5ae01.tar.bz2 | |
Simplify NewNativeObj(), since its last parameter is always -1.
Change Tcl_StringMatch() calls to Tcl_StringCaseMatch()
A few end-of-line unnecessary spacings.
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index f4e8258..35433e8 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -463,7 +463,7 @@ switch -exact -- [tk windowingsystem] { # See http://support.apple.com/kb/HT1343 event add <<SelectAll>> <Command-Key-a> #Attach function keys not otherwise assigned to this event so they no-op - workaround for bug 0e6930dfe7 - event add <<SelectNone>> <Option-Command-Key-a> <Key-F5> <Key-F1> <Key-F5> <Key-F6> <Key-F7> <Key-F8> <Key-F9> <Key-F10> <Key-F11> <Key-F12> + event add <<SelectNone>> <Option-Command-Key-a> <Key-F5> <Key-F1> <Key-F5> <Key-F6> <Key-F7> <Key-F8> <Key-F9> <Key-F10> <Key-F11> <Key-F12> event add <<Undo>> <Command-Key-z> <Command-Lock-Key-Z> event add <<Redo>> <Shift-Command-Key-z> <Shift-Command-Lock-Key-z> event add <<NextChar>> <Right> <Control-Key-f> <Control-Lock-Key-F> @@ -476,7 +476,7 @@ switch -exact -- [tk windowingsystem] { event add <<SelectPrevWord>> <Shift-Option-Left> event add <<LineStart>> <Home> <Command-Left> <Control-Key-a> <Control-Lock-Key-A> event add <<SelectLineStart>> <Shift-Home> <Shift-Command-Left> <Shift-Control-Key-A> <Shift-Control-Lock-Key-A> - event add <<LineEnd>> <End> <Command-Right> <Control-Key-e> <Control-Lock-Key-E> + event add <<LineEnd>> <End> <Command-Right> <Control-Key-e> <Control-Lock-Key-E> event add <<SelectLineEnd>> <Shift-End> <Shift-Command-Right> <Shift-Control-Key-E> <Shift-Control-Lock-Key-E> event add <<PrevLine>> <Up> <Control-Key-p> <Control-Lock-Key-P> event add <<SelectPrevLine>> <Shift-Up> <Shift-Control-Key-P> <Shift-Control-Lock-Key-P> |