DIRECTORYConvert USING [IntFromRope, MapValue, ValueToRope],Graphics USING [black, Color, Context, DrawBox, DrawChar, DrawRope, 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 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;draw1: PROC [c: CHAR] = {Graphics.DrawChar[context, c, 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];Convert.MapValue[put: draw1, value: [signed[data.currentValue]]];};NumberLabelGet: ViewerClasses.GetProc = {myData: NumberLabelData _ NARROW[self.data];IF myData = NIL THEN RETURN [NIL];IF op = NILTHEN RETURN[Convert.ValueToRope[[signed[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 Edited by McGregor on October 28, 1982 11:17 amLast Edited by: Maxwell, May 23, 1983 2:57 pmEdited by Russ Atkinson, April 12, 1983 3:13 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 Э╩Q  Ц"Mesa" styleШ JЪ╧cЩJЪЬ/Щ/JЪЬ-Щ-JЪЬ/Щ/JШ Ъ╧k	Ш	JЪЬЮЬ&Ш3ЪЬ	ЮЬШJЪЬXШXЧJЪЬЮЬ	ШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬGШSЪЬЮЬШJШMЧJЪЬ
ЮЬ2ШAЧJШ JЪ╧b
ЬЮЬЮШJШ JЪЮЬ%Ш,JЪЮЬШ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Ъ	ЬЮЬЮЬЮЬЮЬШ4ЪЬЮЬЮЬШJЪЬ>Ш>JШЧJЪЮЬЮЬЮЬЮЬШЪЮЬЮЬ"ЮЬЮШ8ЪЮЬЮШJЪЬ;Ш;ЧЪЬ5Ш5JЪЬ;Ш;JЪЮЬШЧJЪЬ8Ш8JЪЬЮЬШJЪЮЬШЧJЪЮЬЮЬ(ЮЬЮЬШPJЪЬ'Ш'ЪЬЮЬЮШ8JШJЪЮЬШЧJШJJЪЬAШAJЪЮЬШJШ ЧЪЬ(ЮШ)JЪЬЮЬШ,JЪ
ЮЬ
ЮЬЮЬЮЬЮЬШ"ЪЮЬЮШJЪЮЬЮЬ4Ш?JЪЮЬЮЬЮЬЮЬШ-Ч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Ш JШ Ч ЕЧ    ─   ?  