diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-09-15 16:57:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-09-15 16:57:02 (GMT) |
| commit | 7b0e937f9ff083f35896d0d13cf90d618812de49 (patch) | |
| tree | de7f5dad34e664debf6ad3b48e2deafd20741a11 /library/tk.tcl | |
| parent | af244231877a2b478b9fb0b0481621e1c12fc561 (diff) | |
| parent | c40f0f6cefb57728ba9162a8509918ae31fd2210 (diff) | |
| download | tk-7b0e937f9ff083f35896d0d13cf90d618812de49.zip tk-7b0e937f9ff083f35896d0d13cf90d618812de49.tar.gz tk-7b0e937f9ff083f35896d0d13cf90d618812de49.tar.bz2 | |
merge 8.6
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 980e4f9..cf2edd5 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -400,7 +400,7 @@ switch -exact -- [tk windowingsystem] { event add <<NextPara>> <Control-Down> event add <<SelectPrevPara>> <Control-Shift-Up> event add <<SelectNextPara>> <Control-Shift-Down> - event add <<ToggleSelection>> <Control-ButtonPress-1> + event add <<ToggleSelection>> <Control-Button-1> # Some OS's define a goofy (as in, not <Shift-Tab>) keysym that is # returned when the user presses <Shift-Tab>. In order for tab @@ -449,7 +449,7 @@ switch -exact -- [tk windowingsystem] { event add <<NextPara>> <Control-Down> event add <<SelectPrevPara>> <Control-Shift-Up> event add <<SelectNextPara>> <Control-Shift-Down> - event add <<ToggleSelection>> <Control-ButtonPress-1> + event add <<ToggleSelection>> <Control-Button-1> } "aqua" { event add <<Cut>> <Command-Key-x> <Key-F2> <Command-Lock-Key-X> @@ -486,7 +486,7 @@ switch -exact -- [tk windowingsystem] { event add <<NextPara>> <Option-Down> event add <<SelectPrevPara>> <Shift-Option-Up> event add <<SelectNextPara>> <Shift-Option-Down> - event add <<ToggleSelection>> <Command-ButtonPress-1> + event add <<ToggleSelection>> <Command-Button-1> } } @@ -687,9 +687,11 @@ if {[tk windowingsystem] eq "aqua"} { if {[tk windowingsystem] eq "aqua"} { #stub procedures to respond to "do script" Apple Events proc ::tk::mac::DoScriptFile {file} { + uplevel #0 $file source $file } proc ::tk::mac::DoScriptText {script} { + uplevel #0 $script eval $script } } |