
<<CDMenuCommands.mesa   (part of ChipNDale)>>
<<Copyright © 1984, 1985 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, April 24, 1985 4:17:33 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["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.CreateEntry[$SpecialMenu, "un-delete", $Undel];
CDMenus.CreateEntry[$SpecialMenu, "abort command", $AbortCommand];
CDMenus.CreateEntry[$SpecialMenu, "flush commands", $FlushCommand];
<<-- CDMenus.CreateEntry[$SpecialMenu, "stop drawing", $StopDrawing];  - -does not really work>>
CDMenus.CreateEntry[$SpecialMenu, "enforce panel", $EnforcePanel];
CDMenus.CreateEntry[$SpecialMenu, "select all", $SelectAll];
CDMenus.CreateEntry[$SpecialMenu, "de-select", $DeSelectS];
CDMenus.CreateEntry[$SpecialMenu, "statistic", $Statistic];
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, "simplification", $CellSimplification];
CDMenus.CreateEntry[$CellMenu, "transform to", $TransformToCellS];
CDMenus.CreateEntry[$CellMenu, "  DIRECTORY", $DirectoryMenu];

CDMenus.CreateEntry[$DirectoryMenu, "list normal dir", $RestricedDisplayCellNames];
CDMenus.CreateEntry[$DirectoryMenu, "list complete dir", $DisplayCellNames];
CDMenus.CreateEntry[$DirectoryMenu, "clean up programmed", $DeleteUnUsedAutoObs];
CDMenus.CreateEntry[$DirectoryMenu, "clean up complete", $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, "output", $OutputDesign];
CDMenus.CreateEntry[$IOMenu, "load import", $ImportADesign];
CDMenus.CreateEntry[$IOMenu, "include", $IncludeADesign];
CDMenus.CreateEntry[$IOMenu, "list imports", $DisplayImports];
CDMenus.CreateEntry[$IOMenu, "merge in import", $MerginImport];
CDMenus.CreateEntry[$IOMenu, "  DIRECTORY", $DirectoryMenu];


CDMenus.ImplementMenuCommand[$RectProgramMenu, $RectProgramMenu];
CDMenus.ImplementMenuCommand[$ProgramMenu, $ProgramMenu];
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];
END.