diff options
| author | culler <culler> | 2019-04-08 19:19:00 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-04-08 19:19:00 (GMT) |
| commit | 5d5e59d73025a9282d60db4092a176d307a9f63e (patch) | |
| tree | 3ab3ec2399ae2336e5b05e2ba0608ac5d372eaae /library/demos | |
| parent | e5d4eeb37219de1ae1083da63410504618ed3557 (diff) | |
| download | tk-5d5e59d73025a9282d60db4092a176d307a9f63e.zip tk-5d5e59d73025a9282d60db4092a176d307a9f63e.tar.gz tk-5d5e59d73025a9282d60db4092a176d307a9f63e.tar.bz2 | |
Make Treeview headings look correct in both light and dark modes. Make ordinary
ttk widgets respond to dark mode by using semantic color defaults.
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/ttkpane.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/ttkpane.tcl b/library/demos/ttkpane.tcl index 7575d76..3f88987 100644 --- a/library/demos/ttkpane.tcl +++ b/library/demos/ttkpane.tcl @@ -104,7 +104,7 @@ if {[tk windowingsystem] ne "aqua"} { pack $w.outer -fill both -expand 1 } else { text $w.txt -wrap word -yscroll "$w.sb set" -width 30 -borderwidth 0 - scrollbar $w.sb -orient vertical -command "$w.txt yview" + ttk::scrollbar $w.sb -orient vertical -command "$w.txt yview" pack $w.sb -side right -fill y -in $w.outer.inRight.bot pack $w.txt -fill both -expand 1 -in $w.outer.inRight.bot pack $w.outer -fill both -expand 1 -padx 10 -pady {6 10} |