DIRECTORY MaintainDefs USING [CmdButton, CmdRef, MyData, SelectorInstance], Menus USING [MouseButton], PopUpButtons USING [Image, InstanceSpec], Rope USING [ROPE], TiogaOps USING [SearchDir], ViewerClasses USING [Column, MouseButton], ViewerTools USING [SelPos], XNSCredentials USING [XNSCredentialsChangeProc] ; MaintainProcs: CEDAR DEFINITIONS ~ { MyData: TYPE ~ MaintainDefs.MyData; SelectorInstance: TYPE ~ MaintainDefs.SelectorInstance; ROPE: TYPE ~ Rope.ROPE; AnotherProc: PROC [d: MyData, shift: BOOL ¬ FALSE, mb: ViewerClasses.MouseButton ¬ red]; ChangeLevel: PROC [clientData: MyData, value: ATOM]; CmdProc: PROC [o: REF ANY, cr: MaintainDefs.CmdRef, key: REF ANY]; CredentialsChange: XNSCredentials.XNSCredentialsChangeProc; DisplayThisButton: PROC [d: MyData, cb: MaintainDefs.CmdButton] RETURNS [BOOL]; FixUpMyData: PROC [si: SelectorInstance]; FixUpCase: PROC [r: ROPE] RETURNS[ROPE]; GetDirection: PROC [mb: Menus.MouseButton] RETURNS[sd: TiogaOps.SearchDir ¬ anywhere]; HelpProc: PROC [d: MyData]; ReplaceThisRope: PROC [r, d, n: ROPE, all: BOOL ¬ TRUE, case: BOOL ¬ TRUE, pos: INT ¬ 0] RETURNS [ROPE]; SetServerProc: PROC [d: MyData, atom: ATOM]; ShowCredentials: PROC [d: MyData, leader: ROPE ¬ ""]; StopProc: PROC [d: MyData]; TextLabelProc: PROC [d: MyData, o: REF ANY, button: Menus.MouseButton]; UpdateMapProc: PROC [d: MyData, atom: ATOM]; AmbushInstanceProc: TYPE ~ PROC [o: REF ANY, image: PopUpButtons.Image ¬ NIL, specImage: BOOL ¬ FALSE]; CaretOnlyProc: TYPE ~ PROC; ChangeLooksProc: TYPE ~ PROC [d: MyData, looks: CHAR]; ComputeColumnProc: TYPE ~ PROC [o: REF ANY]; CreateProc: TYPE ~ PROC [iconic: BOOL ¬ TRUE, column: ViewerClasses.Column ¬ right]; CreateButtonsProc: TYPE ~ PROC [d: MyData]; DestroyObjectProc: TYPE ~ PROC [o: REF ANY, paint: BOOL ¬ FALSE]; GetStreamsProc: TYPE ~ PROC [d: MyData, name: ROPE, backingFile: ROPE, editedStream: BOOLEAN]; GetContentsProc: TYPE ~ PROC [where: REF ANY, default: ROPE ¬ ""] RETURNS [contents: ROPE]; GetSelectedContentsProc: TYPE ~ PROC RETURNS [ROPE]; InhibitEditsProc: TYPE ~ PROC [where: REF ANY]; IsIconicProc: TYPE ~ PROC [o: REF ANY] RETURNS [BOOLEAN]; MoveObjectProc: TYPE ~ PROC [o: REF ANY, x, y, w, h: INT, paint: BOOL ¬ TRUE]; SetContentsProc: TYPE ~ PROC [o: REF ANY, what: ROPE]; SetOpenHeightProc: TYPE ~ PROC [o: REF ANY, hieght: INT]; SetSelectionProc: TYPE ~ PROC [o: REF ANY, selection: ViewerTools.SelPos]; ToSpecProc: TYPE ~ PROC [o: REF ANY] RETURNS [is: PopUpButtons.InstanceSpec]; TypeScriptResetProc: TYPE ~ PROC [where: REF ANY]; }. Τ MaintainProcs.mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Philip James, September 13, 1991 12:01 pm PDT Pjames, September 13, 1991 12:10 pm PDT Willie-s, January 7, 1992 3:05 pm PST Κ•NewlineDelimiter –(cedarcode) style™šœ™Jšœ Οeœ1™