diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-11 16:18:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-11 16:18:30 (GMT) |
| commit | b7bf7f89e709996e4f081e26ddf74f0f92a9a1a2 (patch) | |
| tree | 65b41b887f314420728e737492f1fb01f5f9edd6 /library/iconlist.tcl | |
| parent | 96b66d43c7d89c8cff44d9768c2d57bd4b4a7cdf (diff) | |
| download | tk-b7bf7f89e709996e4f081e26ddf74f0f92a9a1a2.zip tk-b7bf7f89e709996e4f081e26ddf74f0f92a9a1a2.tar.gz tk-b7bf7f89e709996e4f081e26ddf74f0f92a9a1a2.tar.bz2 | |
Proposed TIP #645 implementation
Diffstat (limited to 'library/iconlist.tcl')
| -rw-r--r-- | library/iconlist.tcl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/library/iconlist.tcl b/library/iconlist.tcl index 0c46a59..0b65464 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] @@ -405,7 +405,8 @@ package require tk set sbar [ttk::scrollbar $hull.sbar -orient horizontal -takefocus 0] catch {$sbar configure -highlightthickness 0} set canvas [canvas $hull.canvas -highlightthick 0 -takefocus 1 \ - -width 400 -height 120 -background white] + -width 400 -height 120\ + -background [ttk::style lookup Treeview -background {} white]] pack $sbar -side bottom -fill x -padx 2 -pady {0 2} pack $canvas -expand yes -fill both -padx 2 -pady {2 0} @@ -422,12 +423,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 [ttk::style lookup Treeview -foreground {} black] # Creates the event bindings. # |