#!./wafeperl

&wafe_cmd(<<'__');
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
__


&wafe_process_events();

