[Indigo]<Chipndale>5.2>cd20>CDMenuCommands.mesa!4

CDMenuCommands.mesa (part of ChipNDale)

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.