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

8
amd64/lib/tk8.6/console.tcl
View File

@@ -131,7 +131,7 @@ proc ::tk::ConsoleInit {} {
default { set preferred {} }
}
foreach {family size} $preferred {
if {[lsearch -exact $families $family] != -1} {
if {$family in $families} {
font configure TkConsoleFont -family $family -size $size
break
}
@@ -592,7 +592,7 @@ proc ::tk::ConsoleBind {w} {
}
bind Console <F9> {
eval destroy [winfo child .]
source [file join $tk_library console.tcl]
source -encoding utf-8 [file join $tk_library console.tcl]
}
if {[tk windowingsystem] eq "aqua"} {
bind Console <Command-q> {
@@ -740,9 +740,9 @@ proc ::tk::console::FontchooserToggle {} {
}
proc ::tk::console::FontchooserVisibility {index} {
if {[tk fontchooser configure -visible]} {
.menubar.edit entryconfigure $index -label [msgcat::mc "Hide Fonts"]
.menubar.edit entryconfigure $index -label [::tk::msgcat::mc "Hide Fonts"]
} else {
.menubar.edit entryconfigure $index -label [msgcat::mc "Show Fonts"]
.menubar.edit entryconfigure $index -label [::tk::msgcat::mc "Show Fonts"]
}
}
proc ::tk::console::FontchooserFocus {w isFocusIn} {