Posted to tcl by stwo at Sun May 12 13:42:10 GMT 2019view pretty

Guhb:

f b
.b0 -text a
@f0 q
>q
b
.b0 -text b
>q
b
.b0 -text c


Yields:

grid [frame .f0 ] -row 1 -column 0
grid [button .f0.b0 -text a] -row 0 -column 0
grid [button .f0.b1 -text b] -row 1 -column 0
grid [button .f0.b2 -text c] -row 2 -column 0