<> <> <> <> <<>> DIRECTORY HelpStrings; HelpStringsImpl: CEDAR MONITOR EXPORTS HelpStrings ~ BEGIN OPEN HelpStrings; <<>> noHelpClass: REF HelpStrings.ClassRec ~ NEW[HelpStrings.ClassRec ¬ [ display: NoDisplay, clear: NoDisplay, makeVisible: NoVisble, hide: NoVisble, more: NIL ]]; NoDisplay: PROC [h: HelpStrings.Handle, string: REF, key: REF ¬ NIL] = {}; NoVisble: PROC [h: HelpStrings.Handle, data: REF] = {}; NoHelp: PUBLIC PROC [] RETURNS [h: Handle] = { RETURN [NEW[HelpStrings.HandleRec ¬ [noHelpClass, NIL]]] }; Display: PUBLIC PROC [h: Handle, string: REF, key: REF ¬ NIL] = { IF h#NIL THEN h.class.display[h, string, key] }; <<>> Clear: PUBLIC PROC [h: Handle, string: REF ¬ NIL, key: REF ¬ NIL] = { IF h#NIL THEN h.class.clear[h, string, key] }; MakeVisible: PUBLIC PROC [h: Handle, data: REF ¬ NIL] = { IF h#NIL THEN h.class.makeVisible[h, data] }; Hide: PUBLIC PROC [h: Handle, data: REF ¬ NIL] = { IF h#NIL THEN h.class.hide[h, data] }; END.