DIRECTORYRope USING [ROPE],ScannerInternal USING [Parameters, ToolParameters],UserProfile USING [Number, ProfileChangedProc, Token],VFonts USING [EstablishFont, Font, FontHeight];ScannerUtilitiesImpl: CEDAR MONITORIMPORTS UserProfile, VFontsEXPORTS ScannerInternal =BEGINOPEN Tool: ScannerInternal;ROPE: TYPE = Rope.ROPE;---- ---- ---- ---- ---- ---- ---- -------- ---- ---- ---- ---- ---- ---- ----parameters: Tool.Parameters _ NIL;---- ---- ---- ---- ---- ---- ---- -------- ---- ---- ---- ---- ---- ---- ----GetToolParameters: PUBLIC PROC RETURNS [Tool.Parameters] = {RETURN[parameters]};ReactToProfile: PUBLIC ENTRY UserProfile.ProfileChangedProc = BEGINENABLE UNWIND => NULL;params: Tool.Parameters _ NEW[Tool.ToolParameters];fontFamily: ROPE = UserProfile.Token["Scanner.FontFamily", "Tioga"];fontSize: NAT = UserProfile.Number["Scanner.FontSize", 10];params.font _ VFonts.EstablishFont[fontFamily, fontSize];params.fixedFont _ VFonts.EstablishFont[family: "Gacha", size: fontSize - 2];params.entryHeight _ VFonts.FontHeight[params.font] + 2;params.entryVSpace _ VFonts.FontHeight[params.font]*1/6;params.entryHSpace _ 10;params.defaultServer _ UserProfile.Token["Scanner.Server", "York"];params.calFileName _ UserProfile.Token["Scanner.CalibrationFile", "ScannerCal"];parameters _ params;END;ReactToProfile[edit];END.   &  -- ScannerUtilitiesImpl.mesaLast Edited by: Diebert, April 12, 1985 9:34:55 am PSTTim Diebert: October 30, 1985 12:07:35 pm PSTCopyright c 1984, Xerox Corporation.  All rights reserved.Global Variables (protected by monitor)Utilities (exports to ScannerInternal for individual ops)ÊF  ˜ Jšœ™™6Icode™-—Jšœ
Ïmœ/™:J™ J˜ šÏk	˜	Jšœžœžœ˜Jšœžœ˜3Jšœžœ%˜6Jšœžœ#˜/—J˜ šÏbœžœž˜#Jšžœ˜Jšžœ˜—J˜ Jšž˜J˜ Jšžœ˜J˜ šžœžœžœ˜J˜ —J˜ JšÏcœ œ œ œ œ œ œ ˜'J™'Jš œ œ œ œ œ œ œ ˜'J˜ Jšœžœ˜"J˜ Jš œ œ œ œ œ œ œ ˜'J™9Jš œ œ œ œ œ œ œ ˜'J˜ J˜ J˜ š
Ïnœžœžœžœžœ˜PJ˜ —J˜ šœžœžœ"ž˜CJšžœžœžœ˜Jšœžœ˜3Jšœžœ4˜DJšœ
žœ.˜;J˜ Jšœ9˜9JšœM˜MJšœ8˜8Jšœ8˜8Jšœ˜JšœC˜CJšœP˜PJšœ˜Jšžœ˜—J˜ J˜ J˜ Jšœ˜J˜ Jšžœ˜J˜ J˜ — …—    d  Ð  