(FILECREATED "27-May-87 11:00:23" ("compiled on " {PHYLUM}KOTO>EQUATIONS.;1) "12-Nov-85 14:59:23" recompiled changes: FS.Box FS.Display FS.ItemShift FS.MakeItem FS.Extract FS.ExtractShift FS.Insert FS.AllowedChar in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "27-May-87 10:57:53" {PHYLUM}KOTO>EQUATIONS.;1 74749 changes to: (FNS FS.MakeItem FS.Box FS.Display FS.Extract FS.AllowedChar FS.Insert FS.ItemShift FS.ExtractShift) (VARS EQUATIONSCOMS) previous date: "20-Mar-86 09:31:40" {PHYLUM}KOTO>LISPUSERS>EQUATIONS.;1) EQIO.CreateFns D1 NIL %gggggggddggdd (42Q IMAGEFNSCREATE) (34Q NILL 31Q EQIO.WhenDeleted 24Q NILL 21Q EQIO.ButtonEventIn 16Q EQIO.Copy 13Q EQIO.Get 10Q EQIO.Put 5 EQIO.Imagebox 2 EQIO.Display) () EQIO.Create D1 (P 0 obj I 3 objectProps I 2 fontSpec I 1 dataList I 0 kind) I@Ag ` ` C@g bHC BHgBd3 H(105Q EQIO.EqnProperty 102Q EQN.GetEqnFont 64Q EQIO.AllProps 54Q COPYALL 51Q EQIO.GetInfo 35Q IMAGEOBJCREATE 27Q EQIO.CreateFns 17Q IMAGEFNSP 10Q BOUNDP) (72Q fontSpec 46Q objProps 32Q EquationImageFns 23Q EquationImageFns 14Q EquationImageFns 5 EquationImageFns) () EQIO.Imagebox D1 (P 0 spec I 1 imageStream I 0 eqnObj) @A H `A  (25Q EQIO.GetBox 21Q FS.Box 4 EQIO.Specify) (15Q UnknownEquationData) () EQIO.Display D1 (P 11Q pos P 10Q data P 7 desc P 6 i P 4 invertPiece P 3 spec P 2 curY P 1 curX P 0 editWindow I 1 imageStream I 0 eqnObj) hA hA @Ai @ Hd KU@ kK # NM?@N _KN _%O!IOJOO A OALN Nk^`AL h(176Q FS.Display 155Q FS.Display 143Q MOVETO 135Q MINUS 107Q EQIO.GetDataPosition 104Q EQIO.GetDataSpec 74Q EQIO.EqnData 54Q EQIO.GetBox 47Q EQIO.NumPieces 34Q EQN.PieceNumber 23Q EQN.ObjEditWindow 17Q EQIO.Specify 11Q DSPYPOSITION 4 DSPXPOSITION) (171Q UnknownEquationData) () EQIO.ButtonEventIn D1 (P 6 wholeEditFn P 5 piece# P 4 selectFn P 3 piece# P 2 underEdit P 1 CHOICEMENU P 0 editWindow I 7 button I 6 textStream I 5 window I 4 relY I 3 relX I 2 selection I 1 windowStream I 0 eqnObj F 7 \LASTKEYSTATE) E oH@H ZWl< jWl) jWl$ jJE gGdg'I gL@ACD K @EK g0g,@ g L`\@kL] @EM g(@ g JE N@EGlNJg(266Q EQN.AbortEdit 255Q EQIO.GetInfo 247Q EQIO.EqnType 234Q EQN.StartEdit 203Q EQIO.GetInfo 175Q EQIO.EqnType 154Q EQN.StartEdit 140Q EQIO.Selection 123Q MENU 105Q SPAWN.MOUSE 76Q EQN.AbortEdit 60Q \GETBASEBIT 46Q \GETBASEBIT 33Q \GETBASEBIT 22Q EQN.ResultObj 3 EQN.EditWindow) (311Q CHANGED 252Q wholeEditFn 240Q CHANGED 213Q EquationDefaultSelectFn 200Q specialSelectFn 166Q MIDDLE 160Q CHANGED 126Q EDIT 113Q LEFT 101Q CHANGED) ( 7 (create MENU CENTERFLG _ T ITEMS _ (QUOTE ((Select (QUOTE SELECT) "Select the image object") (Edit (QUOTE EDIT) "Edit selected piece of the equation"))))) EQIO.Copy D1 (P 0 dataList I 0 eqnObj) 8@ @ 0Hd JIh[I&Kh@ (65Q EQIO.Create 62Q EQIO.CopyList 57Q EQIO.AllProps 30Q FS.Copy 15Q COPY 12Q EQIO.EqnType 3 EQIO.EqnDataList) NIL () EQIO.CopyList D1 (I 0 list) 1@dl @@@0@d IHhZH&J(35Q EQIO.CopyList 7 \TYPEMASK.UFN) NIL () EQIO.Get D1 (P 1 dataList P 0 kind I 0 fileStream) @ @ HIh@ (24Q EQIO.Create 21Q READ 7 FS.Get 3 READ) NIL () EQIO.Put D1 (I 1 fileStream I 0 eqnObj) @ A @ A @ A (27Q PRIN2 23Q EQIO.AllProps 17Q FS.Put 13Q EQIO.EqnDataList 7 PRIN2 3 EQIO.EqnType) NIL () EQIO.WhenDeleted D1 (P 0 editWindow I 1 window I 0 eqnObj) A @ HA h(21Q EQN.AbortEdit 7 EQN.ValidEditWindow 3 EQN.EditWindow) NIL () EQIO.SelectRegion D1 (P 0 dataSpec I 3 imageStream I 2 piece# I 1 data I 0 spec) 1@B !H #AdC H JJIIIh(31Q EQIO.GetDataPosition 25Q FS.Box 13Q EQIO.GetDataSelectRegion 4 EQIO.GetDataSpec) NIL () EQIO.Selection D1 (P 4 region P 3 i P 1 piece# P 0 spec I 3 relY I 2 relX I 1 imageStream I 0 eqnObj) C@A H8CH b@ kKJH@K KA \Kk[BC Kh(73Q INSIDEP 55Q EQIO.SelectRegion 50Q EQIO.EqnData 31Q EQIO.NumPieces 17Q EQIO.GetBox 4 EQIO.Specify) NIL () EQIO.DefaultSelectFn D1 (P 1 menu P 0 type I 0 eqnObj) `@ Hg &@g Yd`:H@ @gI $Hg Yd`H@ HgI II (135Q MENU 125Q EQIO.TypeProp 114Q EQIO.MakeSelectionMenu 111Q EQIO.NumPieces 72Q EQIO.TypeProp 61Q EQIO.EqnProperty 50Q EQIO.MakeSelectionMenu 45Q EQIO.NumPieces 26Q EQIO.EqnProperty 15Q EQIO.GetInfo 3 EQIO.EqnType) (121Q selectionMenu 100Q MENUTYPE# 67Q selectionMenu 55Q selectionMenu 34Q MENUTYPE# 23Q selectionMenu 12Q variable?) () EQIO.MakeSelectionMenu D1 (P 0 pieceNames I 1 numPieces I 0 type) A3 {Ajv@g !`di doAkBLK*H_HOLhL_NOh^Lk\O&MdIdg dgjdndhdJ (20Q EQIO.GetInfo) (151Q DEFAULTMENUHELDFN 142Q CLRPROMPT 26Q MENUTYPE# 15Q pieceNames) ( 41Q "Eqn piece?") EQIO.EqnType D1 (I 0 eqnObj) @g (6 IMAGEOBJPROP) (3 OBJECTDATUM) () EQIO.EqnDataList D1 (I 0 eqnObj) @g (6 IMAGEOBJPROP) (3 OBJECTDATUM) () EQIO.SetDataList D1 (I 1 newDataList I 0 eqnObj) @g@ A (14Q IMAGEOBJPROP 7 EQIO.EqnType) (3 OBJECTDATUM) () EQIO.EqnData D1 (I 1 piece# I 0 eqnObj) @ A (7 NTH 3 EQIO.EqnDataList) NIL () EQIO.EqnProperty D1 (P 1 props P 0 eqn) DeHdlj@g A'lj@g IABhY@gI hAB (100Q LISTPUT 71Q IMAGEOBJPROP 44Q IMAGEOBJPROP 23Q IMAGEOBJPROP) (65Q props 41Q props 20Q props) () EQIO.AllProps D1 (P 0 eqn) %eHdkj@g lj @gA (42Q IMAGEOBJPROP 22Q IMAGEOBJPROP) (36Q props 17Q props) () EQIO.Specify D1 (P 0 formFn I 2 draw? I 1 imageStream I 0 eqnObj) @ g H @ABlH(11Q EQIO.GetInfo 3 EQIO.EqnType) (6 formFn) () EQIO.GetInitialProps D1 (P 2 newProps P 1 initialPropFn P 0 props I 0 type) R@g @g I@kIZH-HJJ JZHHg'@g o@ HJX(112Q ERROR 101Q EQIO.GetInfo 52Q LISTPUT 20Q EQIO.GetInfo 11Q COPY 6 EQIO.GetInfo) (76Q variable? 70Q numPieces 15Q initialPropFn 3 objectProps) ( 106Q "EQIO.GetInitialProps: can't specify numPieces for fixed size eqn type = ") EQIO.NumPieces D1 (P 3 value P 2 type P 1 eqnObj P 0 eqn) TeHj-@!I ZHkjdg Ig [3 Jg Jg IgA I oJ (121Q ERROR 110Q EQIO.NewStructure 104Q EQIO.EqnProperty 73Q EQIO.GetInfo 63Q EQIO.GetInfo 47Q EQIO.EqnProperty 37Q EQIO.GetInfo 20Q EQIO.EqnType) (100Q numPieces 70Q variable? 60Q numPieces 44Q numPieces 34Q variable?) ( 115Q "EQIO.NumPieces: equation has fixed # of parts, type = ") EQIO.NewStructure D1 (P 0 changeFn I 0 eqnObj) @gh @ g H@kHh(21Q EQIO.GetInfo 13Q EQIO.EqnType 7 EQIO.EqnProperty) (16Q changeFn 3 selectionMenu) () EQIO.AddType D1 (P 0 newValue I 3 PROPS I 2 numPieces I 1 formFn I 0 type) 5gAgBhC @gH @` @`@ (62Q EQIO.ResetTypeProps 43Q MEMB 33Q PUTPROP 20Q \APPEND2) (54Q EquationInfo 50Q EquationInfo 40Q EquationInfo 27Q equationInfo 6 numPieces 2 formFn) () EQIO.GetInfo D1 (I 1 info I 0 type) @gA'NIL (3 equationInfo) () EQIO.SetInfo D1 (P 0 spec I 2 newValue I 1 info I 0 type) .@ @gH o@ AB @gH @ B(52Q EQIO.ResetTypeProps 46Q PUTPROP 36Q LISTPUT 30Q ERROR 3 EQIO.IsDefined) (42Q equationInfo 11Q equationInfo) ( 24Q "EQIO.SetInfo: warning -- no specifications for eqn type = ") EQIO.TypeProp D1 (P 1 list P 0 type) @eHdlj@gA'lj@gIABhY@gI hAB (74Q LISTPUT 65Q PUTPROP) (61Q equationProps 37Q equationProps 20Q equationProps) () EQIO.ResetTypeProps D1 (I 0 type) h@g (12Q PUTPROP) (7 equationProps 3 EquationTypeMenu) () EQIO.IsDefined D1 (L (0 type)) @` @(6 MEMB) (3 EquationInfo) () EQIO.GetBox D1 (L (0 specification)) @NIL NIL () EQIO.GetDataSpec D1 (I 1 piece# I 0 specification) @Ak (6 NTH) NIL () EQIO.GetDataSpecList D1 (L (0 specification)) @NIL NIL () EQIO.GetDataPosition D1 (L (0 dataSpec)) @NIL NIL () EQIO.GetDataSelectRegion D1 (L (0 dataSpec)) @NIL NIL () EQIO.MakeSpec D1 (L (1 dataSpecList 0 box)) @ANIL NIL () EQIO.MakeDataSpec D1 (L (1 selectRegion 0 position)) @ANIL NIL () EQN.AbortEdit D1 (P 0 editWindow I 0 mainWindow) @ H Hh @ h(26Q EQN.StopEdit 21Q EQN.ContinueFlg 12Q WINDOWP 3 EQN.EditWindow) NIL () EQN.StopEdit D1 (P 0 editWindow I 0 mainWindow) !@ H H H H h(35Q CLOSEW 30Q TEDIT.QUIT 25Q TEXTSTREAM 20Q EQN.FinishEdit 12Q WINDOWP 3 EQN.EditWindow) NIL () EQN.ContinueEdit D1 (P 6 numPieces P 5 oldPiece# P 4 end P 3 increment P 2 newPiece# P 1 continueFlg P 0 process I 0 window) @ .H@ @ "IdiJkԺi Id3 2J@ MIN ZjJ J NhJMjhXI\3 L5JKԺLi-jKLJh"JLhIlJkIZ3 oI h@ @ JIdg h(326Q EQN.StartNextEdit 312Q EQN.ResultWindow 306Q EQN.ResultObj 276Q ERROR 201Q \FZEROP 132Q \FZEROP 115Q IMOD 103Q EQIO.NumPieces 100Q EQN.ResultObj 53Q TTY.PROCESS 27Q EQN.PieceNumber 23Q EQN.ContinueFlg 6 \INSUREWINDOW 3 EQN.ResultWindow) (322Q PENDINGDEL) ( 272Q "EQN.ContinueEdit: Invalid value for continueFlg = ") EQN.FinishEdit D1 (P 0 mainWindow I 0 window) )@ @ h @ H@g Hh i(45Q EQN.EditWindow 37Q EQN.UpdateEdit 34Q GETWINDOWUSERPROP 23Q EQN.AbortEdit 16Q EQN.ObjEditWindow 12Q EQN.ResultObj 3 EQN.ResultWindow) (31Q NOUPDATE) () EQN.MakeEditWindow D1 (P 0 editWindow I 2 YSIZE I 1 XSIZE I 0 mainWindow) ijd@ Bli l ohi H@ggg Hgg Hgg Hgg Hgg @gg H(145Q WINDOWADDPROP 133Q WINDOWADDPROP 121Q WINDOWADDPROP 107Q WINDOWDELPROP 75Q WINDOWADDPROP 63Q ATTACHWINDOW 41Q CREATEW 30Q CREATEREGION 22Q HEIGHTIFWINDOW 5 \INSUREWINDOW) (142Q EQN.SnuggleWindows 137Q RESHAPEFN 130Q EQN.SnuggleWindows 125Q RESHAPEFN 116Q SHAPEW 113Q REJECTMAINCOMS 104Q SHAPEW 101Q PASSTOMAINCOMS 72Q DETACHWINDOW 67Q CLOSEFN 57Q LOCALCLOSE 54Q LEFT 51Q BOTTOM) ( 34Q "Eqn edit") EQN.SetUpEdit D1 (I 4 piece# I 3 continueFlg I 2 eqnObj I 1 mainWindow I 0 editWindow) &@A @B @C @D @go B@ (43Q EQN.ObjEditWindow 36Q PUTWINDOWPROP 23Q EQN.PieceNumber 16Q EQN.ContinueFlg 11Q EQN.ResultObj 4 EQN.ResultWindow) (27Q TEDIT.MENU.COMMANDS) ( 33Q (Find Looks Substitute Character% Looks (Equation (QUOTE EQN.Equation)) (Exit (QUOTE Quit) "exit from equation editor" (SUBITEMS (Next% Piece (QUOTE EQN.NextPiece)) (Finish% Eqn (QUOTE EQN.FinishEqn)) (Abort (QUOTE EQN.NoUpdateAbort) "Terminates eqn editor without changing eqn."))))) EQN.StartEdit D1 (P 4 len P 3 box P 2 editStream P 1 editWindow P 0 data I 4 initialSEL I 3 continueFlg I 2 piece# I 1 mainWindow I 0 eqnObj) A BjB@ @B AHA [AKK YhIhogA Fg'A h IA@CB I ZHJ \DdgJkLgi 3 JDjg D`JD AI A >*<<") EQN.TEditSpecialChar D1 (P 1 syntax P 0 table I 1 charcode I 0 textObj) '@ Fg' `AH ddgh(34Q TEDIT.GETSYNTAX 17Q READTABLEP 3 TEXTOBJ) (41Q NONE 24Q TEDIT.READTABLE 13Q READTABLE 6 TEXTOBJ) () EQN.SnuggleWindows D1 (I 0 window) @ @ (7 EQN.SnuggleMainWindow 3 REPOSITIONATTACHEDWINDOWS) NIL () EQN.SnuggleMainWindowA0001 D1 (NAME ERRORSET F 0 region F 1 window F 2 RESETVARSLST F 3 mainW F 4 RESETY) 0gQoQgg hRcSPPP ci(52Q MOVEW 23Q WINDOWADDPROP) (20Q MOVEW 15Q REJECTMAINCOMS 2 WINDOWDELPROP) ( 7 (REJECTMAINCOMS MOVEW)) EQN.SnuggleMainWindow D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 region P 0 mainW I 0 window F 5 LISPXHIST F 6 RESETVARSLST) @@ H 3H@-@ YU!Vog hg\ LH h(73Q EQN.SnuggleMainWindow 65Q ERROR! 57Q RESETRESTORE 45Q EQN.SnuggleMainWindowA0001 25Q WINDOWREGION 12Q WINDOWP 3 MAINWINDOW) (53Q ERROR 42Q INTERNAL) ( 37Q (EQN.SnuggleMainWindowA0001)) EQN.EquationFontNumber D1 (P 2 i P 0 size I 0 fontSpec) J@`b3 @g ` k2JI$`J(g H LLMMJ[JkZK(64Q ABS 57Q FONTPROP 33Q ARRAYSIZE 22Q FONTPROP) (54Q SIZE 47Q EquationFontSpecs 30Q EquationFontSpecs 17Q SIZE 5 DEFAULTFONT) () EQN.EquationFont D1 (I 0 n) `k` @ ( (24Q COPY 20Q MAX 15Q MIN 11Q ARRAYSIZE) (6 EquationFontSpecs 2 EquationFontSpecs) () EQN.GetEqnFont D1 (I 0 fontSpec) @ (6 EQN.EquationFont 3 EQN.EquationFontNumber) NIL () EQN.MakeFS D1 (I 1 fontSpec I 0 item) @ @h@ A@ h(24Q FS.MakeItem 21Q MKSTRING 3 IMAGEOBJP) NIL () EQN.AdjustWindow D1 (P 3 howAttached P 2 newHeight P 1 attachedWindows P 0 region I 2 dHeight I 1 dWidth I 0 editWindow) F@ @ "l i HB Z@HHJHl HA Jh h(102Q SHAPEW 71Q MAX 60Q WIDTHIFWINDOW 34Q MAX 22Q HEIGHTIFWINDOW 11Q ATTACHEDWINDOWS 3 \INSUREWINDOW) NIL () EQN.CheckWindowSize D1 (P 3 extraHeight P 2 height P 1 box I 1 eqnObj I 0 window) B@ AJ hJ 'AJ hgJ gKh AJ HXh(231Q TEDIT.CARETLOOKS 226Q FONTCREATE 223Q FS.ItemFont 215Q TEDIT.INSERT 201Q FS.ItemFont 171Q FS.ItemValue 162Q TEDIT.INSERT 157Q FONTCREATE 154Q FS.ItemFont 147Q FS.ItemValue 140Q \FZEROP 133Q TEDIT.INSERT 123Q MINUS 114Q FS.ItemFont 104Q FS.ItemValue 60Q FS.ItemShift 52Q NCHARS 47Q FS.ItemValue 40Q FS.RealStringP 31Q TEDIT.INSERT.OBJECT 17Q IMAGEOBJP) (204Q SUPERSCRIPT 175Q FONT 117Q SUBSCRIPT 110Q FONT) () FS.AllowedChar D1 (L (0 charcode)) l @hNIL NIL () FS.RealStringP D1 (I 1 nullOk I 0 item) @A @ oh(12Q FS.ItemValue) NIL ( 16Q "") (PRETTYCOMPRINT EQUATIONSCOMS) (RPAQQ EQUATIONSCOMS ((* * EQUATION module: Part 1 of 3) (* functions for image object) (FNS EQIO.CreateFns EQIO.Create EQIO.Imagebox EQIO.Display EQIO.ButtonEventIn EQIO.Copy EQIO.CopyList EQIO.Get EQIO.Put EQIO.WhenDeleted EQIO.SelectRegion EQIO.Selection EQIO.DefaultSelectFn EQIO.MakeSelectionMenu) (* * functions to handle individual equation props and data) (FNS EQIO.EqnType EQIO.EqnDataList EQIO.SetDataList EQIO.EqnData EQIO.EqnProperty EQIO.AllProps EQIO.Specify EQIO.GetInitialProps EQIO.NumPieces EQIO.NewStructure) (* * functions to handle equation specification info) (FNS EQIO.AddType EQIO.GetInfo EQIO.SetInfo EQIO.TypeProp EQIO.ResetTypeProps EQIO.IsDefined EQIO.GetBox EQIO.GetDataSpec EQIO.GetDataSpecList EQIO.GetDataPosition EQIO.GetDataSelectRegion EQIO.MakeSpec EQIO.MakeDataSpec) (* * variable specification) (GLOBALVARS EquationInfo EquationTypeMenu EquationImageFns UnknownEquationData EquationDefaultSelectFn) (VARS (EquationImageFns NIL)) (INITVARS EquationInfo (EquationDefaultSelectFn (QUOTE EQIO.DefaultSelectFn))) (P ( TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (Equation (QUOTE EQN.Equation))))) (P (* needed to force the getfn to be recognized before any new eqns defined) (SETQ EquationImageFns (EQIO.CreateFns))) ( VARS UnknownEquationData) (PROP ARGNAMES EQIO.TypeProp EQIO.NumPieces EQIO.AllProps EQIO.EqnProperty) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow EQIO.TypeProp EQIO.NumPieces EQIO.AllProps EQIO.EqnProperty))) (* * EQUATIONEDIT module: Part 2 of 3) (* functions to edit data pieces) (FNS EQN.AbortEdit EQN.StopEdit EQN.ContinueEdit EQN.FinishEdit EQN.MakeEditWindow EQN.SetUpEdit EQN.StartEdit EQN.StartNextEdit EQN.UpdateEdit EQN.DefaultData EQN.TypeMenu) (* * hooks to control behavior of equation subeditor) (FNS EQN.Equation EQN.NextPiece EQN.FinishEqn EQN.NoUpdateAbort EQN.PreventUpdate EQN.CharFn EQN.TEditSpecialChar EQN.SnuggleWindows EQN.SnuggleMainWindow) (* * functions to handle equation fonts) (FNS EQN.EquationFontNumber EQN.EquationFont EQN.GetEqnFont EQN.MakeFS) (* * utilities) (FNS EQN.AdjustWindow EQN.CheckWindowSize) (FNS EQN.SubEditorP EQN.WindowFromText EQN.EditWindow EQN.ResultWindow EQN.ResultObj EQN.PieceNumber EQN.ContinueFlg EQN.ValidEditWindow EQN.ObjEditWindow) (FNS EQN.Make) (GLOBALVARS EquationFontSpecs) ( VARS EquationFontSpecs) (PROP ARGNAMES EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA EQN.ObjEditWindow EQN.ContinueFlg EQN.PieceNumber EQN.ResultObj EQN.ResultWindow EQN.EditWindow))) (* * FORMATSTRING module: Part 3 of 3) (FNS FS.Box FS.Copy FS.Display FS.Get FS.Put FS.ItemFont FS.ItemValue FS.ItemShift FS.MakeItem FS.Extract FS.ExtractFont FS.ExtractShift FS.Insert FS.AllowedChar FS.RealStringP) (* * Now load EQUATIONFORMS) (FILES EQUATIONFORMS))) (RPAQQ EquationImageFns NIL) (RPAQ? EquationInfo NIL) (RPAQ? EquationDefaultSelectFn (QUOTE EQIO.DefaultSelectFn)) (TEDIT.ADD.MENUITEM TEDIT.DEFAULT.MENU (QUOTE (Equation (QUOTE EQN.Equation)))) (SETQ EquationImageFns (EQIO.CreateFns)) (RPAQQ UnknownEquationData (((Gacha 10) "[unknown equation]"))) (PUTPROPS EQIO.TypeProp ARGNAMES (NIL (type prop {newValue}) args)) (PUTPROPS EQIO.NumPieces ARGNAMES (NIL (eqnObj {newValue}) args)) (PUTPROPS EQIO.AllProps ARGNAMES (NIL (eqnObj {newValue}) args)) (PUTPROPS EQIO.EqnProperty ARGNAMES (NIL (eqnObj prop {newValue}) args)) (RPAQ EquationFontSpecs (READARRAY 3 (QUOTE POINTER) 1)) ((TimesRoman 8) (TimesRoman 10) (TimesRoman 12) NIL) (PUTPROPS EQN.ObjEditWindow ARGNAMES (NIL (eqnObj {newEditWindow}) args)) (PUTPROPS EQN.ContinueFlg ARGNAMES (NIL (editWindow {continueFlg}) args)) (PUTPROPS EQN.PieceNumber ARGNAMES (NIL (editWindow {pieceNumber}) args)) (PUTPROPS EQN.ResultObj ARGNAMES (NIL (editWindow {resultObj}) args)) (PUTPROPS EQN.ResultWindow ARGNAMES (NIL (editWindow {resultWindow}) args)) (PUTPROPS EQN.EditWindow ARGNAMES (NIL (window {editWindow}) args)) (FILESLOAD EQUATIONFORMS) (PUTPROPS EQUATIONS COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL