Artifact 051df54de08ac4b4662826bf3c798263dad5ae43f5313ba64de2b61334c95e87:


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