FinchTool.mesa
Last Edited by: Swinehart, September 9, 1985 0:25:17 am PDT
Last Edited by: Lia, August 4, 1983 11:40 am
Last Edited by: Pier, March 21, 1984 10:11:19 pm PST
Polle Zellweger (PTZ) October 16, 1985 4:41:39 pm PDT
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;
BuildDirectories:
PROC [];
DestroyDirectories: PROC [];
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];
FeepValue: PROC[text: ROPE] RETURNS [feepText: ROPE];
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
debug: BOOL←FALSE, -- currently controls intermediate speech reports
outer: Containers.Container ← NIL, -- handle for the enclosing container
calledPartyText: Viewer←NIL,
callingPartyText: 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
directories: LIST OF Viewer, -- White pages directories
finchActive: BOOL←FALSE, -- TRUE when connected to server
finchWasActive: BOOL←FALSE,
finchActiveAtCheckpoint: BOOL←FALSE, -- TRUE when . . . what it says
inExecCmd: BOOL←FALSE,
keepTwiddling: BOOL ← FALSE, -- TRUE while state = ringing,
twiddleWait: CONDITION,
finchToolHeight: NAT ← 64,
pauseTimeTilted: INT�, -- all times in milliseconds, all relate to Finch icon when
pauseTimeMiddle: INT𡤀, -- phone is ringing
pauseTimeOn: INT ← 4000, -- defaults to on all the time
pauseTimeDrawFactor: INT ← 40, -- time to draw icons
pauseTimeOff: INT ← 2000
];
}.
Polle Zellweger (PTZ) September 3, 1985 2:41:00 pm PDT
Add debug field to control intermediate speech reports.
changes to: FinchToolRec
Swinehart, September 6, 1985 7:32:53 am PDT
Eliminate status line in Finch Tool
changes to: FinchToolRec
Polle Zellweger (PTZ) October 16, 1985 4:41:39 pm PDT
changes to: FinchToolRec