DIRECTORY Buttons USING[ ButtonProc, Create ], EditToolPrivate USING[ mainToolInfo, DoButton ], Rope USING[ ROPE ], ViewerTools USING [SetContents]; MultiSub: CEDAR MONITOR IMPORTS Buttons, EditToolPrivate, ViewerTools = BEGIN Substitute: PROC[target, source: Rope.ROPE] = BEGIN ViewerTools.SetContents[EditToolPrivate.mainToolInfo.targetArg, target]; ViewerTools.SetContents[EditToolPrivate.mainToolInfo.sourceArg, source]; EditToolPrivate.DoButton[redList: LIST[$DoSubstitute]]; END; DoMultiSub: ENTRY Buttons.ButtonProc = BEGIN Substitute["Environment", "PrincOps"]; Substitute["PSB", "PrincOps"]; Substitute["Inline", "PrincOpsUtils"]; Substitute["Runtime", "PrincOpsUtils"]; Substitute["Frame", "PrincOpsUtils"]; Substitute["ProcessInternal", "PrincOpsUtils"]; Substitute["SystemInternal", "NSAddress"]; Substitute["BodyDefs", "GVBasics"]; Substitute["NameInfoDefs", "GVNames"]; Substitute["LocateDefs", "GVLocate"]; Substitute["ProtocolDefs", "GVProtocol"]; Substitute["RetrieveDefs", "GVRetrieve"]; Substitute["RetrieveXDefs", "GVRetrieveInternal"]; Substitute["SendDefs", "GVSend"]; END; [] _ Buttons.Create[info: [name: "MultiSub"], proc: DoMultiSub]; END. :MultiSub.mesa Andrew Birrell May 19, 1983 3:44 pm Ê!˜Jšœ ™ J™$J˜šÏk ˜ Jšœœ˜$Jšœœ˜0Jšœœœ˜Jšœœ˜ —J˜šœ œ˜Jšœ(˜/—J˜Jš˜J˜šÏn œœœ˜-Jš˜J˜HJ˜HJšœ"œ˜7Jšœ˜—J˜šœœ˜&Jš˜J˜&J˜J˜&J˜'J˜%J˜/J˜J˜*J˜J˜#J˜&J˜%J˜)J˜)J˜2J˜!J˜Jšœ˜—J˜J˜@J˜Jšœ˜J˜—…—šõ