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, August 16, 1985 10:41:06 am PDT
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];
CDMenus.CreateEntry[$SpecialMenu, "move to grid", $MoveToGrid];
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, "save", $SaveDesign];
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.