button={ label=Quit action=QUIT }

hbox={ name=noborder
message={ value="Directory:" }
field={ name=cwd value=`pwd` 
  action="SET name list 
               `cd $(cwd) 
                echo -n .* *`"
  }
}

vbox={ name=noborder
  list={ name=name label="NAMES" columns=2 height=300 width=400
    itemlist={ list=`echo  .* * ` separator=" " }
    test={ condition="test -f $(cwd)/$(val)"
           false={ action="ASSIGN cwd `cd $(cwd)/$(val); pwd`"
    		 action="SET name list `cd $(cwd); echo -n .* *`"
		 action="ASSIGN name "
           } 
    }
  }
  button={ label=Ok action="PRINT $(cwd)/$(name) \n" }
}
