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

Import Tk 8.6.10

Browse Source
This commit is contained in:
Steve Dower
2020-09-24 22:55:34 +01:00
parent 5ba5cbc9af
commit 42c69189d9
365 changed files with 24323 additions and 12832 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
library/demos/arrow.tcl
View File

@@ -135,9 +135,13 @@ set demo_arrowInfo(y) 150
set demo_arrowInfo(smallTips) {5 5 2}
set demo_arrowInfo(count) 0
if {[winfo depth $c] > 1} {
set demo_arrowInfo(bigLineStyle) "-fill SkyBlue1"
set demo_arrowInfo(boxStyle) "-fill {} -outline black -width 1"
set demo_arrowInfo(activeStyle) "-fill red -outline black -width 1"
if {[tk windowingsystem] eq "aqua"} {
set demo_arrowInfo(bigLineStyle) "-fill systemSelectedTextBackgroundColor"
} else {
set demo_arrowInfo(bigLineStyle) "-fill LightSeaGreen"
}
set demo_arrowInfo(boxStyle) "-fill {} -width 1"
set demo_arrowInfo(activeStyle) "-fill red -width 1"
} else {
# Main widget program sets variable tk_demoDirectory
set demo_arrowInfo(bigLineStyle) "-fill black \