DIRECTORYBasics USING [DIVMOD],Convert USING [IntFromRope, RopeFromInt],Graphics USING [black, Color, Context, DrawBox, DrawChar, DrawRope, FontRef, SetColor, SetCP, SetStipple, white],Labels USING [Label],NumberLabels USING [],Rope USING [ROPE],VFonts USING [CharWidth, defaultFont, Font, FontHeight, GraphicsFont, StringWidth],ViewerClasses USING [GetProc, PaintProc, SetProc, Viewer, ViewerClass, ViewerClassRec, ViewerRec],ViewerOps USING [CreateViewer, PaintViewer, RegisterViewerClass];LabelsImpl: CEDAR PROGRAMIMPORTS Basics, Convert, Graphics, VFonts, ViewerOpsEXPORTS Labels, NumberLabels =BEGIN OPEN ViewerClasses, Labels, Rope;bottomOffset: INTEGER = 3;	-- for paintingleftOffset: INTEGER = 3;LabelData: TYPE = REF LabelDataRec;LabelDataRec: TYPE = RECORD [font: VFonts.Font,displayStyle: DisplayStyle];DisplayStyle: TYPE = {blackOnWhite, whiteOnBlack, blackOnGrey} ;Create: PUBLIC PROC [info: ViewerRec _ [], font: VFonts.Font _ VFonts.defaultFont,paint: BOOL _ TRUE] RETURNS [label: Label] = BEGINdata: LabelData _ NEW[LabelDataRec _ [font, blackOnWhite]];IF info.parent=NIL THEN ERROR;IF info.ww=0 THEN info.ww _ VFonts.StringWidth[info.name, font]+leftOffset+leftOffset;IF info.wh=0 THEN info.wh _ VFonts.FontHeight[font]+bottomOffset;info.data _ data;label _ ViewerOps.CreateViewer[$Label, info, paint];END;LabelPaint: PaintProc = BEGIN OPEN Graphics;data: LabelData _ NARROW[self.data];myGrey: CARDINAL = 001010B;borderFudge: INTEGER = IF self.border THEN 0 ELSE 1;IF data = NIL THEN RETURN;IF ~clear OR data.displayStyle#blackOnWhite THEN BEGINSELECT data.displayStyle FROMwhiteOnBlack => Graphics.SetColor[context, Graphics.black];	blackOnGrey => Graphics.SetStipple[context, myGrey];blackOnWhite => Graphics.SetColor[context, Graphics.white];ENDCASE;DrawBox[context, [1, 1, self.cw-1, self.ch-1]];END;IF self.name=NIL THEN RETURN;SetColor[context, SELECT data.displayStyle FROMwhiteOnBlack	=> white,ENDCASE		=> black];SetCP[context, leftOffset+borderFudge, bottomOffset+borderFudge];DrawRope[self: context, rope: self.name, font: VFonts.GraphicsFont[data.font]];END;LabelGet: GetProc = BEGINRETURN[self.name];END;LabelSet: SetProc = BEGINIF op=NIL THEN self.name _ NARROW[data]ELSE BEGINmyData: LabelData _ NARROW[self.data];IF myData = NIL THEN RETURN;SELECT data FROM$BlackOnWhite	=> myData.displayStyle _ blackOnWhite;$WhiteOnBlack	=> myData.displayStyle _ whiteOnBlack;$BlackOnGrey	=> myData.displayStyle _ blackOnGrey;ENDCASE;END;IF finalise THEN ViewerOps.PaintViewer[self, all];END;NumberLabel: TYPE = ViewerClasses.Viewer;NumberLabelData: TYPE = REF NumberLabelDataRec;NumberLabelDataRec: TYPE = RECORD [font: VFonts.Font,displayStyle: DisplayStyle,currentValue: INT _ 0,lastDisplayed: INT _ 0];-- The following material is to support NumberLabelsCreateNumber: PUBLIC PROC[info: ViewerClasses.ViewerRec _ [], chars: NAT _ 0, initialValue: INT _ 0, font: VFonts.Font _ VFonts.defaultFont, paint: BOOL _ TRUE] RETURNS [nl: NumberLabel _ NIL] = {data: NumberLabelData _ NEW [NumberLabelDataRec _ [font, blackOnWhite, initialValue, initialValue + 1]];IF info.parent=NIL THEN ERROR;IF info.ww=0 THEN info.ww _ chars*VFonts.CharWidth['0, font]+leftOffset+leftOffset;IF info.wh=0 THEN info.wh _ VFonts.FontHeight[font]+bottomOffset;info.data _ data;nl _ ViewerOps.CreateViewer[$NumberLabel, info, paint];};NumberLabelPaint: ViewerClasses.PaintProc = {data: NumberLabelData _ NARROW[self.data];myGrey: CARDINAL = 001010B;borderFudge: INTEGER = IF self.border THEN 0 ELSE 1;chars: ARRAY [0..11] OF CHAR;pos: NAT _ 0;card: LONG CARDINAL;scard: CARDINAL;font: Graphics.FontRef = VFonts.GraphicsFont[data.font];IF data = NIL THEN RETURN;IF ~clear OR data.displayStyle # blackOnWhite THEN BEGINSELECT data.displayStyle FROMwhiteOnBlack => Graphics.SetColor[context, Graphics.black];	blackOnGrey => Graphics.SetStipple[context, myGrey];blackOnWhite => Graphics.SetColor[context, Graphics.white];ENDCASE;Graphics.DrawBox[context, [1, 1, self.cw-1, self.ch-1]];whatChanged _ NIL;END;IF whatChanged = $Update AND data.currentValue = data.lastDisplayed THEN RETURN;data.lastDisplayed _ data.currentValue;Graphics.SetColor[context, SELECT data.displayStyle FROMwhiteOnBlack => Graphics.white,ENDCASE => Graphics.black];Graphics.SetCP[context, leftOffset+borderFudge, bottomOffset+borderFudge];card _ LOOPHOLE[data.currentValue];IF data.currentValue < 0THEN {Graphics.DrawChar[context, '-, font];card _ - card;};WHILE card > LAST[CARDINAL] DOchars[pos] _ '0 + (card MOD 10);card _ card / 10;pos _ pos + 1;ENDLOOP;scard _ card;WHILE scard > 9 DOmod: CARDINAL;[scard,mod] _ Basics.DIVMOD[scard, 10];chars[pos] _ '0 + mod;pos _ pos + 1;ENDLOOP;Graphics.DrawChar[context, '0 + scard, font];WHILE pos > 0 DOpos _ pos - 1;Graphics.DrawChar[context, chars[pos], font];ENDLOOP;};NumberLabelGet: ViewerClasses.GetProc = {myData: NumberLabelData _ NARROW[self.data];IF myData = NIL THEN RETURN [NIL];IF op = NILTHEN RETURN[Convert.RopeFromInt[myData.currentValue]]ELSE RETURN [NEW[INT _ myData.currentValue]];};NumberLabelSet: ViewerClasses.SetProc = {myData: NumberLabelData _ NARROW[self.data];IF myData = NIL THEN RETURN;WITH data SELECT FROMrope: ROPE =>myData.currentValue _ Convert.IntFromRope[rope];atom: ATOM => SELECT data FROM$BlackOnWhite	=> myData.displayStyle _ blackOnWhite;$WhiteOnBlack	=> myData.displayStyle _ whiteOnBlack;$BlackOnGrey	=> myData.displayStyle _ blackOnGrey;ENDCASE;refInt: REF INT =>myData.currentValue _ refInt^;ENDCASE => RETURN;IF finalise THEN ViewerOps.PaintViewer[self, all];};NumberLabelUpdate: PUBLIC PROC [nl: NumberLabel, new: INT _ 0] = {myData: NumberLabelData _ NARROW[nl.data];IF myData = NIL THEN RETURN;myData.currentValue _ new;IF new # myData.lastDisplayed THEN ViewerOps.PaintViewer[nl, all, FALSE, $Update];};NumberLabelQuery: PUBLIC PROC [nl: NumberLabel] RETURNS [current: INT _ 0] = {myData: NumberLabelData _ NARROW[nl.data];IF myData = NIL THEN RETURN;RETURN [myData.currentValue];};labelClass: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec _ [paint: LabelPaint,get: LabelGet,set: LabelSet]];numberLabelClass: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec _ [paint: NumberLabelPaint,get: NumberLabelGet,set: NumberLabelSet]];ViewerOps.RegisterViewerClass[$Label, labelClass];	-- plug in to ViewersViewerOps.RegisterViewerClass[$NumberLabel, numberLabelClass];	-- plug in to ViewersEND.  ╨  LabelsImpl.mesa McGregor, October 28, 1982 11:17 amMaxwell, May 23, 1983 2:57 pmRuss Atkinson, September 27, 1983 1:14 pmborderFudge is so labels line up whether they have borders or notborderFudge is so labels line up whether they have borders or notwhile we have to stay in 32 bits, do soat this point, it is faster to do this in 16 bitsunconditionally output the leading characterfinally, output the remaining characters that we have stored Э╩\  Ц"Mesa" styleШ Ъ╧cЩJЪЬ#Щ#JЪЬЩJЪЬ)Щ)ЧJШ Ъ╧k	Ш	JЪЬЮЬЮЬШJЪЬЮЬШ)ЪЬ	ЮЬШJЪЬaШaЧJЪЬЮЬ	ШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬGШSЪЬЮЬШJШMЧJЪЬ
ЮЬ2ШAЧJШ JЪ╧b
ЬЮЬЮШJШ JЪЮЬ-Ш4JЪЮЬШJШ JЪЮЬЮЬШ'JШ JЪЬЮЬЭШ*JЪЬЮЬШJШ JЪЬЮЬЮЬШ#ЪЬЮЬЮЬШJШJШJШJШ ЧJЪЬЮЬ.Ш@JШ Ъ╧nЬЮЬЮЬ?ШRJЪЬЮЬЮЬЮЬЮШ2JЪЬЮЬ&Ш;JЪЮЬЮЬЮЬЮЬШJЪЮЬЮЬEШVJЪЮЬЮЬ0ШAJШJШ4JЪЮЬШJШ ЧЪЬЮЬЮЬ
Ш,JЪЭAЩAJЪЬЮЬШ$JЪЬЮЬШJЪ	ЬЮЬЮЬЮЬЮЬШ4JЪЮЬЮЬЮЬЮЬШЪЮЬЮЬ ЮЬЮШ6ЪЮЬЮШJЪЬ;Ш;ЧЪЬ5Ш5JЪЬ;Ш;JЪЮЬШЧJШ/JЪЮЬШЧJЪЮЬЮЬЮЬЮЬШЪЬЮЬЮШ/JШJЪЮЬШЧJШAJШOJЪЮЬШJШ ЧЪЬЮШJЪЮЬШJЪЮЬШJШ ЧЪЬЮШJЪЮЬЮЬЮЬЮЬШ'ЪЮЬЮШ
JЪЬЮЬШ&JЪЮЬ
ЮЬЮЬЮЬШЪЮЬЮШJШ4JШ4JШ2JЪЮЬШЧJЪЮЬШЧJЪЮЬ
ЮЬ"Ш2JЪЮЬШJШ ЧJЪЬЮЬШ)JШ JЪЬЮЬЮЬШ/ЪЬЮЬЮЬШ#JШJШJЪЬЮЬШJЪЬЮЬШJШJШ ЧJЪЭ5Ш5ЪаЬЮЬЮШJЪЬ,ЮЬЮЬ5ЮЬЮЬЮЬЮЬШлЪЬЮЬШJЪЬKШKЧJЪЮЬЮЬЮЬЮЬШJЪЮЬЮЬBШSJЪЮЬЮЬ0ШAJШJЪЬ7Ш7JЪЬШJШ ЧЪЬ,ЮШ-JЪЭAЩAJЪЬЮЬШ*JЪЬЮЬШJЪ	ЬЮЬЮЬЮЬЮЬШ4JЪЬЮЬ	ЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJЪЬ8Ш8JЪЮЬЮЬЮЬЮЬШЪЮЬЮЬ"ЮЬЮШ8ЪЮЬЮШJЪЬ;Ш;ЧЪЬ5Ш5JЪЬ;Ш;JЪЮЬШЧJЪЬ8Ш8JЪЬЮЬШJЪЮЬШЧJЪЮЬЮЬ(ЮЬЮЬШPJЪЬ'Ш'ЪЬЮЬЮШ8JШJЪЮЬШЧJШJJЪЬЮЬШ#ЪЮЬШЪЮЬШJЪЬ%Ш%JШJШЧЧJЩ JЪЬ'Щ'ЪЮЬЮЬЮЬЮШJЪЬЮЬШ JШJШJЪЮЬШЧJЩ JЪЬ1Щ1JШЪЮЬЮШJЪЬЮЬШJЪЬЮЬШ'JЪЬШJШJЪЮЬШЧJЩ JЪЬ,Щ,JЪЬ-Ш-JЩ JЪЬ<Щ<ЪЮЬ	ЮШJШJЪЬ-Ш-JЪЮЬШЧJЪЮЬШJШ ЧЪЬ(ЮШ)JЪЬЮЬШ,JЪ
ЮЬ
ЮЬЮЬЮЬЮЬШ"ЪЮЬЮШJЪЮЬЮЬ*Ш5JЪЮЬЮЬЮЬЮЬШ-ЧJЪЮЬШJШ ЧЪЬ)Ш)JЪЬЮЬШ,JЪЮЬ
ЮЬЮЬЮЬШЪЮЬЮЬЮШЪЬЮЬШJЪЬ0Ш0ЧЪЬЮЬШЪЮЬЮШJШ4JШ4JШ2JЪЮЬШЧЧЪЬЮЬЮЬШJЪЬШЧJЪЮЬЮЬШЧJЪЮЬ
ЮЬ"Ш2JЪЬШJШ ЧЪаЬЮЬЮЬЮЬ	ШBJЪЬЮЬ
Ш*JЪЮЬ
ЮЬЮЬЮЬШJЪЬШJЪЮЬЮЬ ЮЬШRJЪЬШJШ ЧЪ
аЬЮЬЮЬЮЬЮЬ	ШNJЪЬЮЬ
Ш*JЪЮЬ
ЮЬЮЬЮЬШJЪЮЬШJЪЬШJШ ЧЪЬ(ЮЬ!ШLJШJШJШJШJШ ЧЪЬ.ЮЬ!ШRJШJШJШJШJШ ЧJЪЬ3ЭШHJЪЬ?ЭШTJШ JЪЮЬШJШ Ч ЕЧ    ╢  #т  