environment a
initialshells:b
{
    menu b
    (
	button "Toggle (orientation) pack" 
	    setPACK:"pack"
	    popup:toggles_orient
	    ;
	button "Toggle (orientation) squish" 
	    setPACK:"squish"
	    popup:toggles_orient
	    ;
	button "Toggle (orientation) none" 
	    setPACK:"none"
	    popup:toggles_orient
	    ;
	button "Toggle (orientation) none 2 columns" 
	    popup:toggles_orient2
	    ;
	button "Quit" 
	    exit:0
	    ;
    )
    commandboard toggles_orient
       pane:on
       panetype:"$PACK"
    (
	toggle Horizontal
	    orientation:horizontal
	    listelement:alpha
	    listelement:beta
	    listelement:cats
	    ;
	toggle Vertical
	    toggletype:radio
	    orientation:vertical
	    listelement:a
	    listelement:b
	    listelement:c
	    ;
    )
    commandboard toggles_orient2
       pane:on
       panetype:"none"
       columns:2
    (
	toggle Horizontal
	    x:35
	    orientation:horizontal
	    listelement:alpha
	    listelement:beta
	    listelement:cats
	    ;
	toggle Vertical
	    toggletype:radio
	    orientation:vertical
	    listelement:a
	    listelement:b
	    listelement:c
	    ;
    )
}
}
