FinchTool.mesa
Last Edited by: Swinehart, November 2, 1983 9:05 am
Last Edited by: Lia, August 4, 1983 11:40 am
DIRECTORY
Buttons,
Containers,
IO,
Labels,
MBQueue USING [ Queue ],
Menus,
Rope USING [ ROPE ],
VFonts,
ViewerClasses USING [ Viewer ]
;
FinchTool: CEDAR DEFINITIONS IMPORTS VFonts = {
ROPE: TYPE = Rope.ROPE;
Viewer: TYPE = ViewerClasses.Viewer;
BuildDirectoryDisplayer:
PROC [
directoryName: Rope.ROPE, viewerName: Rope.ROPE, shift: BOOL← FALSE]
RETURNS[msV: ViewerClasses.Viewer];
DisplayDirectoryInViewer:
PROC[
directoryName: Rope.ROPE, msViewer: ViewerClasses.Viewer, shift: BOOL←FALSE];
FirstButton:
PROC[
q: MBQueue.Queue, name: ROPE, proc: Buttons.ButtonProc, parent: Viewer,
data: REF ANY← NIL, border: BOOL← FALSE, width: INTEGER← 0,
guarded: BOOL← FALSE, font: VFonts.Font ← VFonts.defaultFont]
RETURNS [nV: Viewer];
AnotherButton:
PROC[
q: MBQueue.Queue, name: ROPE, proc: Buttons.ButtonProc, sib: Viewer,
data: REF ANY← NIL, border: BOOL← FALSE, width: INTEGER← 0,
guarded: BOOL← FALSE, font: VFonts.Font ← VFonts.defaultFont, newLine: BOOL← FALSE]
RETURNS [nV: Viewer];
Report: PROC[msg1, msg2, msg3, msg4: ROPE←NIL];
ReportRope: PROC[msg1: ROPE];
Status: PROC[msg1, msg2, msg3, msg4: ROPE←NIL];
CheckAborted: PROC[sib: Viewer] RETURNS[ok: BOOL];
CheckActive: PROC[handle: Handle] RETURNS [ active: BOOL←FALSE ];
Stop: Menus.MenuProc;
Hangup: Menus.MenuProc;
StartFinch: PROC;
StopFinch: PROC;
description is a name or number; look for it everywhere that makes any sense.
Residence is a hint, when description is a name, to use a home rather than office number.
Place a call to resulting party.
CallByDescription: PROC[description: ROPE, residence: BOOL←FALSE];
finchQueue: MBQueue.Queue;
finchToolHandle: Handle;
Handle: TYPE = REF FinchToolRec; -- a REF to the data for a particular instance of the sample tool; multiple instances can be created.
FinchToolRec:
TYPE =
RECORD [
-- the data for a particular tool instance
outer: Containers.Container ← NIL, -- handle for the enclosing container
status: Labels.Label←NIL, -- current status line
calledPartyText: Viewer←NIL,
typescript: Viewer ← NIL, -- typescript for Finch activities
tsIn: IO.STREAM←NIL,
tsOut: IO.STREAM ← NIL,
conversations: Viewer, -- Log of active and completed conversations
directory: Viewer, -- user's main directory
finchActive: BOOL←FALSE, -- TRUE when connected to server
finchWasActive: BOOL←FALSE,
finchActiveAtCheckpoint: BOOL←FALSE, -- TRUE when . . . what it says
inExecCmd: BOOL←FALSE
];
}.