function k = menu_cell(header, cell_of_strings)
% menu_cell generalises MENU to take a cell of strings instead of just strings.
%     Example
% k = menu_cell('Choose a color', {'Red', 'Blue', 'Green'})
%
%  NOTE: menu_cell is superfluous since menu now does the same thing.

% $Id: menu_cell.m,v 1.1 1998/03/19 00:05:24 mansbrid Exp mansbrid $
% Copyright J. V. Mansbridge, CSIRO, Fri Sep 19 18:15:34 EST 1997

str = ['k = menu(''' header ''''];
for ii = 1:length(cell_of_strings)
  str = [str ', cell_of_strings{' num2str(ii) '}'];
end
str = [str ');'];
eval(str)
