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
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.