
    <<CDMenuCommands.mesa   (part of ChipNDale)>>
        <<Copyright © 1984, 1986 by Xerox Corporation.  All rights reserved.>>
        <<by Christian Jacobi, July 11, 1983 3:42 pm >>
        <<Redesigned by Christian Jacobi, September 21, 1984 2:10:29 pm PDT >>
        <<last edited Christian Jacobi, February 24, 1986 1:55:51 pm PST>>
    DIRECTORY
        CDMenus, 
        CDSequencer,
        MBQueue,
        TerminalIO;

    CDMenuCommands: CEDAR PROGRAM
        IMPORTS CDMenus, CDSequencer, MBQueue, TerminalIO = 
    BEGIN

    FlushCommand: PROC [comm: CDSequencer.Command] =
        BEGIN
        TerminalIO.WriteRope["Flush command\n"]; 
        MBQueue.Flush[comm.design.queue];
        END;

    [] _ CDMenus.CreateMenu["Programs on Rects", $RectProgramMenu];
    [] _ CDMenus.CreateMenu["Additional Programs", $ProgramMenu];
    [] _ CDMenus.CreateMenu["Other Programs", $OtherProgramMenu];
    [] _ CDMenus.CreateMenu["Cell (s)", $CellMenu];
    [] _ CDMenus.CreateMenu["Global menu", $GlobalMenu];
    [] _ CDMenus.CreateMenu["Input / Output", $IOMenu];
    [] _ CDMenus.CreateMenu["Directory options", $DirectoryMenu];
    [] _ CDMenus.CreateMenu["Viewer options", $ViewerMenu];
    [] _ CDMenus.CreateMenu["Special commands", $SpecialMenu];
    [] _ CDMenus.CreateMenu["Hard copy", $HardCopyMenu];
    [] _ CDMenus.CreateMenu["Display options", $DisplayMenu];
    [] _ CDMenus.CreateMenu["Import and remote", $ImportMenu];

    CDMenus.CreateEntry[$OtherProgramMenu, "output", $IOMenu];

    CDMenus.CreateEntry[$SpecialMenu, "un-delete", $Undel];
    CDMenus.CreateEntry[$SpecialMenu, "abort command", $AbortCommand];
    CDMenus.CreateEntry[$SpecialMenu, "flush commands", $FlushCommand];
    CDMenus.CreateEntry[$SpecialMenu, "enforce panel", $EnforcePanel];
    CDMenus.CreateEntry[$SpecialMenu, "select all", $SelectAll];
    CDMenus.CreateEntry[$SpecialMenu, "de-select", $DeSelectS];
    CDMenus.CreateEntry[$SpecialMenu, "statistic", $Statistic];
    CDMenus.CreateEntry[$SpecialMenu, "move to grid", $MoveToGrid];
    CDMenus.CreateEntry[$SpecialMenu, "lengthen by w", $IncreaseByWidth];
    CDSequencer.ImplementCommand[$FlushCommand, FlushCommand,, dontQueue];

    CDMenus.CreateEntry[$ViewerMenu, "split", $SplitViewer];
    CDMenus.CreateEntry[$ViewerMenu, "grid", $GridInfo];
    CDMenus.CreateEntry[$ViewerMenu, "ticks", $TicksInfo];
    CDMenus.CreateEntry[$ViewerMenu, "view all", $ResetScaleAll];
    CDMenus.CreateEntry[$ViewerMenu, "view selected", $ResetScaleSel];
    CDMenus.CreateEntry[$ViewerMenu, "view top lev", $ResetScaleTop];
    CDMenus.CreateEntry[$ViewerMenu, "drawmode", $DrawMode];
    CDMenus.CreateEntry[$ViewerMenu, "simplification", $SetSimplification];

    CDMenus.CreateEntry[$GlobalMenu, "IO", $IOMenu];
    CDMenus.CreateEntry[$GlobalMenu, "directory", $DirectoryMenu];
    CDMenus.CreateEntry[$GlobalMenu, "cells", $CellMenu];
    CDMenus.CreateEntry[$GlobalMenu, "names ", $NameMenu];
    CDMenus.CreateEntry[$GlobalMenu, "programs", $ProgramMenu];
    CDMenus.CreateEntry[$GlobalMenu, "viewer", $ViewerMenu];
    CDMenus.CreateEntry[$GlobalMenu, "display", $DisplayMenu];
    CDMenus.CreateEntry[$GlobalMenu, "special", $SpecialMenu];

    CDMenus.CreateEntry[$CellMenu, "create", $CreateCellSAndName];
    CDMenus.CreateEntry[$CellMenu, "expand", $ExpandS];
    CDMenus.CreateEntry[$CellMenu, "push in", $PushS];
    CDMenus.CreateEntry[$CellMenu, "pop out", $PopMenu];
    CDMenus.CreateEntry[$CellMenu, "transform to", $TransformToCellS];
    CDMenus.CreateEntry[$CellMenu, "  DIRECTORY", $DirectoryMenu];

    CDMenus.CreateEntry[$DirectoryMenu, "list subset dir", $RestricedDisplayCellNames];
    CDMenus.CreateEntry[$DirectoryMenu, "list complete dir", $DisplayCellNames];
    CDMenus.CreateEntry[$DirectoryMenu, "prune subset dir", $DeleteUnUsedAutoObs];
    CDMenus.CreateEntry[$DirectoryMenu, "prune complete dir", $DeleteUnUsedObjects];
    CDMenus.CreateEntry[$DirectoryMenu, "remove ob from dir", $RemoveCell];
    CDMenus.CreateEntry[$DirectoryMenu, "replace ob", $Replace];
    CDMenus.CreateEntry[$DirectoryMenu, "list imports", $DisplayImports];
    CDMenus.CreateEntry[$DirectoryMenu, "list importee's ob", $DisplayImportedEntries];
    CDMenus.CreateEntry[$DirectoryMenu, "  CELLS", $CellMenu];

    CDMenus.CreateEntry[$IOMenu, "save", $SaveDesign];
    CDMenus.CreateEntry[$IOMenu, "output", $OutputDesign];
    CDMenus.CreateEntry[$IOMenu, "include", $IncludeADesign];
    CDMenus.CreateEntry[$IOMenu, "load import", $ImportADesign];
    CDMenus.CreateEntry[$IOMenu, "  DIRECTORY", $DirectoryMenu];
    CDMenus.CreateEntry[$IOMenu, "  IMPORTS", $ImportMenu];

    CDMenus.CreateEntry[$ImportMenu, "<X-space-mouse> is replaced by <X-Z-mouse>", $NoCommand];
    CDMenus.CreateEntry[$ImportMenu, "load import", $ImportADesign];
    CDMenus.CreateEntry[$ImportMenu, "list imports", $DisplayImports];
    CDMenus.CreateEntry[$ImportMenu, "list importee's ob", $DisplayImportedEntries];
    CDMenus.CreateEntry[$ImportMenu, "merge in import", $MerginImport];
    CDMenus.CreateEntry[$ImportMenu, "include", $IncludeADesign];


    CDMenus.ImplementMenuCommand[$RectProgramMenu, $RectProgramMenu];
    CDMenus.ImplementMenuCommand[$ProgramMenu, $ProgramMenu];
    CDMenus.ImplementMenuCommand[$OtherProgramMenu, $OtherProgramMenu];
    CDMenus.ImplementMenuCommand[$CellMenu, $CellMenu];
    CDMenus.ImplementMenuCommand[$GlobalMenu, $GlobalMenu];
    CDMenus.ImplementMenuCommand[$IOMenu, $IOMenu];
    CDMenus.ImplementMenuCommand[$DirectoryMenu, $DirectoryMenu];
    CDMenus.ImplementMenuCommand[$ViewerMenu, $ViewerMenu];
    CDMenus.ImplementMenuCommand[$DisplayMenu, $DisplayMenu];
    CDMenus.ImplementMenuCommand[$SpecialMenu, $SpecialMenu];
    CDMenus.ImplementMenuCommand[$HardCopyMenu, $HardCopyMenu];
    CDMenus.ImplementMenuCommand[$ImportMenu, $ImportMenu];
    END.