--CDDialogueImpl.mesa (part of Chipndale)
--by Christian Jacobi July 19, 1983 5:08 pm
--last edited by Christian Jacobi November 18, 1983 11:48 am
DIRECTORY
CDDialogue,
CD,
CDVPrivate;
CDDialogueImpl:
CEDAR
PROGRAM
IMPORTS CDVPrivate
EXPORTS CDDialogue =
BEGIN
ShowPosition:
PUBLIC
PROC [design:
CD.Design, pos:
CD.DesignPosition] =
{CDVPrivate.ShowArrow[design, pos]};
UndoShowPosition:
PUBLIC
PROC[design:
CD.Design] =
{CDVPrivate.RemoveArrow[design]};
END.