diff options
Diffstat (limited to 'library/demos/arrow.tcl')
| -rw-r--r-- | library/demos/arrow.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/library/demos/arrow.tcl b/library/demos/arrow.tcl index 5011f6f..12249c0 100644 --- a/library/demos/arrow.tcl +++ b/library/demos/arrow.tcl @@ -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 \ |