environment a
initialshells:b
{
    menu b
    (
	button "Texts With Actions" 
	    popup:texts
	    ;
	button "Radio With Actions" 
	    popup:radio
	    ;
	button "Toggle With Actions" 
	    popup:toggles
	    ;
	button "Quit" 
	    exit:0
	    ;
    )
    commandboard texts
       pane:on
       panetype:squish
       setVAR:""
    (
	textentry TESTIT
	    valuestring:"This is a test"
	    setVAR:"${VAR}[TESTIT]"
	    ;
	button ShowValue
	    runforeground:"echo $VAR"
	    ;
    )
    commandboard radio
       pane:on
       panetype:squish
       setVAR:""
    (
	toggle TOGTEST
	    toggletype:radio
	    listelement:"A Radio Test"
	    valuestring:"echo This is A Test"
	    listelement:"Not Radio A Test"
	    valuestring:"echo This is Not A Test"
	    runforeground:"[TOGTEST]"
	    ;
    )
    commandboard toggles
       pane:on
       panetype:squish
       setVAR:""
    (
	toggle TOGTEST2
	    listseparator:";"
	    listelement:"A Test"
	    valuestring:"echo This is A Test"
	    listelement:"Not A Test"
	    valuestring:"echo This is Not A Test"
	    listelement:"Do an \"ls\" as well"
	    valuestring:"ls"
	    runforeground:"[TOGTEST2]"
	    ;
    )
}
