CDCommandOpsExtras2.mesa (part of ChipNDale)
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, August 24, 1986 4:52:29 pm PDT
Last edited by: Christian Jacobi, August 25, 1986 10:38:58 am PDT
DIRECTORY
CD,
CDSequencer,
Rope;
CDCommandOpsExtras2: CEDAR DEFINITIONS =
BEGIN
More various procedures to ease implementing commands
RegisterWithMenu: PROC [menu: REF←NIL, entry: Rope.ROPE←NIL, doc: Rope.ROPE←NIL, key: ATOM←NIL, proc: CDSequencer.CommandProc←NIL, queue: CDSequencer.QueueMethod𡤍oQueue, tech: CD.Technology←NIL];
--pure conveniance
--Fetches a menu, installs an entry and implements a command with CDSequencer
--menu: pop-up menu, or NIL
--entry: entry line for pop up menu
--doc: documentation
--key: command key (as in tip table, pop-up menu)
--proc #NIL: registers proc with CDSequencer
--proc NIL: registration of menu entry only
--queue: method how proc is called
--tech: (NIL for all technologies); used for command registration but not for menu
--There are two classes of tools
-- Standard tools register commands with CDSequencer,
-- they do not make PopUp menus themself  
-- Fancy tools might not be included in the PopUp menu table file
-- they might consider registering a menu themself, after they are loaded  
END.