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. ΎHelpStringsImpl.mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, July 2, 1991 1:58 pm PDT Christian Jacobi, March 9, 1992 5:48 pm PST Κ –(cedarcode) style•NewlineDelimiter ˜codešœ™Kšœ Οeœ1™