Tk Library Source Code

Check-in [8723831003]
Login
Core Home Blog Docs Downloads Tickets Timeline Branches Tags Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tsw: Corrected a typo.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 872383100361e9ac05eabafe0cfc444fcf15d5a7a626d06515069ad81f623bd3
User & Date: csaba 2025-07-24 17:16:42.949
Context
2025-07-25
18:39
Tsw: Optimized the resource management. check-in: 141f0f50ca user: csaba tags: trunk
2025-07-24
17:16
Tsw: Corrected a typo. check-in: 8723831003 user: csaba tags: trunk
17:11
Tsw: Minor improvements. check-in: a5d49dd445 user: csaba tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/tsw/scripts/toggleswitch.tcl.
︙︙
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

	    default {
		set fg [ttk::style lookup . -foreground {} black]
		if {[mwutil::isColorLight $fg] ||
		    [string match -nocase *dark* $theme]} {
		    set mod "Dark"
		}

		ttk::style theme settings default { CreateElements_default$mod }
		foreach n {1 2 3} {
		    ttk::style element create ${mod}Switch$n.trough from default
		    ttk::style element create ${mod}Switch$n.slider from default
		}
	    }
	}
	set elemInfoArr($themeMod) 1








|








120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

	    default {
		set fg [ttk::style lookup . -foreground {} black]
		if {[mwutil::isColorLight $fg] ||
		    [string match -nocase *dark* $theme]} {
		    set mod "Dark"
		}

		ttk::style theme settings default { createElements_default$mod }
		foreach n {1 2 3} {
		    ttk::style element create ${mod}Switch$n.trough from default
		    ttk::style element create ${mod}Switch$n.slider from default
		}
	    }
	}
	set elemInfoArr($themeMod) 1
︙︙
This page was generated in about 0.011s by Fossil 2.27 [a6d506ecc4] 2025-07-09 13:52:53