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


%  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)
)


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]