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;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];	}.  @  FinchTool.mesaLast Edited by: Swinehart, November 2, 1983 9:05 amLast Edited by: Lia, August 4, 1983 11:40 am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. Э╩X  Ш JЩJЩ3JЪ╧k,Щ,ЪЭ	Ш	JШJШJШJШJШJШJЪЬЭЬЭЬШJШJЪЬЭЬШJШЧJШ JЪЬЭЬЭЬЭЬШ/JШ JЪЭЬЭЬЭЬШJЪЬЭЬШ$JШ JШ Ъ╧nЬЭШJЪ	ЬЭЬЭЬ	ЭЬЭЬШDJЪЭЬШ#ЧJШ ЪЮЬЭЬШJЪЬЭЬ)ЭЬЭЬШMJШ ЧЪЮЬЭЬШJЪЬЭЬ+ШGJЪЬЭЬЭЬЭЬ
ЭЬЭЬ	ЭЬШ;JЪЬ	ЭЬЭЬ)Ш=JЪЭЬШЧJШ ЪЮЬЭЬШJЪЬЭЬ(ШDJЪЬЭЬЭЬЭЬ
ЭЬЭЬ	ЭЬШ;JЪ	Ь	ЭЬЭЬ3ЭЬЭЬШSJЪЭЬШЧJШ JЪЮЬЭЬЭЬЭЬШ/JЪЮ
ЬЭЬЭЬШJЪЮЬЭЬЭЬЭЬШ/JШ JЪЮЬЭЬЭЬЭЬШ2JШ JЪ
ЮЬЭЬЭЬЭЬЭЬШAJШ JЪЮЬШJЪЮЬШJШ JЪЮ
ЬЭЬШJЪЮ	ЬЭЬШJШ JЩMJЩYJЩ JЪ
ЮЬЭЬЭЬЭЬЭЬШBJШ JШJШJШ IunitЪЬЭЬЭЬ╧c╨ckЯ]ШЖprocЪЬЭЬЭЬЯ+ШHJЪЬЭЬЯ%ШHJЪЬЭЬЯШ0JЪЬЭЬШJЪЬЭЬЯ"Ш<JЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬЭЬШJЪЬЯ,ШDJЪЬЯШ-JЪЬЭЬЭЬЯ Ш9JЪЬЭЬЭШJЪЬЭЬЭЬЯШDJЪЬЭЬЭШJЪЬШЧJШ JШЧ ЕЧ    а  8  