#!./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();

