diff options
| author | fvogel <fvogelnew1@free.fr> | 2023-09-02 09:27:03 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2023-09-02 09:27:03 (GMT) |
| commit | 0ca14ff12898827f056a6c3aa5bfc5badec11bec (patch) | |
| tree | f4d67c07422b2799e92fd5313093de40cdfa883a /library | |
| parent | e60c684ac99cf095a0f0d2a1c86815f24fe00eb7 (diff) | |
| download | tk-0ca14ff12898827f056a6c3aa5bfc5badec11bec.zip tk-0ca14ff12898827f056a6c3aa5bfc5badec11bec.tar.gz tk-0ca14ff12898827f056a6c3aa5bfc5badec11bec.tar.bz2 | |
Fix [4468ed16d3]: Iconlist: do not use options database for initial foreground text color. Patch from Christopher Chavez (for 8.6 only).
Diffstat (limited to 'library')
| -rw-r--r-- | library/iconlist.tcl | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index 6f46ba4..75a0741 100644 --- a/library/iconlist.tcl +++ b/library/iconlist.tcl @@ -377,7 +377,7 @@ package require Tk method DrawSelection {} { $canvas delete selection - $canvas itemconfigure selectionText -fill black + $canvas itemconfigure selectionText -fill $fill $canvas dtag selectionText set cbg [ttk::style lookup TEntry -selectbackground focus] set cfg [ttk::style lookup TEntry -selectforeground focus] @@ -422,12 +422,7 @@ package require Tk set noScroll 1 set selection {} set index(anchor) "" - set fg [option get $canvas foreground Foreground] - if {$fg eq ""} { - set fill black - } else { - set fill $fg - } + set fill black # Creates the event bindings. # |