environment a
initialshells:b
{
    menu b
    (
	button "Multiline" 
	    popup:multi
	    ;
	button "Search" 
	    setFOO:"!phone dave"
	    updateobject:"multi:TESTITSCROLLED:$FOO"
	    ;
	button "Quit" 
	    exit:0
	    ;
    )
    commandboard multi
       pane:on
    (
	multiline TESTIT
	    rows:24
	    columns:80
	    ;
	multiline TESTITSCROLLED
	    scrolled:true
	    rows:24
	    columns:80
	    valuestring:"This is a test of the emrgency broadcat system"
	    ;
    )
}
