ðZSyntax10.Scn.Fnt Syntax10i.Scn.Fntöÿÿÿz°­StampElemsAlloc3 Mar 99ýþÿÿÐûÀÔInfoElemsAlloc#Syntax10.Scn.Fntàà"Title": FormTools for FormInspector.Panel "Author": Stefan Aufischer "Abstract": Provides methods for editing FormElems (FormElems.Mod) "Keywords": Inspect, Apply "Version": "From": 3.02.97 "Until": 7.02.97 "Changes": $ Syntax10b.Scn.Fntÿÿÿÿ€8ÀÔFoldElemsNew55N ÿÿÿÿ€8ÀÔ ÿÿÿÿ€8ÀÔ!&\. ÿÿÿÿ€8ÀÔ ÅMODULE FormTools; (* SA  *)  IMPORT ElemTools, FormElems, Elems, Out; PROCEDURE Inspect*; VAR attr : FormElems.AttrMsg; tag : FormElems.TagMsg; BEGIN ElemTools.Get(); IF ElemTools.curElem # NIL THEN ElemTools.curElem.handle(ElemTools.curElem, tag) END; attr.enum := ElemTools.Enum; ElemTools.InspectCurElem(tag.name, attr) END Inspect; PROCEDURE Apply*; VAR update : FormElems.UpdateMsg; BEGIN ElemTools.Apply; IF (ElemTools.curElem # NIL) & (ElemTools.curElem IS Elems.Elem) THEN ElemTools.curElem.handle(ElemTools.curElem, update); Elems.UpdateElem(ElemTools.curElem) ELSE Out.String("FormTools.Apply: UpdateMsg has NOT been sent"); Out.Ln END; END Apply; END FormTools.