DIRECTORYCommander USING [Register, CommandProc],JaM USING [State],JaMTS USING [GetLastHandle, JaMData, CreateJaMTS],ReadEvalPrint USING [Handle],List USING [Assoc, CopyTopList],Rope USING [Cat, ROPE],Convert USING [RopeFromInt],TJaMGraphics USING [Create];RegisterJaMGraphics: CEDAR PROGRAMIMPORTS Commander, Convert, TJaMGraphics, Rope, List, JaMTS = {called: INT _ 0;NewJaMGraphics: Commander.CommandProc --[cmd: Commander.Handle]-- = {data: JaMTS.JaMData;rep: ReadEvalPrint.Handle _ JaMTS.GetLastHandle[];IF rep=NIL THEN {name: Rope.ROPE _ "JaM";rules: LIST OF REF ANY _ List.CopyTopList[NARROW[List.Assoc[key: $SearchRules, aList: cmd.propertyList]]];IF called#0 THEN name _ Rope.Cat[name,Convert.RopeFromInt[from: called, showRadix: FALSE]];rep _ JaMTS.CreateJaMTS[name, cmd.commandLine, rules];called _ called+1;};data _ NARROW[rep.clientData];result _ TJaMGraphics.Create[frame: data.state, typescript: rep.viewer];};Commander.Register[key: "JaMGraphics", proc: NewJaMGraphics, doc: "Start JaM, its typescript and its Graphics viewer"];}.   V  RegisterJaMGraphics.mesaLast Edited by: Stone, January 31, 1984 3:09:13 pm PSTÊG  ˜ J˜ Jšœ™Jšœ6™6J˜ šÏk	˜	Jšœ
œ˜(Jšœœ	˜Jšœœ'˜2Jšœœ
˜Jšœœ˜ Jšœœœ˜Jšœœ˜Jšœœ
˜J˜ —Jšœ˜"Jšœ8˜?J˜ J˜ Jšœœ˜šœ&Ïcœ˜EJšœ˜Jšœ2˜2šœ˜Jšœœ	˜Jšœœœœœœ:˜jJšœ
œCœ˜[Jšœ6˜6J˜J˜—Jšœ	œ˜JšœH˜HJ˜J˜ —J˜wJ˜J˜ J˜ — …—    :  ×  