DIRECTORY
Buttons USING [Button],
ChoiceButtons USING [EnumTypeRef],
IO USING [STREAM],
IPMaster USING [Version],
Rope USING [ROPE],
ViewerClasses USING [Viewer],
XNSPrint USING [Properties, StatusChangedProc],
XTSetter;

XTSetterPrivate: CEDAR DEFINITIONS

~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
STREAM: TYPE ~ IO.STREAM;
Viewer: TYPE ~ ViewerClasses.Viewer;
Properties: TYPE ~ XNSPrint.Properties;

Options: TYPE ~ XTSetter.Options;
OptionsRep: TYPE ~ XTSetter.OptionsRep;
Screen: TYPE ~ XTSetter.Screen;
Info: TYPE ~ XTSetter.Info;
InfoRep: TYPE ~ XTSetter.InfoRep;
ProductionProgressProc: TYPE ~ XTSetter.ProductionProgressProc;
IPProducer: TYPE ~ XTSetter.IPProducer;
PrinterVersion: TYPE ~ REF PrinterVersionRep;
PrinterVersionRep: TYPE ~ RECORD [
version: IPMaster.Version, -- what IP level the printer supports
mayCompress: BOOL, -- TRUE if printer supports compressed masters (Zipper/Quoth style)
shouldCompress: BOOL, -- TRUE if compression should be defaulted (Zipper style)
hasPressFonts: BOOL -- TRUE if printer has press fonts
];

Tool: TYPE ~ REF ToolRep;
ToolRep: TYPE ~ MONITORED RECORD [
printerName: ROPE, -- name of printer associated to this tool
version: PrinterVersion, -- Version understood by this printer
printerProperties: Properties, -- what the printer knows to do
feedBack: STREAM, -- output only, to viewer typescript
viewer: Viewer, -- the top-level tool viewer
currentOptions: Options м NIL,
optionsViewer: Viewer,
optionsStaple, optionsTwoSided, optionsKeepIP, optionsCompress: BoolButton,
optionsCopies, optionsFirstpage, optionsLastpage: IntButton,
optionsDevice: RopeButton,
optionsStyle: RopeButton,
optionsScale: RealButton,
optionsPaper: ChoiceButtons.EnumTypeRef,
printerStatusViewer: Viewer,
printerStatusMedia, printerStatusSpooler, printerStatusFormatter, printerStatusMarkingEngine: Viewer,
printerStatusTimer: CONDITION,
requestStatusContainer, requestStatusRule: Viewer,
unique: INT м 0
];

BoolButtonActionProc: TYPE ~ PROC [state: BoolButton];
BoolButton: TYPE ~ REF BoolButtonRep;
BoolButtonRep: TYPE ~ RECORD [
button: Buttons.Button,
flag: BOOL, -- The current value of the button
trueStyle: ATOM, -- how to display the TRUE value
click: BoolButtonActionProc -- optional call-back on click
];

IntButton: TYPE ~ REF IntButtonRep;
IntButtonRep: TYPE ~ RECORD [
button: Buttons.Button,
default: INT,
text: Viewer -- Private: the viewer that contains the number
];

RealButton: TYPE ~ REF RealButtonRep;
RealButtonRep: TYPE ~ RECORD [
button: Buttons.Button,
default: REAL,
text: Viewer -- Private: the viewer that contains the number
];

RopeButton: TYPE ~ REF RopeButtonRep;
RopeButtonRep: TYPE ~ RECORD [
button: Buttons.Button,
defaults: LIST OF ROPE,
text: Viewer -- Private: the viewer that contains the current rope
];

StatusReport: TYPE ~ REF StatusReportRep;
StatusReportRep: TYPE ~ RECORD [
tool: Tool, -- back pointer
viewer: Viewer, -- pointer to the status viewer to destroy it
pie, stop, info, comment: Viewer, -- pie chart, stop button, request status, print object name
stopRequired: BOOL м FALSE, -- stop button has been hit
formatting: BOOL м TRUE, -- IP Producer active
sending: BOOL м FALSE -- IP Consumer active
];

