DIRECTORYGraphics,Rope USING [Fetch],RopeEdit USING [Size],TiogaItemClass,TiogaNode,TiogaNodeOps,VFonts;TextNodeClassImpl: CEDAR PROGRAMIMPORTS Graphics, Rope, RopeEdit, TiogaNodeOps, VFonts =BEGINTextLengthProc: TiogaItemClass.ItemLengthProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];RETURN[RopeEdit.Size[text.rope]];END;TextNotifyProc: TiogaItemClass.ItemNotifyProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextDestroyProc: TiogaItemClass.ItemDestroyProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];text.rope _ NIL;text.runs _ NIL;END;TextCopyProc: TiogaItemClass.ItemCopyProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextFastFormatProc: TiogaItemClass.ItemFastFormatProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];c: CHAR;i: INT _ start;size: INT _ RopeEdit.Size[text.rope];rightExtent _ 0;topExtent _ MIN[VFonts.FontAscent[], topBound];bottomExtent _ MIN[VFonts.FontHeight[]-VFonts.FontAscent[], bottomBound];Graphics.SetCP[context, 0, 0];WHILE rightExtent<rightBound AND i<size DOrightExtent _ rightExtent+VFonts.CharWidth[c _ Rope.Fetch[text.rope, i]];Graphics.DrawChar[context, c];i _ i+1;ENDLOOP;Graphics.DrawBox[context, [0, 0, rightExtent, 1]];	-- draw in baselineGraphics.DrawBox[context, [0, -bottomExtent, 1, topExtent]];	-- draw in baselineend _ i-1;END;TextLineBreakFormatProc: TiogaItemClass.ItemLineBreakFormatProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextDisplayProc: TiogaItemClass.ItemDisplayProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextSetSelectionProc: TiogaItemClass.ItemSetSelectionProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextSetProc: TiogaItemClass.ItemSetProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;TextGetProc: TiogaItemClass.ItemGetProc = BEGINtext: TiogaNode.RefTextNode = TiogaNodeOps.NarrowToTextNode[self];ERROR;END;[] _ TiogaNodeOps.RegisterItemClass[TiogaItemClass.ItemClassRec[length: TextLengthProc,notify: TextNotifyProc,format: TextFastFormatProc,lineBreakFormat: TextLineBreakFormatProc,display: TextDisplayProc,setSelection: TextSetSelectionProc,get: TextGetProc,set: TextSetProc,copy: TextCopyProc,destroy: TextDestroyProc,tipTable: NIL,flavor: $Text,privateOps: NIL], FALSE];END.    –  TextNodeClassImpl.mesa; Written by S. McGregor, March 1983Edited by McGregor, August 30, 1983 4:03 pmEdited by Paxton, June 1, 1983 2:52 pmÊ<  ˜ JšœÏc)™:Jšœ+™+Jšœ&™&J˜ šÏk	˜	Jšœ	˜	Jšœžœ	˜Jšœ	žœ˜J˜J˜
J˜J˜—J˜ šœžœž˜ Jšžœ1˜8—J˜ Jšž˜J˜ procšÏnœ"ž˜5KšœB˜BKšžœ˜!Kšžœ˜K™ —šŸœ"ž˜5KšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœ#ž˜7KšœB˜BKšœžœ˜Kšœžœ˜Kšžœ˜—J˜ šŸœ ž˜1KšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœ&ž˜=KšœB˜BKšœžœ˜Kšœžœ	˜Kšœžœ˜%Kšœ˜Kšœžœ ˜/Kšœžœ7˜IKšœ˜šžœžœž˜*KšœI˜IKšœ˜Kšœ˜Kšžœ˜—Kšœ3˜FKšœ=˜PKšœ
˜
Kšžœ˜—J˜ šŸœ+ž˜GKšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœ#ž˜7KšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœ(ž˜AKšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœž˜/KšœB˜BKšžœ˜Kšžœ˜—J˜ šŸœž˜/KšœB˜BKšžœ˜Kšžœ˜—J™ J˜ šœ@˜@Jšœ˜Jšœ˜Jšœ˜Jšœ)˜)Jšœ˜Jšœ#˜#Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ
žœ˜Jšœ˜Jšœž˜Jšœžœ˜
—J˜ Jšžœ˜J˜ J˜ — …—    
  æ  