ag/cpython-bin-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix imported build of Tcl/Tk 8.6.11 (previous version was actually 8.6.10)

Browse Source
This commit is contained in:
Steve Dower
2021-11-04 00:36:00 +00:00
parent 8986c8988f
commit c5c7ca7f25
288 changed files with 20280 additions and 4662 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
amd64/lib/tk8.6/text.tcl
View File

@@ -429,14 +429,27 @@ bind Text <Control-h> {
%W see insert
}
}
bind Text <2> {
if {!$tk_strictMotif} {
tk::TextScanMark %W %x %y
if {[tk windowingsystem] ne "aqua"} {
bind Text <2> {
if {!$tk_strictMotif} {
tk::TextScanMark %W %x %y
}
}
}
bind Text <B2-Motion> {
if {!$tk_strictMotif} {
tk::TextScanDrag %W %x %y
bind Text <B2-Motion> {
if {!$tk_strictMotif} {
tk::TextScanDrag %W %x %y
}
}
} else {
bind Text <3> {
if {!$tk_strictMotif} {
tk::TextScanMark %W %x %y
}
}
bind Text <B3-Motion> {
if {!$tk_strictMotif} {
tk::TextScanDrag %W %x %y
}
}
}
set ::tk::Priv(prevPos) {}
@@ -558,12 +571,7 @@ proc ::tk::TextButton1 {w x y} {
} else {
$w mark gravity $anchorname left
}
# Allow focus in any case on Windows, because that will let the
# selection be displayed even for state disabled text widgets.
if {[tk windowingsystem] eq "win32" \
|| [$w cget -state] eq "normal"} {
focus $w
}
focus $w
if {[$w cget -autoseparators]} {
$w edit separator
}