GetOptionsInternal: PROC [tool: Tool, reset: BOOL м TRUE] RETURNS [options: Options];
CreateStatusReport: PROC [tool: Tool, title: ROPE] RETURNS [state: StatusReport];
ResizeStatusContainer: PROC [tool: Tool];
SetSendingStatus: PROC [state: StatusReport];
PrintStatusUpdate: XNSPrint.StatusChangedProc;

END.
  v  
XTSetterPrivate.mesa
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Jean-Marc Frailong, November 21, 1988 6:40:45 pm PST

Description of data types private to XTSetter tools
Weiser, January 21, 1991 11:38 pm PST

Private data types
Describes some properties of printer that are not available through queries...
-- General tool information
-- All about the options viewer if present
-- All about the printer status viewer if present
-- All about the request status viewer if present
-- To generate unique file names
From XTSetterPrintImpl
From XTSetterImpl
Internal version of GetOptions, does not lock up the tool

Create a print request status viewer

Recompute (and redisplay) the request staus container after a modification

Convert a print request status viewer from the "IPProducer" state to the "Sending" state

Update the print request status viewer

Э╩  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЪЬ4Щ4KЩ KЩ3KЩ%KЩ ЧЪ╧k	Ш	KЪЬЮЬ
ШKЪ╧tЬЮЬШ"KЪЮЬЮЬЮЬШKЪЬ	ЮЬШKЪЬЮЬЮЬШKЪЬЮЬ
ШKЪЬ	ЮЬ!Ш/KЪЬ	Ш	ЧKШ KЪ╤blnЬЮЬЮШ"KШ ЪЬЮШKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШKЪЬЮЬШ$ЪЬЮЬШ'KШ ЧKЪЬ	ЮЬШ!KЪЬЮЬШ'KЪЬЮЬШKЪЬЮЬШKЪЬ	ЮЬШ!KЪЬЮЬ#Ш?KЪЬЮЬШ'ЧheadЩKЪЬЮЬЮЬШ-ЪЬЮЬЮЬШ"KЪЬ╧c%Ш@KЪЬЮЬбCШVKЪЬЮЬб9ШOKЪЬЮЬб"Ш6KЪЬШKЩNKШ ЧKЪЬЮЬЮЬ	ШЪЬ	ЮЬЮ	ЬЮЬШ"KЪбЩKЪЬЮЬб*Ш=KЪЬб%Ш>KЪЬбШ>KЪЬ
ЮЬб$Ш6KЪЬбШ,KЪЬЮЬШKЪб*Щ*KЪЬШKЪЬKШKKЪЬ<Ш<KЪЬШKЪЬШKЪЬШKЪЬЯЬШ(JЪб1Щ1KЪЬШKЪЬeШeKЪЬЮ	ЬШKЪб1Щ1KЪЬ2Ш2KЪб Щ KЪЬЮЬШKЪЬШKШ ЧЧLЩЩKЪЬЮЬЮЬШ6KЪЬЮЬЮЬШ%ЪЬЮЬЮЬШKЪЬШKЪЬЮЬб"Ш.KЪЬЮЬб Ш1KЪЬбШ:KЪЬШKШ ЧKЪЬЮЬЮЬШ#ЪЬЮЬЮЬШKЪЬШKЪЬ	ЮЬШKЪЬб/Ш<KШЧKЪЬЮЬЮЬШ%ЪЬЮЬЮЬШKЪЬШKЪЬ	ЮЬШKЪЬб/Ш<KЪЬШKШ ЧKЪЬЮЬЮЬШ%ЪЬЮЬЮЬШKЪЬШKЪЬ
ЮЬЮЬЮЬШKЪЬб5ШBKЪЬШKШ ЧKЪЬЮЬЮЬШ)ЪЬЮЬЮЬШ KЪЬбШKЪЬб-Ш=KЪЬ"б<Ш^KЪЬЮЬЮЬбШ7KЪЬЮЬЮЬбШ.KЪЬ	ЮЬЮЬбШ+KЪЬШKШ ЧЪ
╧nЬЮЬЮЬЮЬЮЬШUKЩ9KЩ ЧЪвЬЮЬЮЬЮЬШQKЩ$KЩ ЧЪвЬЮЬШ)KЩJKЩ ЧЪвЬЮЬШ-KЩXKЩ ЧЪвЬШ.KЩ&KЩ ЧЧKШ KЪЮЬШЧ ЕЧ    в  %  