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.