diff options
| author | culler <culler> | 2024-06-04 18:46:34 (GMT) |
|---|---|---|
| committer | culler <culler> | 2024-06-04 18:46:34 (GMT) |
| commit | ce6a5945cca949ab5db2ce0ec8a534f4a5fcdd45 (patch) | |
| tree | f5223141098060e42344601e476737b975e604b0 /library | |
| parent | 8a64061d4a91cfc949aa598b67d455bc5e7e0566 (diff) | |
| download | tk-ce6a5945cca949ab5db2ce0ec8a534f4a5fcdd45.zip tk-ce6a5945cca949ab5db2ce0ec8a534f4a5fcdd45.tar.gz tk-ce6a5945cca949ab5db2ce0ec8a534f4a5fcdd45.tar.bz2 | |
Cleanup
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/mac_styles.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/demos/mac_styles.tcl b/library/demos/mac_styles.tcl index 3fff03c..804b5c0 100644 --- a/library/demos/mac_styles.tcl +++ b/library/demos/mac_styles.tcl @@ -245,16 +245,16 @@ if { [wm attributes $w -isdark] } { } proc beLight {f w} { wm attributes $w -appearance aqua - $f.dark state !selected - $f.light state selected - after 10 $f.light state !hover + # A small delay is needed for the appearance change to complete. + after 10 [list $f.dark state !selected] + after 10 [list $f.light state selected] } proc beDark {f w} { wm attributes $w -appearance darkaqua - $f.light state !selected - $f.dark state selected - after 10 $f.dark state !hover + # A small delay is needed for the appearance change to complete. + after 10 [list $f.light state !selected] + after 10 [list $f.dark state selected] } $w.notebook add $appearanceFrame -text "Appearance" |