Tk Source Code

Changes On Branch tip-645
Login

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

Changes In Branch tip-645 Excluding Merge-Ins

This is equivalent to a diff from 1073062f to bc842ffe

2023-08-01
19:34
Fix [4736b9f290]: Bug in tk_setPalette in connection with TIP 645 ('ttk color palette support'). Patch from Csaba Nemethi. check-in: 86956e5d user: fvogel tags: trunk, main
19:33
Fix [4736b9f290]: Bug in tk_setPalette in connection with TIP 645 ('ttk color palette support'). Patch from Csaba Nemethi. Closed-Leaf check-in: bc842ffe user: fvogel tags: tip-645, bug-4736b9f290
19:31
merge trunk check-in: f4a2486e user: fvogel tags: tip-645
2023-07-31
15:33
merge trunk check-in: 0d2e9771 user: dgp tags: core-8-7-b1-rc
2023-07-29
19:41
Minor improvements in the Widget Demo. check-in: 1073062f user: csaba tags: trunk, main
2023-07-26
21:22
Fix [ed9b28d478]: Aqua: fix improper Tcl value reference counts in GetWidgetDemoPath(). Patch from Christopher Chavez. check-in: ff7ffd3b user: fvogel tags: trunk, main

Changes to library/palette.tcl.

149
150
151
152
153
154
155




156
157
158
159
160
161
162
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166







+
+
+
+







	option add *$option $new($option) widgetDefault
    }

    # Save the options in the variable ::tk::Palette, for use the
    # next time we change the options.

    array set ::tk::Palette [array get new]

    if {[tk windowingsystem] ne "x11" || [ttk::style theme use] ne "default"} {
	return
    }

    # Update the 'default' ttk theme with the new palette,
    # and then set 'default' as the current ttk theme,
    # in order to apply the new palette to the ttk widgets.

    foreach option [array names new] {
	if {[info exists ttk::theme::default::colorOptionLookup($option)]} {