Posted to tcl by Stu at Sat May 20 16:55:33 GMT 2023view pretty
B B; .B0 -text \u2191\u2193\u2190\u2192 -underline 0 -command { apply {{} { \ set u [/B0/ cget -underline] \; \ if {[incr u] > 3} {set u 0} \; \ /B0/ configure -underline $u \; \ /B1/ configure -text [string index [/B0/ cget -text] [/B0/ cget -underline]] \ }}} .B1 -text \u2191 -command {puts [/B0/ cget -underline]}