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
	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]





    # 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)]} {







>
>
>
>







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)]} {