Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tablelist: Minor improvements in tablelistThemes.tcl. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
01f87a1b5bfee04121ae0589ad1d309f |
| User & Date: | csaba 2025-07-02 09:03:52.044 |
Context
|
2025-07-02
| ||
| 09:53 | Tablelist: A few updates in the Programmer's Guide. check-in: 2e4ef79bdd user: csaba tags: trunk | |
| 09:03 | Tablelist: Minor improvements in tablelistThemes.tcl. check-in: 01f87a1b5b user: csaba tags: trunk | |
|
2025-07-01
| ||
| 11:15 | Tsw: Updated for version 1.2. See the ChangeLog for details. check-in: be1246b673 user: csaba tags: trunk | |
Changes
Changes to modules/tablelist/scripts/tablelistThemes.tcl.
| ︙ | ︙ | |||
143 144 145 146 147 148 149 |
}
set fg [styleConfig . -foreground]
set disabledFg [lindex [style map . -foreground] 1]
set labelBg [styleConfig Heading -background]
set labelactiveBg [styleConfig Heading -lightcolor]
switch $theme {
| | | | 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 |
}
set fg [styleConfig . -foreground]
set disabledFg [lindex [style map . -foreground] 1]
set labelBg [styleConfig Heading -background]
set labelactiveBg [styleConfig Heading -lightcolor]
switch $theme {
awblack - black { set stripeBg "#2e2e2e" }
awclearlooks - clearlooks -
awwinxpblue - winxpblue {
scan [styleConfig . -background] "#%2x%2x%2x" r g b
incr r 8; incr g 8; incr b 8
set stripeBg [format "#%02x%02x%02x" $r $g $b]
}
default {
scan $bg "#%2x%2x%2x" r g b
if {[mwutil::isColorLight $bg]} {
incr r -15; incr g -15; incr b -15
} else {
incr r 23; incr g 23; incr b 23
}
set stripeBg [format "#%02x%02x%02x" $r $g $b]
}
}
variable svgSupported
variable scalingpct
|
| ︙ | ︙ |