<> <> <> <> <<>> <> <> <<>> HelpStrings: CEDAR DEFINITIONS ~ BEGIN <<>> Handle: TYPE = REF HandleRec; <> HandleRec: TYPE = RECORD [ class: REF ClassRec, data: REF ]; ClassRec: TYPE = RECORD [ display: PROC [h: Handle, string: REF, key: REF ¬ NIL], clear: PROC [h: Handle, string: REF, key: REF ¬ NIL], makeVisible: PROC [h: Handle, data: REF ¬ NIL], hide: PROC [h: Handle, data: REF ¬ NIL], more: REF ]; Display: PROC [h: Handle, string: REF, key: REF ¬ NIL]; <> <<>> Clear: PROC [h: Handle, string: REF ¬ NIL, key: REF ¬ NIL]; <> MakeVisible: PROC [h: Handle, data: REF ¬ NIL]; <> <> Hide: PROC [h: Handle, data: REF ¬ NIL]; <> <> NoHelp: PROC [] RETURNS [h: Handle]; <> END.