File psl-1983/glisp/menu.sl artifact 051df54de0 part of check-in eb17ceb7f6

%  MENU.SL.1
%  Abstract datatype for Menu operations.
%  G. Novak     31 Jan. 83


(glispobjects

(menu (listobject (items (listof atom)))
  msg ((create menu-create)
       (select menu-select)))

)

% Initialize a menu which has been newly created.
(dg menu-create (m:menu))

% Ask the user for a selection from a menu.
(dg menu-select (m:menu)
)