(FILECREATED " 3-Jul-84 15:08:23" ("compiled on " {INDIGO}SOURCES>LOOPSBROWSE.;68) " 8-Jun-84 11:17:20" recompiled exprs: LatticeBrowser.Recompute LatticeBrowser.Show in WORK dated " 3-Jul-84 10:56:30") (FILECREATED " 3-Jul-84 15:06:41" {INDIGO}SOURCES>LOOPSBROWSE.;68 79130 changes to: (FNS LatticeBrowser.Show LatticeBrowser.Recompute) previous date: " 3-Jul-84 00:44:40" {INDIGO}SOURCES>LOOPSBROWSE.;67) ClassBrowser.AddNewCV D1 (P 4 P P 1 cvForm P 0 cvName I 2 objName I 1 object I 0 self) o 1Hd²sA[g ºKglJž¿BoHhHggggggi hhYdhBgYAIIIdAILLµíh(167Q PutClassValue 146Q AddCV 134Q DEDITE 107Q USERNAME 56Q PROMPTPRINT 44Q RINGBELLS 25Q FetchMethodOrHelp 6 PromptRead) (131Q CLASSES 103Q by 100Q added 75Q CV 72Q * 67Q doc 64Q **DefaultValue 32Q CVs 22Q List) ( 52Q "already has " 3 "Please tell me the name of the CV.") ClassBrowser.AddNewIVA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 ivForm F 1 object) QPPPi(13Q AddCIV) NIL () ClassBrowser.AddNewIV D1 (P 1 ivForm P 0 ivName I 2 objName I 1 object I 0 self) ho 1H´[A[g ºKHlJž¿BoHhHgggggghi hh¹IhBg¹oi ²îh(142Q ClassBrowser.AddNewIVA0002 131Q DEDITE 104Q USERNAME 52Q PROMPTPRINT 40Q RINGBELLS 24Q FetchMethodOrHelp 6 PromptRead) (126Q CLASSES 77Q by 74Q added 71Q IV 66Q * 63Q doc 60Q **DefaultValue 21Q HasIV) ( 136Q (DUMMY.FOR.ERRORSET) 46Q "already has " 3 "Please tell me the name of the IV.") ClassBrowser.AddSuper D1 (P 0 superName I 2 objName I 1 obj I 0 self) Co Hµ o `ð¨Ho HA ˜Ho AHA (100Q InstallSupers 74Q GetSourceSupers 65Q PROMPT 53Q GetSourceSupers 45Q PROMPT 27Q $! 23Q PROMPT 6 PromptRead) (33Q classTYPE#) ( 62Q " is already super of class." 42Q " not a class, nothing added" 20Q "Nothing Added" 3 "Type in name of new super") ClassBrowser.BoxNode D1 (I 1 object I 0 self) @Hg ¹HAilI(12Q GetSuperMethod) (7 BoxNode) () ClassBrowser.CVDoc D1 (P 4 menu P 3 choice P 2 vbls I 2 className I 1 class I 0 self F 7 PPDefault) ‰AHg ¹HglIAJl oB¿@^g ½NJBo lM\¿L [¡hW ¿W ¿BW ¿oW ¿KW ¿oW ¿AKgW °¼(205Q PRIN1 200Q GetClassValue 167Q PRIN1 155Q PRIN1 146Q PRIN1 134Q PRIN1 125Q TERPRI 117Q TERPRI 106Q MENU 73Q CONCAT 60Q FetchMethodOrHelp 47Q PROMPT 37Q CHARACTER 12Q FetchMethodOrHelp) (175Q doc 55Q ItemMenu 17Q CVS 7 List!) ( 162Q ": " 141Q "::" 70Q " ClassVars" 43Q " No Class Variables found for ") ClassBrowser.ClassDoc D1 (P 0 doc I 2 objname I 1 object I 0 self F 1 PPDefault) CAg Hgð²Q ¿BQ ¿o°Q ¿BQ ¿oQ ¿HQ ¿Q h(77Q TERPRI 72Q PRIN1 64Q PRIN1 53Q PRIN1 45Q TERPRI 32Q PRIN1 24Q TERPRI 6 GetClassHere) (15Q ? 3 doc) ( 60Q ": " 37Q " has no documentation.") ClassBrowser.CopyTo D1 (P 4 flg P 3 items P 2 value P 1 type P 0 name I 2 objName I 1 object I 0 self) pð0@g l o h`do¿dg ¿dg¿jdnÿdh½dM ¿ Y’±úhi¼@_g _¿OK A oIlO X´‚±ðIdgð²"¿A_g _¿OH@g lO±‰gð² A_g _¿OH@g lO°dIdgð²^¿A@g ð²3A_g _¿OH@g o µo ¿¿¿°%lO°A_"g _ ¿O"H@g HlO ¿IoHo@g ¿A_g ¾OIlN[’±þ÷Ll BoIh(554Q PrintStatus 543Q CHARACTER 516Q FetchMethodOrHelp 504Q PrintStatus 500Q GetValue 447Q GetValue 432Q FetchMethodOrHelp 406Q PROMPT 375Q PromptRead 366Q GetValue 351Q FetchMethodOrHelp 335Q GetValue 304Q GetValue 267Q FetchMethodOrHelp 237Q GetValue 222Q FetchMethodOrHelp 171Q MENU 160Q CONCAT 150Q ClassName 144Q SORT 133Q FetchMethodOrHelp 111Q MENU 31Q PrintStatus 22Q CHARACTER 14Q GetValue) (513Q List 475Q boxedNode 444Q boxedNode 427Q CopyMethod 363Q boxedNode 346Q CopyMethod 332Q boxedNode 321Q Methods 301Q boxedNode 264Q CopyCV 253Q CVS 234Q boxedNode 217Q CopyIV 205Q IVS 130Q ItemMenu 62Q DEFAULTMENUHELDFN 53Q CLRPROMPT 36Q MENUTYPE# 11Q boxedNode) ( 550Q " has no " 471Q " has been copied to " 464Q " " 403Q "Not copied" 372Q "Tell me new selector name" 154Q " " 44Q (IVS CVS Methods) 26Q "First Box the node which is target for move.") ClassBrowser.DefineSubclass D1 (P 0 className I 2 objName I 1 object I 0 self) CPo Xd²5lðl HoAZg ¹JHlI¿@\g »LkKh(71Q FetchMethodOrHelp 50Q FetchMethodOrHelp 37Q PROMPT 27Q CHARACTER 11Q PromptRead) (66Q Recompute 45Q Specialize) ( 34Q "should be an atom to name a class" 6 "Type in the name of the new class, or NIL for none.") ClassBrowser.DeleteCV D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q CVs 7 DeleteClassItem) () ClassBrowser.DeleteClass D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q Class 7 DeleteClassItem) () ClassBrowser.DeleteClassItem D1 (P 1 choices P 0 choice I 3 type I 2 className I 1 class I 0 self F 20Q ClassChoiceMenu) jðC³Pg `ð“W °8g`di¿do¿dg ¿dg¿jdnÿdhºdJ ¿ b¡hA\g »LClKY³oBoCo ´ÚCgð²@]g ¾MABlN@_g _¿OIA oClO X´šCdgð²¿A_g _¿OgHlO¿±‡gð²A_g _¿OgHlO¿°eCdgð²V¿A_g _¿OgH`do¿do¿dg ¿dg¿jdnÿdh_¿dO ¿ lO¿†o h(546Q LoopsHelp 527Q MENU 425Q FetchMethodOrHelp 361Q FetchMethodOrHelp 317Q FetchMethodOrHelp 272Q MENU 261Q CONCAT 251Q ClassName 237Q FetchMethodOrHelp 214Q FetchMethodOrHelp 173Q PROMPT 136Q FetchMethodOrHelp 121Q MENU 116Q SETTOPVAL 16Q GETTOPVAL) (475Q DEFAULTMENUHELDFN 466Q CLRPROMPT 441Q MENUTYPE# 435Q Method 422Q Delete 410Q Methods 371Q CV 356Q Delete 345Q CVs 327Q IV 314Q Delete 302Q IVs 234Q ItemMenu 211Q DestroyAndRecompute 201Q Class 133Q List 67Q DEFAULTMENUHELDFN 60Q CLRPROMPT 36Q MENUTYPE# 33Q ClassChoiceMenu 22Q MENUTYPE# 13Q ClassChoiceMenu) ( 543Q " wrong in DeleteClassItem." 457Q (("Delete as Method Only" NIL "Remove method from class") ("Delete Method and Function" T "Also delete function definition") ("Abort" (ERROR!) "Don't delete anything")) 447Q "Select Deletion Operation" 255Q " " 167Q ". " 162Q " of type " 155Q " No items for " 51Q (IVs CVs Methods Class)) ClassBrowser.DeleteFromBrowser D1 (I 2 objname I 1 obj I 0 self) #@gA@g @Hg ¹HkI(32Q FetchMethodOrHelp 17Q PutValue 13Q GetValue) (27Q Recompute 10Q badList 3 badList) () ClassBrowser.DeleteIV D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q IVs 7 DeleteClassItem) () ClassBrowser.DeleteMethod D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q Methods 7 DeleteClassItem) () ClassBrowser.DestroyAndRecompute D1 (I 2 objName I 1 object I 0 self) l`dg¿oB hHdI¿dg ¿dg¿jdnÿdhHdI ¿ ´%AHg ¹HkI@Hg ¹HkI(143Q FetchMethodOrHelp 121Q FetchMethodOrHelp 104Q MENU 22Q CONCAT) (140Q Recompute 116Q Destroy 51Q DEFAULTMENUHELDFN 42Q CLRPROMPT 7 Confirm 2 MENUTYPE#) ( 16Q "Destroy ") ClassBrowser.FindWhere D1 (P 3 menu P 2 items P 1 value P 0 name I 3 type I 2 objName I 1 object I 0 self) ¿ ÐC³5`do¿dg ¿dg¿jdnÿdh¼dL ¿ b¡hA^g ½NClMZ¯l BoCh@_g _¿OJ lO[¿K X´àA_g _¿OHClO¹@_g _¿OIlO¿CoHoIo °¸(273Q PrintStatus 233Q FetchMethodOrHelp 204Q FetchMethodOrHelp 170Q MENU 154Q SORT 143Q FetchMethodOrHelp 130Q PrintStatus 117Q CHARACTER 100Q FetchMethodOrHelp 63Q MENU) (230Q FlashNode 201Q WhereIs 140Q ItemMenu 75Q List! 34Q DEFAULTMENUHELDFN 25Q CLRPROMPT 10Q MENUTYPE#) ( 267Q " " 262Q " is in " 255Q " " 124Q " has no " 16Q (IVS CVS Methods)) ClassBrowser.GetMethodDoc D1 (P 3 selector P 2 selectors I 2 objName I 1 object I 0 self) KAHg ¹HglIQJ´/@]g ¼MJolL [´A_g ¾OKlNh(76Q FetchMethodOrHelp 62Q MENU 43Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (73Q MethodDoc 40Q ItemMenu 17Q Methods 7 List!) ( 52Q "All methods") ClassBrowser.GetSubs D1 (P 5 C I 2 objName I 1 obj I 0 self) YPA\g »LkK°:d@g ²M@g M @g ´M hX–IµHZY¿µÇJ YH°ó(122Q LAST 74Q GetObjectRec 65Q GetValue 56Q GetObjectRec 50Q GetValue 36Q GetValue 12Q FetchMethodOrHelp) (62Q goodList 45Q goodList 33Q goodList 7 SubClasses) () ClassBrowser.IVDoc D1 (P 4 menu P 3 choice P 2 vbls I 2 className I 1 class I 0 self F 7 PPDefault) ‰AHg ¹HglIAJl oB¿@^g ½NJBo lM\¿L [¡hW ¿W ¿BW ¿oW ¿KW ¿oW ¿AKgW °¼(205Q PRIN1 200Q GetClassIV 167Q PRIN1 155Q PRIN1 146Q PRIN1 134Q PRIN1 125Q TERPRI 117Q TERPRI 106Q MENU 73Q CONCAT 60Q FetchMethodOrHelp 47Q PROMPT 37Q CHARACTER 12Q FetchMethodOrHelp) (175Q doc 55Q ItemMenu 17Q IVS 7 List!) ( 162Q ": " 141Q ":" 70Q " Instance Vars" 43Q " No Instance Variables found for ") ClassBrowser.LeftShiftSelect D1 (I 2 objname I 1 object I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 PrintSummary) () ClassBrowser.MoveTo D1 (P 4 flg P 3 items P 2 value P 1 type P 0 name I 2 objName I 1 object I 0 self) ”ð0`do¿dg ¿dg¿jdnÿdh½dM ¿ Yd’±/A_g _¿OIlO[³Ll BoIh@g ¬l o A@g ðœl o i¼@_g _¿OIgð‘KƒK A oIlO X´CIdgð²<¿A_g _¿O@g HKlO¿@_"g _ ¿O"kO hgð²B@g H°2Idgð²¿B@g H°gð²B@g Hd¿IoHo@g ¿Igð¢±þÐA_g ¾OkN¿@_g _¿OkO(607Q FetchMethodOrHelp 566Q FetchMethodOrHelp 543Q PrintStatus 537Q GetValue 515Q MoveMethod 510Q ClassName 505Q GetValue 465Q MoveClassVariable 461Q ClassName 456Q GetValue 433Q MoveVariable 427Q ClassName 424Q GetValue 372Q FetchMethodOrHelp 352Q SUBST 345Q ClassName 342Q GetValue 326Q FetchMethodOrHelp 301Q MENU 270Q CONCAT 260Q ClassName 254Q SORT 233Q FetchMethodOrHelp 217Q PROMPT 210Q CHARACTER 201Q GetValue 170Q PROMPT 161Q CHARACTER 153Q GetValue 142Q PrintStatus 131Q CHARACTER 103Q FetchMethodOrHelp 63Q MENU) (604Q Recompute 563Q MoveToFile 550Q File 534Q boxedNode 502Q boxedNode 472Q Methods 453Q boxedNode 442Q CVS 421Q boxedNode 411Q IVS 367Q Recompute 337Q boxedNode 323Q ReplaceSupers 311Q Supers 244Q Supers 230Q ItemMenu 176Q boxedNode 150Q boxedNode 100Q List 34Q DEFAULTMENUHELDFN 25Q CLRPROMPT 10Q MENUTYPE#) ( 530Q " is now in " 523Q " " 264Q " " 214Q "Can't move to same node" 165Q "Use BoxNode to box node which is to be target for Move" 136Q " has no " 16Q (IVS CVS Methods Supers File)) ClassBrowser.NewItem D1 (P 2 newItem I 1 name I 0 self) R@Hg ¹HAlI!Jd`ð³2d`ð³*´(oJ h`´g [g ¼KJlL(107Q FetchMethodOrHelp 100Q GetObjectRec 70Q MOUSECONFIRM 61Q CONCAT 12Q GetSuperMethod) (104Q New 75Q Class 65Q PROMPTWINDOW 44Q classTYPE# 34Q instanceTYPE# 7 NewItem) ( 55Q "About to create class named ") ClassBrowser.Recompute D1 (I 1 reshapeFlg I 0 self) 0@Hg ¹HAlI@g ´@g @g (55Q BoxWindowNode 52Q GetValue 43Q GetValue 32Q GetValue 12Q GetSuperMethod) (47Q window 40Q boxedNode 27Q boxedNode 7 Recompute) () ClassBrowser.RenameCV D1 (P 1 newName P 0 name I 2 objName I 1 object I 0 self F 6 items F 7 flg) c`A[g ºKglJc³W¬l Boh@]g ¼MV A o lL X´o Y´ BHIih(137Q RenameVariable 125Q PromptRead 113Q MENU 103Q CONCAT 74Q ClassName 70Q SORT 62Q FetchMethodOrHelp 50Q PrintStatus 40Q CHARACTER 12Q FetchMethodOrHelp) (57Q ItemMenu 17Q CVs 7 List) ( 122Q "New CV name:" 100Q " CVs" 45Q " has no Class Variables") ClassBrowser.RenameClass D1 (P 0 className I 2 objName I 1 object I 0 self) /o AH´"AZg ¹JHlI¿@\g »LkKh(45Q FetchMethodOrHelp 24Q FetchMethodOrHelp 6 PromptRead) (42Q Recompute 21Q Rename) ( 3 "Type in the new name for this class, or NIL not to change.") ClassBrowser.RenameIV D1 (P 1 newName P 0 name I 2 objName I 1 object I 0 self F 6 items F 7 flg) b`A[g ºKglJc³W¬l Boh@]g ¼MV A o lL X´o Y´ BHIh(136Q RenameVariable 125Q PromptRead 113Q MENU 103Q CONCAT 74Q ClassName 70Q SORT 62Q FetchMethodOrHelp 50Q PrintStatus 40Q CHARACTER 12Q FetchMethodOrHelp) (57Q ItemMenu 17Q IVs 7 List) ( 122Q "New IV name:" 100Q " IVs" 45Q " has no Instance Variables") ClassBrowser.RenameMeth D1 (P 1 newName P 0 name I 2 objName I 1 object I 0 self F 10Q items F 11Q flg) p€A[g ºKglJc³W¬l Boh@]g ¼MW A o lL X´ o Y´A_g ¾OHIlNh(142Q FetchMethodOrHelp 126Q PromptRead 114Q MENU 104Q CONCAT 75Q ClassName 71Q SORT 62Q FetchMethodOrHelp 50Q PrintStatus 40Q CHARACTER 12Q FetchMethodOrHelp) (137Q RenameMethod 57Q ItemMenu 17Q Methods 7 List) ( 123Q "New Selector Name:" 101Q " Methods" 45Q " has no Methods") ClassBrowser.RenamePart D1 (P 5 flg P 4 items P 3 value P 2 type P 1 newName P 0 name I 2 objName I 1 object I 0 self) ð`do¿dg ¿dg¿jdnÿdh¾dN ¿ Zd’±ÌJgð¬Jgð¦Jgð´+A_g _¿OJlO\³Ml BoJhi½@_g _¿OL A oJlO X´ÕJdgð²¿o Y²MBHI°Dgð²o Y²5BHIi°+Jdgð²%¿o Y²A_g _¿OHIlO¿Jgð¢±ÿ3@_g _¿OABlO(420Q FetchMethodOrHelp 360Q FetchMethodOrHelp 344Q PromptRead 322Q RenameVariable 310Q PromptRead 271Q RenameVariable 260Q PromptRead 235Q MENU 224Q CONCAT 214Q ClassName 210Q SORT 177Q FetchMethodOrHelp 162Q PrintStatus 151Q CHARACTER 123Q FetchMethodOrHelp 60Q MENU) (415Q RenameClass 402Q Class 355Q RenameMethod 331Q Methods 276Q CVS 245Q IVS 174Q ItemMenu 120Q List 107Q Methods 101Q CVS 73Q IVS 31Q DEFAULTMENUHELDFN 22Q CLRPROMPT 5 MENUTYPE#) ( 341Q "New Selector Name:" 305Q "New CV name:" 255Q "New IV name:" 220Q " " 156Q " has no " 13Q (IVS CVS Methods Class)) ClassBrowser.SetItNew D1 (P 3 classForMethod P 2 obj% I 1 class I 0 self) 1gAHg ¹HkI!Jg ¼JkL¿Ji (56Q SETTOPVAL 53Q PRINT 36Q FetchMethodOrHelp 15Q FetchMethodOrHelp) (33Q Inspect 12Q New 2 IT) () ClassBrowser.WhereIsCV D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q CVS 7 FindWhere) () ClassBrowser.WhereIsIV D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q IVS 7 FindWhere) () ClassBrowser.WhereIsMethod D1 (I 2 objName I 1 obj I 0 self) @Hg ¹HABglI(12Q FetchMethodOrHelp) (21Q Methods 7 FindWhere) () FileBrowser.DefineSubclass D1 (P 0 className I 2 objName I 1 object I 0 self) RPo Xd²Dlðl HoAZg ¹JHlI¿Hg@g ¿@\g »LkKh(110Q FetchMethodOrHelp 77Q ADDTOFILE 74Q GetValue 50Q FetchMethodOrHelp 37Q PROMPT 27Q CHARACTER 11Q PromptRead) (105Q Recompute 71Q file 65Q CLASSES 45Q Specialize) ( 34Q "should be an atom to name a class" 6 "Type in the name of the new class, or NIL for none.") FileBrowser.EditComs D1 (I 0 self) @ggkg(11Q GetValue) (15Q DV 6 fileComs 3 file) () FileBrowser.EditFns D1 (P 1 choice P 0 fns I 0 self) …@g @g g 1@[g ºKgH@g o lJ Yddgð²1¿o Yd².hgghhlgžIg@g ¿I´ Ikg(167Q ADDTOFILE 164Q GetValue 122Q PromptRead 101Q MENU 71Q CONCAT 62Q GetValue 44Q FetchMethodOrHelp 31Q LDIFFERENCE 26Q FILECOMSLST 20Q GetValue 11Q FILEFNSLST 6 GetValue) (200Q DF 161Q file 155Q FNS 146Q DE 135Q Comment 132Q * 107Q *NewFunction* 57Q file 51Q *NewFunction* 41Q ItemMenu 23Q METHODS 15Q file 3 file) ( 117Q "Please tell me the name of the new function" 66Q " Functions") FileBrowser.EditInstances D1 (P 1 choice P 0 instances I 0 self) h @g g QH´U@[g ºK0H°d ¾OµNh_N&_¿µéO@g o lJ Yd]g ¼MkLh(136Q FetchMethodOrHelp 124Q MENU 114Q CONCAT 105Q GetValue 47Q GetObjectRec 32Q FetchMethodOrHelp 14Q FILECOMSLST 6 GetValue) (133Q Edit 102Q file 27Q ItemMenu 11Q INSTANCES 3 file) ( 111Q " Instances") FileBrowser.EditVars D1 (P 1 choice P 0 vars I 0 self) @@g g 1H´-@[g ºKH@g o lJ Yd–kgh(63Q MENU 53Q CONCAT 44Q GetValue 32Q FetchMethodOrHelp 14Q FILECOMSLST 6 GetValue) (72Q DV 41Q file 27Q ItemMenu 11Q VARS 3 file) ( 50Q " Vars") FileBrowser.File D1 (P 1 classes P 0 fileComs I 1 fileName I 0 self) †A bd Q@gA@gHgH ³&Hgggghi ho ¿A Y@[g ºKIAo IglJ¿Ag @]g ¼MkL@(174Q FetchMethodOrHelp 163Q FILECOMSLST 142Q CONCAT 127Q FetchMethodOrHelp 116Q FILECLASSES 111Q SETTOPVAL 106Q COPY 70Q USERNAME 43Q GETTOPVAL 37Q PutValue 24Q PutValue 11Q FILECOMS 3 U-CASE) (171Q Move 160Q CLASSES 146Q showEvenIfEmpty 124Q Show 63Q by 60Q Created 55Q File 52Q * 34Q fileComs 30Q file 20Q file) ( 137Q " file browser" 102Q ((CLASSES) (METHODS) (FNS) (VARS) (INSTANCES))) FileBrowser.NewItem D1 (P 1 new P 0 alreadyExistsFlg I 1 name I 0 self) gAµo b 1Hµ+A´(oA h`´g [g ºKAlJYd´%H³d g@g ¿I´ H—@gII(143Q PushNewValue 125Q ADDTOFILE 122Q GetValue 110Q ClassName 65Q FetchMethodOrHelp 56Q GetObjectRec 46Q MOUSECONFIRM 37Q CONCAT 16Q $! 11Q PromptRead) (137Q nonFileClasses 117Q file 113Q CLASSES 62Q New 53Q Class 43Q PROMPTWINDOW) ( 33Q "About to create class named " 6 "Give name of item to be added") FileBrowser.Recompute D1 (I 1 dontReshapeFlg I 0 self) S@g@g@g 0@g °d ¸IµHhZH&¹µíJ @Hg ¹HAlI(110Q GetSuperMethod 75Q PutValue 72Q PutValue 67Q \APPEND2 42Q $! 33Q FILECLASSES 30Q GetValue 16Q GetValue) (105Q Recompute 25Q file 13Q nonFileClasses 7 goodList 3 startingList) () FileBrowser.SaveFile D1 (I 0 self) g@g h (21Q APPLY 14Q GetValue 2 FILES?) (11Q file 5 CLEANUP) () FileBrowser.SetItNew D1 (P 0 name I 2 objName I 1 obj I 0 self F 7 IT) ep@Zg ¹JABlI¿o Xd²W\g »LHlK¿HµW g@g g ^g ½NkMgWh(141Q PutValue 123Q FetchMethodOrHelp 114Q GetObjectRec 106Q ADDTOFILE 103Q GetValue 71Q UID 50Q FetchMethodOrHelp 33Q PromptRead 12Q GetSuperMethod) (134Q savedValue 120Q Prototype 111Q LoopsIcon 100Q file 74Q INSTANCES 45Q SetName 7 SetItNew) ( 30Q "New Instance name, or NIL for none.") InstanceBrowser.GetSubs D1 (I 1 object I 0 self) 2@g ´)AHg ¹H@g lI´ A@g (57Q GetValue 54Q GetValue 34Q GetValue 23Q FetchMethodOrHelp 6 GetValue) (51Q subIV 31Q subIV 20Q HasIV 3 subIV) () InstanceBrowser.NewPath D1 (I 1 subName I 0 self) LAªo b´?@gA@gAo @Hg ¹HkI´@Hg ¹HkIh(102Q FetchMethodOrHelp 56Q FetchMethodOrHelp 43Q PutValue 40Q CONCAT 24Q PutValue 10Q PromptRead) (77Q Recompute 53Q HasLispWindow 30Q title 20Q subIV) ( 35Q " instance browser" 5 "Name of new IV for browsing: ") LatticeBrowser.AddRoot D1 (P 0 sl I 1 newItem I 0 self) @g A@Zg ¹JAlIbd`ð¯d`ð¨¿o H£AH¸@gH@g ²A@g ¨@gA¿@gA@g @\g »LkKh(167Q FetchMethodOrHelp 157Q PutValue 154Q DREMOVE 151Q GetValue 134Q PushValue 122Q GetValue 110Q GetValue 101Q PutValue 61Q PROMPTPRINT 21Q FetchMethodOrHelp 6 GetValue) (164Q Recompute 146Q badList 141Q badList 130Q goodList 117Q goodList 105Q goodList 75Q startingList 47Q classTYPE# 40Q instanceTYPE# 16Q NewItem 3 startingList) ( 56Q "Nothing Added To Browser") LatticeBrowser.BoxNode D1 (P 0 bn I 2 unboxPrevious I 1 object I 0 self) OAdlðž µ Ao b@g @g X@gHµA°Að¯B›H@g ¿A€hh(113Q PutValue 104Q BoxWindowNode 101Q GetValue 51Q GetValue 42Q BoxWindowNode 37Q GetValue 26Q ERROR 14Q GetObjectRec) (76Q window 56Q boxedNode 46Q boxedNode 34Q window) ( 23Q " is not a named object.") LatticeBrowser.BrowserObjects D1 (I 0 self) 9@@g g °d[hð´KhX–IµHZY¿µçJ YH°ó(62Q LAST 17Q GETWINDOWUSERPROP 11Q GetValue) (14Q GRAPH 6 window) () LatticeBrowser.ChangeFontSize D1 (I 1 size I 0 self F 2 MenuSize) ‘A³Zg `ð’R°Dg`do¿di¿do¿dg ¿dg¿jdnÿdhHdI ¿ b´6@g@ggA@ggh @Hg ¹HkI(210Q FetchMethodOrHelp 175Q PutValue 172Q FONTCREATE 163Q GetValue 150Q GetValue 126Q MENU 123Q SETTOPVAL 10Q GETTOPVAL) (205Q Recompute 160Q FontFace 155Q browseFont 145Q FontFamily 142Q browseFont 136Q browseFont 70Q DEFAULTMENUHELDFN 61Q CLRPROMPT 27Q MENUTYPE# 24Q MenuSize 14Q MENUTYPE# 5 MenuSize) ( 52Q ((Abort NIL) 10Q 12Q 14Q 20Q) 35Q "Select Desired Size") LatticeBrowser.ChangeFormat D1 (I 1 format I 0 self) aA³C`@ggHdI¿dg ¿dg¿jdnÿdhHdI ¿ b˜@gA¿@Hg ¹HkI(130Q FetchMethodOrHelp 114Q PutValue 101Q MENU 21Q GetValue) (125Q Recompute 110Q graphFormat 46Q DEFAULTMENUHELDFN 37Q CLRPROMPT 16Q choices 13Q graphFormat 6 MENUTYPE#) () LatticeBrowser.Clear D1 (I 0 self) (@g g @Hg ¹HkI@g (45Q GetValue 27Q GetSuperMethod 14Q PUTWINDOWPROP 6 GetValue) (42Q window 24Q Clear 11Q GRAPH 3 window) () LatticeBrowser.DoSelectedCommand D1 (P 0 args I 3 objName I 2 obj I 1 command I 0 self) N0Ad —A¸Ab¿Bµ#A@g ³#BZg ¹JAlIŸBAH°b b¿°Ö@ABCHh(112Q SendInTtyProcess 73Q GetObjectName 47Q FetchMethodOrHelp 34Q GetClassValue) (44Q Understands 31Q LocalCommands) () LatticeBrowser.EEObject D1 (I 2 objName I 1 object I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 Edit) () LatticeBrowser.EditObject D1 (I 3 args I 2 objName I 1 object I 0 self) AHg ¹HClI(12Q FetchMethodOrHelp) (7 Edit) () LatticeBrowser.FlashNode D1 (P 1 i I 3 flashTime I 2 N I 1 node I 0 self) LBµlkBIHñ‘h@[g ºKAlJ¿Cµn, ¿@]g ¼MAlL¿Cµn, ¿IkØY°Á(103Q DISMISS 61Q FetchMethodOrHelp 50Q DISMISS 26Q FetchMethodOrHelp) (56Q FlipNode 23Q FlipNode) () LatticeBrowser.FlipNode D1 (P 2 nodes P 1 node P 0 window I 1 object I 0 self) c@g !Alð²A µ Ao b¿Hg ZAJ Y²$gA ¿IH ¿A´AJ Yd²H ¿ŠAo h(137Q PROMPTPRINT 134Q CONCAT 122Q FLIPNODE 112Q FASSOC 77Q FLIPNODE 71Q SETTOPVAL 57Q FASSOC 50Q GETWINDOWUSERPROP 36Q ERROR 24Q GetObjectRec 6 GetValue) (65Q IT 45Q GRAPH 3 window) ( 131Q " is not a node in this browser. " 33Q " is not a named object.") LatticeBrowser.GetLabel D1 (I 1 object I 0 self) A (3 GetObjectName) NIL () LatticeBrowser.GetNodeList D1 (P 22Q obj1 P 21Q objPair P 20Q sub P 16Q subObjs P 15Q obj P 14Q name P 13Q pair P 11Q objOrName P 2 pair P 1 subs P 0 objList I 2 goodList I 1 browseList I 0 self) áBið“Ab¿hhA°*d @\g »LOlKZJH ¥HJ ¿µ×HAO_µH_³Khh_¿@^g ½NO_lM1Oµ-OOhdddddOhdOhddh¿O°¤_ ¿@_g _¿OO lO_"µ O_°¯_$H ¦HO" ¿OO$ ¿°á(334Q TCONC 324Q TCONC 315Q FASSOC 255Q FetchMethodOrHelp 140Q FetchMethodOrHelp 65Q TCONC 57Q FASSOC 35Q FetchMethodOrHelp) (252Q ObjNamePair 135Q GetSubs 32Q ObjNamePair) () LatticeBrowser.GetSubs D1 (I 1 object I 0 self) !AHg ¹HglI´ Ag (36Q GetValue 12Q FetchMethodOrHelp) (33Q subs 17Q subs 7 HasIV) () LatticeBrowser.HasObject D1 (I 1 object I 0 self) A @g g ´i(24Q FASSOC 20Q GETWINDOWUSERPROP 12Q GetValue 3 GetObjectRec) (15Q GRAPH 7 window) () LatticeBrowser.LeftSelection D1 (P 15Q objName P 14Q items P 13Q selector P 12Q object P 11Q latticeBrowser P 2 realObj P 1 oldMode P 0 window I 0 self) ·@g `Ènåjð²"hH ¹¿gH ¿H ¿IH ¿±€@H 2 O´t¿OµO _¿`Èl@åjð²O\g »LOµOOlK¿°8@^g ½NkMµ°&_¿O_g _¿OOOµOOlOh(234Q FetchMethodOrHelp 205Q FetchMethodOrHelp 151Q FetchMethodOrHelp 121Q GetObjectName 105Q GETMOUSESTATE 73Q FindSelectedNode 62Q DSPOPERATION 54Q EDITMOVENODE 47Q DSPOPERATION 37Q GETMOUSESTATE 33Q DSPOPERATION 6 GetValue) (231Q DoSelectedCommand 202Q LeftChoice 146Q LeftShiftSelect 127Q \EM.KBDAD2 43Q INVERT 14Q \EM.KBDAD2 3 window) () LatticeBrowser.LeftShiftSelect D1 (I 2 objname I 1 object I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 PP!) () LatticeBrowser.ListObjects D1 (I 1 object I 0 self) (0@g g d¸IµHhZH&¹µïJ(17Q GETWINDOWUSERPROP 11Q GetValue) (14Q GRAPH 6 window) () LatticeBrowser.MiddleSelection D1 (P 4 object P 3 selection P 2 objName P 1 latticeBrowser P 0 window I 0 self) ·@g @òH \d¢±£ ZIgL@^g ½NLlM¿`Èl@åjð²1@_g _¿OLlO¿I_g _¿OLJlO¿°F@_g _¿OLlO¿@_g _¿OkOd²»I_ g _¿O KLJlOh(245Q FetchMethodOrHelp 216Q FetchMethodOrHelp 170Q FetchMethodOrHelp 137Q FetchMethodOrHelp 111Q FetchMethodOrHelp 53Q FetchMethodOrHelp 43Q GETMOUSESTATE 40Q PutValue 27Q GetObjectName 16Q FindSelectedNode 6 GetValue) (242Q DoSelectedCommand 213Q MiddleChoice 165Q FlipNode 134Q MiddleShiftSelect 106Q FlipNode 67Q \EM.KBDAD2 50Q FlipNode 34Q lastSelectedObject 3 window) () LatticeBrowser.MiddleShiftSelect D1 (I 2 objname I 1 object I 0 self) @gAh(11Q SendInTtyProcess) (3 EditObject) () LatticeBrowser.NewItem D1 (I 1 newItem I 0 self) *Aµo bd²d`ð³d`ð©lð´A (47Q $! 11Q PromptRead) (33Q classTYPE# 23Q instanceTYPE#) ( 6 "Give name of item to be added") LatticeBrowser.ObjNamePair D1 (P 1 name P 0 obj I 1 objOrName I 0 self) ^`AdlðšY µhA¸@[g ºKAlJ¹H]g ¼MglL³×@g šH@g ´ÅH@g ³¹HI(125Q GetValue 112Q GetValue 101Q GetValue 56Q FetchMethodOrHelp 35Q FetchMethodOrHelp 15Q GetObjectRec) (122Q badList 107Q goodList 76Q goodList 63Q DestroyedObject 53Q InstOf! 32Q GetLabel) () LatticeBrowser.Recompute D1 (I 1 dontReshapeFlg I 0 self) b@Hg ¹H@g @g @g lIA²%@g j@g j@g ¿°@Hg ¹HkI@(130Q FetchMethodOrHelp 112Q SCROLLW 107Q WTODSY 104Q GetValue 74Q WTODSX 71Q GetValue 61Q GetValue 41Q GetValue 32Q GetValue 23Q GetValue 12Q FetchMethodOrHelp) (125Q ShapeToHold 101Q window 66Q window 56Q window 36Q goodList 27Q window 20Q startingList 7 Show) () LatticeBrowser.SaveInIT D1 (I 0 self) 1g Hg ¹HkIHg ¹Hg@ lI(51Q SETTOPVAL 40Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (45Q IT 35Q Save 14Q Prototype 2 LoopsIcon) () LatticeBrowser.ShapeToHold D1 (P 7 top P 6 right P 5 width P 4 height P 3 bottom P 2 left P 1 nodes P 0 region I 1 margin I 0 self F 14Q BrowserMargin F 15Q MaxLatticeWidth F 16Q MaxLatticeHeight) @g É@g g ¢I ZI [I ^I _WNJÙl _¿dOñ’¿O]WOKÙil_¿dOñ’¿O\HMkÙMAµWkØØ²:HLkÙLAµWkØØ²$@g j@g j@g i@g HHMAµWØLAµWØhX @_g _¿OHilO¿@g j@g j@g h(406Q SCROLLW 403Q WTODSY 400Q GetValue 370Q WTODSX 365Q GetValue 355Q GetValue 330Q FetchMethodOrHelp 317Q SHAPEW 263Q GetValue 252Q SCROLLW 247Q WTODSY 244Q GetValue 234Q WTODSX 231Q GetValue 221Q GetValue 210Q STRICTLY/BETWEEN 162Q STRICTLY/BETWEEN 123Q HEIGHTIFWINDOW 73Q WIDTHIFWINDOW 57Q MAX/TOP 52Q MAX/RIGHT 45Q MIN/BOTTOM 40Q MIN/LEFT 30Q GETWINDOWUSERPROP 22Q GetValue 11Q \INSUREWINDOW 6 GetValue) (375Q window 362Q window 352Q window 325Q SetRegion 260Q window 241Q window 226Q window 216Q window 25Q GRAPH 17Q window 3 window) () LatticeBrowser.Show D1 (P 13Q C P 1 window P 0 NODELST I 3 goodList I 2 windowOrTitle I 1 browseList I 0 self) ;€B ™@gB°$B™@gB°@[g ºKkJ˜@g Y¿Aµ@g0 A°1³õAhb¿°ídO ´ O h_šOµO__¿µÛO@g0 C°0 _O°ãdO ´ O h_šOµuO__¿µÛO@g ²e@]g ¼M@g @g lL¸@gHd @g @g Ihd@g g@g ¿° _O°‹@_g ¾OkNh(460Q FetchMethodOrHelp 440Q LAST 432Q PUTWINDOWPROP 427Q GetValue 415Q PutValue 412Q SHOWGRAPH 406Q GetValue 374Q LAYOUTGRAPH 371Q GetValue 362Q GetValue 353Q TreeRoots 334Q GetValue 325Q GetValue 314Q FetchMethodOrHelp 302Q GetValue 273Q PutValue 237Q GetObjectRec 230Q GetObjectRec 207Q LAST 172Q PutValue 136Q GetObjectRec 127Q GetObjectRec 63Q GetValue 45Q FetchMethodOrHelp 33Q PutValue 17Q PutValue 6 WINDOWP) (455Q Clear 424Q title 420Q TITLE 403Q topAlign 366Q browseFont 357Q graphFormat 346Q window 331Q goodList 322Q startingList 311Q GetNodeList 277Q startingList 176Q goodList 74Q startingList 60Q window 42Q HasLispWindow 27Q title 13Q window) () LatticeBrowser.SubBrowser D1 (P 3 classForMethod P 2 obj% I 2 objName I 1 obj I 0 self) ;@d`ð¦d`ð’É‚ Hg ¹HkI!Jg ¼JAlLJ(57Q FetchMethodOrHelp 36Q FetchMethodOrHelp 24Q GetLispClass) (54Q Show 33Q New 14Q classTYPE# 5 instanceTYPE#) () LatticeBrowser.TitleSelection D1 (P 1 choice P 0 menu I 0 self) %@@[g ºKglJXdš d•Y@I (42Q SendInTtyProcess 32Q MENU 12Q FetchMethodOrHelp) (17Q TitleItems 7 ChoiceMenu) () LatticeBrowser.Unread D1 (I 2 objName I 1 object I 0 self) B (3 BKSYSBUF) NIL () MetaBrowser.GetSubs D1 (P 2 meta I 1 elt I 0 self) .A Hg ¹HglI JA ð‘hJh(44Q GetObjectRec 34Q GetObjectRec 15Q FetchMethodOrHelp 3 GetObjectRec) (22Q Meta 12Q List) () PathBrowser.AddAndBox D1 (I 2 objName I 1 obj I 0 self) ,@Hg ¹HAlIA´@Hg ¹HAlI(41Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (36Q BoxNode 7 AddToPath) () PathBrowser.AddToPath D1 (I 1 object I 0 self) BAµ@Hg ¹HkI°*@g ³ @gA¿@Hg ¹HglIA(64Q FetchMethodOrHelp 50Q PushNewValue 35Q GetValue 15Q FetchMethodOrHelp) (71Q dontReshape 61Q Recompute 44Q pathObjects 32Q pathObjects 12Q Clear) () PathBrowser.Clear D1 (I 0 self) %@g @g @Hg ¹HglI(30Q FetchMethodOrHelp 15Q PutValue 6 PutValue) (35Q dontReshape 25Q Recompute 12Q lastSelectedObject 3 pathObjects) () PathBrowser.GetSubs D1 (I 1 obj I 0 self) A@g ´@Hg ¹HAlI(25Q GetSuperMethod 7 GetValue) (22Q GetSubs 4 pathObjects) () PathBrowser.LeftShiftSelect D1 (L (2 objName 1 obj 0 self)) gNIL (2 AddAndBox) () PathBrowser.Recompute D1 (P 2 pathObj I 1 dontReshapeFlg I 0 self) :@Hg ¹HAlI@g °d!@\g »LJlKµè@(51Q FetchMethodOrHelp 32Q GetValue 12Q GetSuperMethod) (46Q FlipNode 27Q pathObjects 7 Recompute) () SupersBrowser.GetSubs D1 (L (2 objName 1 object 0 self)) AÉNIL (3 class) () BoxWindowNode D1 (P 1 nodes P 0 node I 1 window I 0 nodeLabel) M A ´DAg Y´9@I Xd²0HHHkgA h(111Q DRAWAREABOX 30Q FASSOC 17Q GETWINDOWUSERPROP 6 WINDOWP) (104Q INVERT 14Q GRAPH) () Browse D1 (P 3 classForMethod P 2 obj% I 2 goodClasses I 1 title I 0 classes) 4g Hg ¹HkI!Jg ¼J@ABdið‘¿@lLJ(40Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (35Q Show 14Q New 2 ClassBrowser) () DoMenuMethod D1 (P 2 classForMethod P 1 oBj P 0 selector I 1 items I 0 object) Ad’ 1H´@YH »IkK(21Q FetchMethodOrHelp 5 DualMenu) NIL () DualMenu D1 (I 1 whenHeldFn I 0 items) B`d@¿dg¿dg&¿dA¿di¿dg ¿jdnÿdhHdI ¿ (77Q MENU) (44Q CLRPROMPT 23Q DualSubItems 14Q SubItemSelection 2 MENUTYPE#) () DualSelection D1 (P 1 it1 P 0 it I 2 button I 1 menu I 0 item) A @d²-Xd²&Ydgð”¿Hgð”H Bgð—Id’ HYd²ù (76Q DualMenu 62Q EVAL 44Q EVAL) (51Q LEFT 36Q PROGN 24Q QUOTE) () DualSubItems D1 (L (1 item 0 menu)) % A´AX´HYgð«Igð¥HµhNIL (31Q PROGN 23Q QUOTE) () FILECLASSES D1 (I 0 FILE) @g (6 FILECOMSLST) (3 CLASSES) () FileBrowse D1 (P 3 classForMethod P 2 obj% I 0 fileName) ,g Hg ¹HkI!Jg ¼J@lLJ(40Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (35Q File 14Q New 2 FileBrowser) () FindSelectedNode D1 (P 7 NEAR P 6 NOW P 5 REG P 4 OLDPOS P 3 BUTTON P 2 DS P 1 NODELST P 0 loopsWindow I 0 WINDOW) à@g @g @ ÉÓ@ É]¿`låjð”°óIhJ \ _¿N²H_g _¿ONlO¿O´H_g _¿OOlO¿O¾¿`låjð²N´H_g _¿ONlO¿N@ É``³N´H_g _¿ONlOhNIhJL _ð¢±ÿa°—(325Q NODELST/AS/MENU 322Q CURSORPOSITION 273Q FetchMethodOrHelp 255Q INSIDE? 242Q \INSUREWINDOW 215Q FetchMethodOrHelp 166Q GETMOUSESTATE 141Q FetchMethodOrHelp 106Q FetchMethodOrHelp 67Q NODELST/AS/MENU 63Q CURSORPOSITION 53Q GETMOUSESTATE 33Q \INSUREWINDOW 22Q \INSUREWINDOW 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (270Q FlipNode 252Q LASTMOUSEY 247Q LASTMOUSEX 212Q FlipNode 172Q LASTMOUSEBUTTONS 136Q FlipNode 103Q FlipNode 42Q LASTMOUSEBUTTONS 12Q GRAPH 3 LoopsWindow) () GetMethodArgs D1 (P 20Q supers P 17Q index P 16Q meth P 15Q pos P 14Q class P 7 arglist P 6 class P 5 obj P 4 evalObj P 3 meth P 2 sel P 1 items P 0 actuals I 0 fn F 21Q UseMethodCacheFlg F 22Q MethodBlock F 23Q ClassBlock F 24Q SelectorBlock F 25Q MENUFONT) ñ@gð³!@gð³@gð³@gðª@gð´‚±Ì±H]ddlðš¿dH ’H½M`ðµM`ðµMgð´M \@gð’d°NL²Ld`ð¦d`ð’É‚ µ4l oMo µM d`ð¦d`ð’É‚ i ^´‚±6HZ³p`N_g _¿OglO¹dI¿W* I ÚnîÛkØ_¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿ Zd¢±Ë ´‚±ÂNAO`ð£h±W"²/OÓJÓælþå_¿OdW&OÐÉð²¿JW(OÐÉð˜W$OÐÉ°[OÉ_ ¿JOÉµ¿h‚ _®O O _ ¿_´1°àOO _¿W"²W&OÐOÎ¿W(OÐJÎ¿W$OÐOÎ¿O[d²" _¿gOgOMKHji(755Q TTYIN.PRINTARGS 721Q ARGLIST 643Q GetNthMethod 612Q \FindEntryIndex 451Q BKSYSBUF 440Q MENU 353Q LENGTH 347Q FONTHEIGHT 316Q FetchMethodOrHelp 264Q GetClassRec 260Q GetLispClass 234Q EVAL 226Q PromptRead 223Q CONCAT 207Q CHARACTER 200Q GetLispClass 136Q GetObjectRec 73Q Fix@$ 50Q TTYIN.READ?=ARGS) (735Q Method 727Q _ 600Q class 565Q class 471Q classTYPE# 406Q DEFAULTMENUHELDFN 377Q CLRPROMPT 326Q Selectors 313Q List 304Q MENUTYPE# 250Q classTYPE# 241Q instanceTYPE# 170Q classTYPE# 161Q instanceTYPE# 143Q _New 125Q $ 114Q classTYPE# 104Q instanceTYPE# 36Q SEND 30Q _Proto 21Q _New 12Q _Super 3 _) ( 220Q " or type ] to evaluate expression to find class" 213Q " Please type in name of class for ") LatticeBrowser.ButtonFn D1 (P 0 oldMode I 0 window) Y`Ènåjð´h@ g@ @ H@ h@ @ @ ³@g Ig ºIkJ@ (126Q APPLYTOSELECTEDNODE 113Q FetchMethodOrHelp 101Q GETWINDOWUSERPROP 70Q INSIDEP 65Q LASTMOUSEY 61Q LASTMOUSEX 55Q DSPCLIPPINGREGION 47Q DSPOPERATION 42Q EDITMOVENODE 36Q DSPOPERATION 27Q GETMOUSESTATE 21Q DSPOPERATION) (110Q TitleSelection 76Q LatticeBrowser 32Q INVERT 2 \EM.KBDAD2) () LatticeBrowser.WhenHeldFn D1 (I 2 key I 1 menu I 0 item F 2 object F 3 latticeBrowser) n@dlð²T¿RHg ¹H@lI² Rd`ð¦d`ð’É‚ @g°.Sd`ð¦d`ð’É‚ @gŽ˜@”@ƒo (153Q PROMPTPRINT 130Q GetMethod 121Q GetLispClass 72Q GetMethod 63Q GetLispClass 23Q FetchMethodOrHelp) (125Q doc 111Q classTYPE# 102Q instanceTYPE# 67Q doc 53Q classTYPE# 44Q instanceTYPE# 20Q Understands) ( 150Q "When released this item will be selected") LispxSendA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MSGFORM) P i(3 LISPXEVAL) NIL () LispxSend D1 (P 0 \INSIDE.TTYIN I 0 MSGFORM) #o oi g ´h(37Q ERROR! 32Q RELSTK 27Q STKPOS 21Q LispxSendA0001 11Q DECLARE:) (24Q DEDITL) ( 15Q (DUMMY.FOR.ERRORSET) 6 ((SPECVARS MSGFORM))) SavedValue D1 NIL g Hg ¹HkIg (34Q GetValue 17Q FetchMethodOrHelp 5 GetObjectRec) (31Q savedValue 14Q Prototype 2 LoopsIcon) () SendInTtyProcess D1 (I 2 args I 1 selector I 0 obj) Ygg@A@B°=d[d`ð³%d`ð³d²dið³d¥d¡µ gKh¸IµHhZH&¹µÄJh (126Q EVAL.IN.TTY.PROCESS) (67Q QUOTE 35Q classTYPE# 25Q instanceTYPE# 5 _ 2 LispxSend) () SubItemSelection D1 (P 1 it1 P 0 it I 2 button I 1 menu I 0 item) / @d²'Xd² Ydgð”¿Hgð”H Id’ (54Q EVAL 44Q EVAL) (36Q PROGN 24Q QUOTE) () TreeRoots D1 (P 6 D P 5 ND P 4 ROOTLST P 3 firstElt I 0 nodeLst) H@d0@d¸IµHhZH&¹µïJJµ LµKh] ŒdNL \µòJZ°Ý(73Q DREMOVE 60Q TOLINKS) NIL () (PRETTYCOMPRINT LOOPSBROWSECOMS) (RPAQQ LOOPSBROWSECOMS ((* Copyright (c) Xerox Corporation, 1983) (CLASSES * BROWSECLASSES) (METHODS ClassBrowser.AddNewCV ClassBrowser.AddNewIV ClassBrowser.AddSuper ClassBrowser.BoxNode ClassBrowser.CVDoc ClassBrowser.ClassDoc ClassBrowser.CopyTo ClassBrowser.DefineSubclass ClassBrowser.DeleteCV ClassBrowser.DeleteClass ClassBrowser.DeleteClassItem ClassBrowser.DeleteFromBrowser ClassBrowser.DeleteIV ClassBrowser.DeleteMethod ClassBrowser.DestroyAndRecompute ClassBrowser.FindWhere ClassBrowser.GetMethodDoc ClassBrowser.GetSubs ClassBrowser.IVDoc ClassBrowser.LeftShiftSelect ClassBrowser.MoveTo ClassBrowser.NewItem ClassBrowser.Recompute ClassBrowser.RenameCV ClassBrowser.RenameClass ClassBrowser.RenameIV ClassBrowser.RenameMeth ClassBrowser.RenamePart ClassBrowser.SetItNew ClassBrowser.WhereIsCV ClassBrowser.WhereIsIV ClassBrowser.WhereIsMethod FileBrowser.DefineSubclass FileBrowser.EditComs FileBrowser.EditFns FileBrowser.EditInstances FileBrowser.EditVars FileBrowser.File FileBrowser.NewItem FileBrowser.Recompute FileBrowser.SaveFile FileBrowser.SetItNew InstanceBrowser.GetSubs InstanceBrowser.NewPath LatticeBrowser.AddRoot LatticeBrowser.BoxNode LatticeBrowser.BrowserObjects LatticeBrowser.ChangeFontSize LatticeBrowser.ChangeFormat LatticeBrowser.Clear LatticeBrowser.DoSelectedCommand LatticeBrowser.EEObject LatticeBrowser.EditObject LatticeBrowser.FlashNode LatticeBrowser.FlipNode LatticeBrowser.GetLabel LatticeBrowser.GetNodeList LatticeBrowser.GetSubs LatticeBrowser.HasObject LatticeBrowser.LeftSelection LatticeBrowser.LeftShiftSelect LatticeBrowser.ListObjects LatticeBrowser.MiddleSelection LatticeBrowser.MiddleShiftSelect LatticeBrowser.NewItem LatticeBrowser.ObjNamePair LatticeBrowser.Recompute LatticeBrowser.SaveInIT LatticeBrowser.ShapeToHold LatticeBrowser.Show LatticeBrowser.SubBrowser LatticeBrowser.TitleSelection LatticeBrowser.Unread MetaBrowser.GetSubs PathBrowser.AddAndBox PathBrowser.AddToPath PathBrowser.Clear PathBrowser.GetSubs PathBrowser.LeftShiftSelect PathBrowser.Recompute SupersBrowser.GetSubs) (FNS BoxWindowNode Browse DoMenuMethod DualMenu DualSelection DualSubItems FILECLASSES FileBrowse FindSelectedNode GetMethodArgs LatticeBrowser.ButtonFn LatticeBrowser.WhenHeldFn LispxSend SavedValue SendInTtyProcess SubItemSelection TreeRoots) (VARS BrowserMargin MaxLatticeHeight MaxLatticeWidth NestedMenuFlg) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML LispxSend) (LAMA)) ))) (RPAQQ BROWSECLASSES (ClassBrowser FileBrowser InstanceBrowser LatticeBrowser PathBrowser SupersBrowser MetaBrowser)) (DEFCLASSES ClassBrowser FileBrowser InstanceBrowser LatticeBrowser PathBrowser SupersBrowser MetaBrowser) (DEFCLASS ClassBrowser (MetaClass Class Edited: (* dgb: " 2-Jul-84 23:46") doc (* A window containing a lattice displaying classes.)) (Supers LatticeBrowser) (ClassVariables (LeftButtonItems ((Print* ( PrintSummary (PP PP! PPV! PPMethod MethodSummary PrintSummary)) "PrintSummary of class") (Doc* ( ClassDoc (ClassDoc (MethodDoc GetMethodDoc) IVDoc CVDoc)) "Documentation for Class, Methods, IVs and CVs Class is default") (WhereIs* (FindWhere (WhereIsIV WhereIsCV WhereIsMethod)) "Find location of method, iv, or cv") (SubBrowser SubBrowser "Make a subBrowser on this class") ( TypeInName Unread "Put class name in typein buffer"))) (MiddleButtonItems ((BoxNode BoxNode "Draw a box around selected node") (EM* (EditMethod (EditMethod BreakMethod UnbreakMethod (EM! EM! "Edit method selected from Menu, making it local if necessary") (EditMethodObject EditMethodObject "Edit the object representing the method")) "Edit method of class selected from Menu")) (Add* ( DefMethod ((Specialize DefineSubclass "Define a specialized subclass") DefMethod SpecializeMethod DefRSM AddSuper AddNewIV AddNewCV (New SetItNew "Set IT to a new instance of selected class"))) "Add a new method, a specialized class, IV or CV to class, or make a new instance.") (Delete* ( DeleteClass (DeleteFromBrowser DeleteIV DeleteCV DeleteMethod DeleteClass)) "Delete one of Methods IVs CVs or the class itself") (Move* (MoveTo (MoveTo CopyTo)) "Move or copy") (Rename* (RenameMeth ( RenameClass RenameIV RenameCV RenameMeth)) "Rename some part of the class") (Edit* (EditObject ((Edit EditObject "Edit the object") (Edit! Edit! "Edit class showing inherited info") (Inspect (QUOTE Inspect) "Inspect selected class"))) "Edit class"))) (LocalCommands (AddNewIV AddNewCV CopyTo BoxNode ClassDoc CVDoc DefineSubclass DeleteClassItem DeleteIV EditObject FindWhere FlipNode IVDoc GetMethodDoc MoveTo Recompute RenamePart SubBrowser Unread))) (InstanceVariables (title "Class Inheritance Lattice"))) (DEFCLASS FileBrowser (MetaClass Class Edited: (* dgb: " 4-Jun-84 14:06")) (Supers ClassBrowser) ( ClassVariables (TitleItems #(((EditFile (EditComs (EditComs EditFns EditInstances EditVars)) "Edit the Coms for the file") (SaveFile SaveFile "Do (FILES?) and then dump the file")) UnionSuperValue NIL) doc (* Items for menu of selections in title of window))) (InstanceVariables (title "FileBrowser" doc (* Title of browser)) (width 100) (file NIL doc (* Name of file being browsed. fileComs property is atom for fileComs) fileComs NIL) (nonFileClasses NIL doc (* classes which should be added to browser, but are no on file. Must be exisiting classes)))) (DEFCLASS InstanceBrowser (MetaClass Class doc (* Follows the downward lattice in object named in subIV. If subIV is changed after display, will show the newly defined alternative lattice starting at the same starting points) Edited: (* dgb: "19-SEP-83 17:31")) (Supers LatticeBrowser) (ClassVariables (TitleItems ((Recompute (QUOTE Recompute) "Recompute lattice from starting objects") (NewPath (QUOTE NewPath) "Change name of sub to be followed in computing lattice.") (AddRoot (QUOTE AddRoot) "Add named item to startingList for browser") (DeleteRoot (QUOTE DeleteRoot) "Delete named item on startinglist for browser") (SaveInIT (QUOTE SaveInIT) "IT_")) doc (* Items for menu of selections in title of window))) (InstanceVariables (subIV NIL doc (* Name of instance variable which provides names and/or pointers to subobjects)))) (DEFCLASS LatticeBrowser (MetaClass Class Edited: (* dgb: "28-May-84 15:24")) (Supers Window) ( ClassVariables (LocalCommands (EditObject BoxNode Recompute AddStartingItem) doc (* messages that should be sent to browser when item seleted in menu, even if object does understand them)) (TitleItems ((Recompute Recompute "Recompute lattice from starting objects") (ShapeToHold ShapeToHold "Make window large or small enough to just hold graph") (AddRoot AddRoot "Add named item to startingList for browser") (ChangeFontSize ChangeFontSize "Choose a new size Font") (Lattice/Tree ChangeFormat "Change format between lattice and tree") (SaveValue SaveInIT "(SavedValue)_ thisBrowser")) doc (* Items for menu of selections in title of window)) ( LeftButtonItems ((BoxNode BoxNode "Draw box around selected node. Unboxed by another BoxNode") (PP PP "Prettyprint selected item")) doc (* Menu items for LeftButton seletion -- Value sent as message to object or browser -- see LocalCommands)) (MiddleButtonItems (( Inspect Inspect "Inspect selected item") (Edit EditObject "Edit selected item")) doc (* Menu items for MiddleButton seletion -- Value sent as message to object or browser -- see LocalCommands))) ( InstanceVariables (topAlign NIL doc (* Flg used to indicate whether graph should be aligned with the top or bottom of the window)) (title "Browser Window" doc (* Title passed to GRAPHER package)) ( startingList NIL doc (* list of objects used to compute this browser)) (goodList NIL doc (* limit choices to this set)) (badList NIL doc (* Don't put in any items on this set)) (lastSelectedObject NIL doc (* last object selected) DontSave Any) (browseFont #((FONTCREATE (QUOTE (HELVETICA 10 BOLD))) FirstFetch ReplaceMe) FontFamily HELVETICA FontSize 10 FontFace BOLD DontSave (Value)) (boxedNode NIL doc (* last item Boxed, if any)) ( graphFormat (LATTICE) choices ((HORIZONTAL/LATTICE (QUOTE (LATTICE))) (VERTICAL/LATTICE (QUOTE ( VERTICAL LATTICE))) (HORIZONTAL/TREE (QUOTE (COPIES/ONLY))) (VERTICAL/TREE (QUOTE (VERTICAL COPIES/ONLY)))) doc (* Controls format for laying out graph for GRAPHER)))) (DEFCLASS PathBrowser (MetaClass Class doc (* A mixin which shows paths and their locl context in a browser) Edited: (* dgb: " 7-FEB-84 17:52")) (Supers LatticeBrowser) (InstanceVariables (pathObjects NIL doc (* objects which have been put on the path)))) (DEFCLASS SupersBrowser (MetaClass Class Edited: (* edited: "13-NOV-83 17:17") doc (* Browses upwards from a class to all of its supers.)) (Supers ClassBrowser) (InstanceVariables (title "Supers Lattice" doc (* Title passed to GRAPHER package)))) (DEFCLASS MetaBrowser (MetaClass Class doc (* Runs through the meta classes of a class) Edited: (* dgb: "22-JUL-83 15:39")) (Supers ClassBrowser)) (METH ClassBrowser AddNewCV (object objName) (* Add a new IV or edit an old one)) (METH ClassBrowser AddNewIV NIL NIL) (METH ClassBrowser AddSuper (obj objName) (* Add a super as first)) (METH ClassBrowser BoxNode NIL (* Box selected node and unbox previous)) (METH ClassBrowser CVDoc (class className) NIL) (METH ClassBrowser ClassDoc (object objname) (* Print out class documentation if there is any)) (METH ClassBrowser CopyTo (object objName) (* Ask user whether to copy CVs IVs or Methods and then find which ones)) (METH ClassBrowser DefineSubclass (object objName) NIL) (METH ClassBrowser DeleteCV (obj objName) (* Delete selected CV)) (METH ClassBrowser DeleteClass (obj objName) (* Delete Class)) (METH ClassBrowser DeleteClassItem (class className type) (* Delete an item from a class, or the class itself)) (METH ClassBrowser DeleteFromBrowser NIL NIL) (METH ClassBrowser DeleteIV (obj objName) (* Delete selected IV)) (METH ClassBrowser DeleteMethod (obj objName) (* Delete selected Method)) (METH ClassBrowser DestroyAndRecompute (object objName) (* Destroy class and recompute lattice.)) (METH ClassBrowser FindWhere (object objName type) NIL) (METH ClassBrowser GetMethodDoc (object objName) (* Find the method requested and then ask the class)) (METH ClassBrowser GetSubs (obj objName) (* Returns subclasses of a class on goodlist if any)) (METH ClassBrowser IVDoc (class className) (* Show menu of classVariables and give documentation for each)) (METH ClassBrowser LeftShiftSelect (object objName) (* Ask user whether to move CVs IVs or Methodsand then find which ones)) (METH ClassBrowser MoveTo (object objName) (* Ask user whether to move CVs IVs or Methodsand then find which ones.)) (METH ClassBrowser NewItem (name) (* Either add named class, or create a class by that Name)) (METH ClassBrowser Recompute (reshapeFlg) (* Recompute graph, and rebox bosedNode)) (METH ClassBrowser RenameCV (object objName) (* Rename CV if one is given)) (METH ClassBrowser RenameClass (object objName) (* Read in a new name for the class, and rename it)) (METH ClassBrowser RenameIV (object objName) (* Rename an IV if one is given)) (METH ClassBrowser RenameMeth (object objName) (* Rename selected method)) (METH ClassBrowser RenamePart (object objName) NIL) (METH ClassBrowser SetItNew (class) (* Set self to instance of selected class)) (METH ClassBrowser WhereIsCV (obj objName) (* Whereis CV)) (METH ClassBrowser WhereIsIV (obj objName) (* Find class containing IV description)) (METH ClassBrowser WhereIsMethod (obj objName) NIL) (METH FileBrowser DefineSubclass (object objName) NIL) (METH FileBrowser EditComs NIL (* Edit the coms for file)) (METH FileBrowser EditFns NIL (* Choose a Function and Edit it)) (METH FileBrowser EditInstances NIL (* Select from the set of instances)) (METH FileBrowser EditVars NIL (* Edit a selected variable)) (METH FileBrowser File (fileName) (* Browse classes contained on the file)) (METH FileBrowser NewItem (name) (* Either add named class, or create a class by that Name)) (METH FileBrowser Recompute (dontReshapeFlg) (* Recompute what the classes are on the file)) (METH FileBrowser SaveFile NIL (* Save file for file browser)) (METH FileBrowser SetItNew (obj objName) NIL) (METH InstanceBrowser GetSubs NIL (* Gets a set of subs from an object for browsing.)) (METH InstanceBrowser NewPath (subName) (* Changes the name of the sub by which the lattice is computed, changes the title, and recomputes the graph)) (METH LatticeBrowser AddRoot (newItem) NIL) (METH LatticeBrowser BoxNode (object unboxPrevious) NIL) (METH LatticeBrowser BrowserObjects NIL (* Return a list of all the objects shown in the browser)) (METH LatticeBrowser ChangeFontSize (size) (* Change the font size from whatever it is to size)) (METH LatticeBrowser ChangeFormat (format) (* Change format between Lattice and Tree)) (METH LatticeBrowser Clear NIL (* Clear out nodes of graph)) (METH LatticeBrowser DoSelectedCommand (command obj objName) (* does the selected command or forwards it to the object)) (METH LatticeBrowser EEObject (object objName) (* Call editor with EE on object)) (METH LatticeBrowser EditObject (object objName args) (* Call editor with commands args)) (METH LatticeBrowser FlashNode (node N flashTime) (* Flip node N times)) (METH LatticeBrowser FlipNode (object) (* Inverts the video around the node in the graph representing the object)) (METH LatticeBrowser GetLabel (object) (* Get a label for an object to be displayed in the browser.)) (METH LatticeBrowser GetNodeList (browseList goodList) NIL) (METH LatticeBrowser GetSubs (object) (* Gets a set of subs from an object for browsing)) (METH LatticeBrowser HasObject (object) (* Check object in grapher nodes, and return if it is one of them)) (METH LatticeBrowser LeftSelection NIL (* * Move object if CTRL down. Do LeftShiftSelect if SHIFT down. Else choose from LeftButtonItems)) (METH LatticeBrowser LeftShiftSelect (object objname) (* Called when item is selected with left key and LSHIFT is down)) (METH LatticeBrowser ListObjects (object) (* return a list of the objects that are being displayed in the browser)) (METH LatticeBrowser MiddleSelection NIL (* This function called from the GRAPHER package when a node is selected with the middle mouse button. If no node is selected then just returns.)) (METH LatticeBrowser MiddleShiftSelect (object objname) (* Called when item is selected with middle key and LSHIFT is down SendInTtyProcess is so this is done in the TTY process)) (METH LatticeBrowser NewItem (newItem) (* Return named Object)) (METH LatticeBrowser ObjNamePair (objOrName) NIL) (METH LatticeBrowser Recompute (dontReshapeFlg) (* Recompute the browseGraph in the same window)) (METH LatticeBrowser SaveInIT NIL (* save value in IT)) (METH LatticeBrowser ShapeToHold (margin) (* Shape the browse window to just hold the nodes with (OR margin Browsemargin) to spare)) (METH LatticeBrowser Show (browseList windowOrTitle goodList) (* * Show the items and their subs on a browse window.)) (METH LatticeBrowser SubBrowser (obj objName) (* Create a subbrowser on selected object)) (METH LatticeBrowser TitleSelection NIL (* Do TitleItems if selected in title area. Replaces TitleSelection in Window because this one does evaluation in TTY process, and saves events on history) ) (METH LatticeBrowser Unread (object objName) (* Unread name into system buffer)) (METH MetaBrowser GetSubs (elt) (* Subs for meta browser is the meta class of the class.)) (METH PathBrowser AddAndBox (obj objName) (* Add selected object to path, and box it)) (METH PathBrowser AddToPath (object) (* Add a new object to the path)) (METH PathBrowser Clear NIL (* Empty PathBrowser)) (METH PathBrowser GetSubs (obj) (* Only get subs for elements on the path)) (METH PathBrowser LeftShiftSelect (obj objName) (* Add selected object to path, and box it)) (METH PathBrowser Recompute (dontReshapeFlg) (* Flip nodes which are on path)) (METH SupersBrowser GetSubs (object objName) (* Returns metaclass plus local supers)) (RPAQQ BrowserMargin 20) (RPAQQ MaxLatticeHeight 750) (RPAQQ MaxLatticeWidth 900) (RPAQQ NestedMenuFlg T) (PUTPROPS LOOPSBROWSE COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL