Tk Source Code

Artifact b4208a6dedfb9a54e6016c3d0377c2c5442020f04d4206dc674eef9bfd8838c9:

Attachment "abc.tcl" to ticket [06d8246b] added by marc_culler 2020-06-03 13:02:31.

---

set delay 300
font create myfont -family Helvetica -size 28 -weight bold

ttk::button .b -text push
grid .b -sticky news

foreach {w t} {.l1 A .l2 B .l3 C} {
    label $w -width 3 -height 2 -background black \
	-foreground white -text $t -font myfont
    grid $w -sticky news
}
grid columnconfigure . all -weight 1
grid rowconfigure . 1 -weight 1

.b configure -command {
    foreach w {.l1 .l2 .l3} {$w configure -background blue}
    after $delay "
	foreach w {.l1 .l2 .l3} {\$w configure -background red}
	after $delay {
	    .l1 configure -background green
	    .l3 configure -background green
	    after idle {.l2 configure -background green}
	}
    "
}