DIRECTORYCommander USING [Register, CommandProc],IO USING [Handle, CreateOutputStreamToRope, GetOutputStreamRope, Put, text, int, rope, PutF,STREAM],Rope USING [ROPE],JaMInternal USING [Frame],JaMOps USING [NewFrame, defaultFrame],JaMImager USING [Create],ViewerClasses USING  [Viewer],JaMTypeScript USING [InitTool];RegisterJaMImager: PROGRAMIMPORTS IO, JaMOps, JaMTypeScript, Commander, JaMImager = {count: INTEGER _ 1;InitToolCommand: Commander.CommandProc --[cmd: Commander.Handle]-- = TRUSTED { OPEN IO;out: IO.STREAM = cmd.out;param: Rope.ROPE = cmd.commandLine;name: Rope.ROPE _ "JaM";viewer: ViewerClasses.Viewer;already: BOOLEAN;frame: JaMInternal.Frame _ JaMOps.defaultFrame;[viewer,already] _  JaMTypeScript.InitTool[viewerName: name, param: param];IF already THEN {h: Handle _ CreateOutputStreamToRope[];frame _ JaMOps.NewFrame[];Put[h,text["JaM"],int[count _ count+1]];name _ GetOutputStreamRope[h];[viewer,] _ JaMTypeScript.InitTool[name,frame,param,TRUE] };[] _ JaMImager.Create[frame,viewer, TRUE];out.PutF["%g TypeScript and imager viewer created.\n",rope[name]];};Commander.Register["JaMImager", InitToolCommand,"Create a typescript and imager viewer for JaM"];}.     RegisterJaMImager.mesaLast changed by Warren Teitelman,  1-Apr-82 15:28:50Last changed by Bill Paxton, May 18, 1982 1:21 pmLast changed by McGregor, June 14, 1982 9:29 amLast Edited by: Stone, December 20, 1983 4:21 pmLast changed by Doug Wyatt, July 21, 1983 9:39 pm Ê|  ˜ J˜ Jšœ™Jšœ4™4Jšœ1™1Jšœ/™/Jšœ0™0Jšœ1™1J˜ šÏk	˜	Jšœ
œ˜(JšœœTœ˜dJšœœœ˜Jšœœ	˜Jšœœ˜&Jšœ
œ
˜Jšœœ˜Jšœœ˜J˜ —Jšœ˜Jšœœ1˜;J˜ Jšœœ˜J˜ š	œ'Ïcœœœœ˜WJšœœœ˜Jšœœ˜#Jšœœ	˜J˜Jšœ	œ˜J˜/J˜Kšœ	œ˜J˜'J˜J˜(J˜Jšœ4œ˜<—Jšœ$œ˜*J˜BJ˜J˜ —˜0J˜1J˜ —J˜J˜ J˜ — …—    È  \  