#!../wafe --f
mergeResources topLevel \
	*Toggle.callback {sV infoLine label {Toggle '%w' active}} \
	*Label.borderWidth 0 \
        *background wheat

Form f topLevel translations {<Key>q: exec(quit)}
  Label infoLine f label "Press a Toggle!"
  Box b f orientation horizontal fromVert infoLine
    Toggle one   b state true
    Toggle two   b radioGroup one
    Toggle three b radioGroup one
    Toggle four  b radioGroup one
    Toggle five  b radioGroup one
realize
sV infoLine resizable true width [gV b width]
sV infoLine resizable false

