(FILECREATED "20-SEP-83 18:20:11" ("compiled on " {INDIGO}SOURCES>LOOPSBROWSE.;11) "14-SEP-83 19:33:36" recompiled exprs: ClassBrowser.DefineSubclass ClassBrowser.MoveTo LatticeBrowser.DeleteRoot LatticeBrowser.Show in WORK dated "14-SEP-83 19:46:38") (FILECREATED "20-SEP-83 18:19:18" {INDIGO}SOURCES>LOOPSBROWSE.;11 55025 changes to: (FNS LatticeBrowser.Show ClassBrowser.DefineSubclass ClassBrowser.MoveTo LatticeBrowser.DeleteRoot Browse ClassBrowser.CopyTo ClassBrowser.DeleteClassItem ClassBrowser.FindWhere ClassBrowser.RenamePart LatticeBrowser.LeftFn LatticeBrowser.MiddleFn InstanceBrowser.GetSubs InstanceBrowser.TitleFn InstanceBrowser.NewPath) (CLASSES ClassBrowser LatticeBrowser InstanceBrowser) (VARS BROWSEFNS BROWSECLASSES) previous date: "22-JUL-83 19:32:54" {INDIGO}SOURCES>LOOPSBROWSE.;9) BOXNODE D1 (I 1 DS I 0 NODE) @ @ @ kgA (24Q DRAWBOX 13Q NODEBOXHEIGHT 7 NODEBOXWIDTH 3 LOWER/LEFT/POSITION) (17Q INVERT) NIL BoxWindowNode D1 (P 1 nodes P 0 node I 1 window I 0 nodeLabel) # A ´Ag Y´@I Xd”A h(37Q BOXNODE 30Q FASSOC 17Q GETWINDOWPROP 6 WINDOWP) (14Q GRAPH) NIL Browse D1 (P 3 classForMethod P 2 obj% I 1 title I 0 classes) -g Hg ¹HkI!Jg ¼J@AlLJ(40Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (35Q Show 14Q New 2 ClassBrowser) NIL ClassBrowser.BoxNode D1 (I 1 object I 0 self) @Hg ¹HAilI(12Q GetSuperMethod) (7 BoxNode) NIL 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 ¹HglIAJ­l oB ¿`dJ¿di¿Bo ½dM¿dg ¿dg¿jdnÿdh¾dN ¿\¿L [¡hW ¿W ¿BW ¿oW ¿KW ¿oW ¿AKg W °¼(250Q PRIN1 243Q GetClassValue 232Q PRIN1 220Q PRIN1 211Q PRIN1 177Q PRIN1 170Q TERPRI 162Q TERPRI 151Q MENU 76Q CONCAT 47Q PROMPT 37Q CHARACTER 12Q FetchMethodOrHelp) (240Q doc 117Q DEFAULTMENUHELDFN 110Q CLRPROMPT 53Q MENUTYPE# 17Q CVS 7 List!) (225Q ": " 204Q "::" 73Q " 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) Gð@g ­l o h`do¿dg ¿dg¿jdnÿdh½dM ¿ Y’±Ñhi¼`di¿K _¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿ X´‚±³Idgð²!¿A_g _¿OH@g lO°Lgð² A_g _¿OH@g lO°(Idgð²"¿A_g _¿OH@g HlO¿IoHo@g ¿A_g ¾OIlN[’±ÿ L­l BoI h(503Q PrintStatus 472Q CHARACTER 445Q FetchMethodOrHelp 433Q PrintStatus 427Q GetValue 376Q GetValue 361Q FetchMethodOrHelp 327Q GetValue 312Q FetchMethodOrHelp 263Q GetValue 246Q FetchMethodOrHelp 215Q MENU 137Q SORT 111Q MENU 31Q PrintStatus 22Q CHARACTER 14Q GetValue) (442Q List 424Q boxedNode 373Q boxedNode 356Q CopyMethod 344Q Methods 324Q boxedNode 307Q CopyCV 276Q CVS 260Q boxedNode 243Q CopyIV 231Q IVS 163Q DEFAULTMENUHELDFN 154Q CLRPROMPT 125Q MENUTYPE# 62Q DEFAULTMENUHELDFN 53Q CLRPROMPT 36Q MENUTYPE# 11Q boxedNode) (477Q " has no " 420Q " has been copied to " 413Q " " 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 Ho AZg ¹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.DeleteClassItem D1 (P 2 choices P 1 choice P 0 type I 2 className I 1 class I 0 self F 17Q ClassChoiceMenu) Bðg `ð“W°8g`di¿do¿dg ¿dg¿jdnÿdh»dK ¿ X¡hA]g ¼MHlLZ³oBoHo ´ÚHgð²@^g _¿NABlO`di¿dJ¿dg ¿dg¿jdnÿdh_¿dO ¿ Y´ˆHdgð²¿A_g _¿OgIlO¿°Tgð²A_g _¿OgIlO¿°3Hdgð²$¿A_g _¿OgIo lO¿†o h(476Q HELP 457Q PromptRead 437Q FetchMethodOrHelp 373Q FetchMethodOrHelp 332Q FetchMethodOrHelp 305Q MENU 205Q FetchMethodOrHelp 164Q PROMPT 127Q FetchMethodOrHelp 113Q MENU 110Q SETTOPVAL 10Q GETTOPVAL) (447Q Method 434Q Delete 422Q Methods 403Q CV 370Q Delete 357Q CVs 342Q IV 327Q Delete 315Q IVs 253Q DEFAULTMENUHELDFN 244Q CLRPROMPT 225Q MENUTYPE# 202Q DestroyAndRecompute 172Q Class 124Q List 61Q DEFAULTMENUHELDFN 52Q CLRPROMPT 30Q MENUTYPE# 25Q ClassChoiceMenu 14Q MENUTYPE# 5 ClassChoiceMenu) (473Q " wrong in DeleteClassItem." 454Q "Type T if function is to be deleted as well: " 160Q ". " 153Q " of type " 146Q " No items for " 43Q (IVs CVs Methods Class)) 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 4 menu P 3 items P 2 value P 1 type P 0 name I 2 objName I 1 object I 0 self) Ýà `do¿dg ¿dg¿jdnÿdh½dM ¿ Y¡hA_g ¾OIlN[¯l BoI h`di¿K _¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿\¿L X´ÀA_g _¿OHIlOº@_g _¿OJlO¿IoHoJo °¸(331Q PrintStatus 271Q FetchMethodOrHelp 242Q FetchMethodOrHelp 226Q MENU 145Q SORT 126Q PrintStatus 115Q CHARACTER 75Q FetchMethodOrHelp 60Q MENU) (266Q FlashNode 237Q WhereIs 171Q DEFAULTMENUHELDFN 162Q CLRPROMPT 133Q MENUTYPE# 72Q List! 31Q DEFAULTMENUHELDFN 22Q CLRPROMPT 5 MENUTYPE#) (325Q " " 320Q " is in " 313Q " " 122Q " has no " 13Q (IVS CVS Methods)) ClassBrowser.GetSubs D1 (I 2 objName I 1 obj I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 SubClasses) NIL 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 ¹HglIAJ­l oB ¿`dJ¿di¿Bo ½dM¿dg ¿dg¿jdnÿdh¾dN ¿\¿L [¡hW ¿W ¿BW ¿oW ¿KW ¿oW ¿AKg W °¼(250Q PRIN1 243Q GetClassIV 232Q PRIN1 220Q PRIN1 211Q PRIN1 177Q PRIN1 170Q TERPRI 162Q TERPRI 151Q MENU 76Q CONCAT 47Q PROMPT 37Q CHARACTER 12Q FetchMethodOrHelp) (240Q doc 117Q DEFAULTMENUHELDFN 110Q CLRPROMPT 53Q MENUTYPE# 17Q IVS 7 List!) (225Q ": " 204Q ":" 73Q " 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) NIL 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) dà @g ­l o h`do¿dg ¿dg¿jdnÿdh½dM ¿ Y’±ñhi¼`di¿Igð‘KƒK _¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿ X´‚±ËIdgð²<¿A_g _¿O@g HK lO¿@_g _¿OkOhgð²B@g H °2Idgð²¿B@g H °gð²B@g Hd ¿IoHo@g ¿A_g ¾OIlN[’±ÿL­l BoI h(540Q PrintStatus 527Q CHARACTER 502Q FetchMethodOrHelp 470Q PrintStatus 464Q GetValue 442Q MoveMethod 435Q ClassName 432Q GetValue 412Q MoveClassVariable 406Q ClassName 403Q GetValue 360Q MoveVariable 354Q ClassName 351Q GetValue 317Q FetchMethodOrHelp 277Q SUBST 272Q ClassName 267Q GetValue 253Q FetchMethodOrHelp 222Q MENU 144Q SORT 106Q MENU 26Q PROMPT 17Q CHARACTER 11Q GetValue) (477Q List 461Q boxedNode 427Q boxedNode 417Q Methods 400Q boxedNode 367Q CVS 346Q boxedNode 336Q IVS 314Q Recompute 264Q boxedNode 250Q ReplaceSupers 236Q Supers 170Q DEFAULTMENUHELDFN 161Q CLRPROMPT 134Q Supers 122Q MENUTYPE# 57Q DEFAULTMENUHELDFN 50Q CLRPROMPT 33Q MENUTYPE# 6 boxedNode) (534Q " has no " 455Q " is now in " 450Q " " 41Q (IVS CVS Methods Supers) 23Q "Use BoxNode to box node which is to be target for Move or Copy") ClassBrowser.Recompute D1 (I 0 self) .@Hg ¹HkI@g ´@g @g (53Q BoxWindowNode 50Q GetValue 41Q GetValue 30Q GetValue 12Q GetSuperMethod) (45Q window 36Q boxedNode 25Q boxedNode 7 Recompute) NIL ClassBrowser.RenameClassA0476 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 className F 5 object F 6 self F 7 MACROY) :Pohoi X´#UZg ¹JHlI¿V\g »LkK¿hci(53Q FetchMethodOrHelp 32Q FetchMethodOrHelp 17Q INTTY) (50Q Recompute 27Q Rename) (13Q "Type in the new name for this class, or NIL not to change." 6 "New class name: ") ClassBrowser.RenameClass D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 objName I 1 object I 0 self F 4 RESETVARSLST) =` 1gHhhTcYog £g»IcgI K“J(70Q ERROR! 63Q APPLY 40Q ClassBrowser.RenameClassA0476 5 TTYDISPLAYSTREAM) (54Q TTYDISPLAYSTREAM 44Q ERROR 35Q INTERNAL 13Q TTYDISPLAYSTREAM 2 PROMPTWINDOW) (32Q (DUMMY.FOR.ERRORSET)) 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) 4ð`do¿dg ¿dg¿jdnÿdh¾dN ¿ Zd’±àJgð¬Jgð¦Jgð´+A_g _¿OJlO\³M­l BoJ hi½`di¿L _¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿ X´ÁJdgð²¿o Y²MBHI °Dgð²o Y²5BHIi °+Jdgð²%¿o Y²A_g _¿OHIlO¿Jgð¢±ÿ@_g _¿OABlO(444Q FetchMethodOrHelp 404Q FetchMethodOrHelp 370Q PromptRead 346Q RenameVariable 334Q PromptRead 315Q RenameVariable 304Q PromptRead 261Q MENU 203Q SORT 162Q PrintStatus 151Q CHARACTER 123Q FetchMethodOrHelp 60Q MENU) (441Q RenameClass 426Q Class 401Q RenameMethod 355Q Methods 322Q CVS 271Q IVS 227Q DEFAULTMENUHELDFN 220Q CLRPROMPT 171Q MENUTYPE# 120Q List 107Q Methods 101Q CVS 73Q IVS 31Q DEFAULTMENUHELDFN 22Q CLRPROMPT 5 MENUTYPE#) (365Q "New Selector Name:" 331Q "New CV name:" 301Q "New IV name:" 156Q " has no " 13Q (IVS CVS Methods Class)) ClassBrowser.SetItNew D1 (I 1 class I 0 self) gAHg ¹HkIi (33Q SETTOPVAL 30Q PRINT 15Q FetchMethodOrHelp) (12Q New 2 IT) NIL DoMenuMethod D1 (P 4 classForMethod P 3 oBj P 2 selector I 1 items I 0 object) FA´1`dA¿dg ¿dg¿jdnÿdhHdI ¿ 1J´@[J ½KkM(75Q FetchMethodOrHelp 61Q MENU) (26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 5 MENUTYPE#) NIL DualMenu D1 (I 1 whenHeldFn I 0 items) ;`d@¿dg¿dA¿di¿dg ¿jdnÿdhHdI ¿ (70Q MENU) (35Q CLRPROMPT 14Q DualSelection 2 MENUTYPE#) NIL 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) NIL FindSelectedNode D1 (P 6 NEAR P 5 NOW P 4 REG P 3 OLDPOS P 2 BUTTON P 1 DS P 0 NODELST I 0 WINDOW) Š@g @g R@g \¿`låjð”°óHhI [ ¾M•MI ¿Nd•I ¿N½¿`låjðšMd•I ¿M@g `` ¨Md”I hMHhIK ^𲯰¿(202Q NODELST/AS/MENU 177Q CURSORPOSITION 165Q FLIPNODE 155Q INSIDE? 144Q GETWINDOWPROP 131Q FLIPNODE 110Q GETMOUSESTATE 102Q FLIPNODE 72Q FLIPNODE 62Q NODELST/AS/MENU 56Q CURSORPOSITION 46Q GETMOUSESTATE 30Q GETWINDOWPROP 16Q GETWINDOWPROP 6 GETWINDOWPROP) (152Q LASTMOUSEY 147Q LASTMOUSEX 141Q REGION 114Q LASTMOUSEBUTTONS 35Q LASTMOUSEBUTTONS 25Q REGION 13Q DSP 3 GRAPH) NIL GetMethodArgsA0515 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 obj F 1 MACROY) %` ¿oPo hoi  ci(37Q GetClassRec 33Q INTTYL 22Q CONCAT 5 CLEARW) (2 PROMPTWINDOW) (27Q "Type in name of class: " 17Q " not known. Enter name of class: " 12Q "Class of ") GetMethodArgs D1 (P 21Q supers P 20Q index P 17Q class P 16Q RESETSTATE P 15Q MACROY P 13Q OLDVALUE P 6 arglist P 5 class P 4 obj P 3 evalObj P 2 meth P 1 sel P 0 actuals I 0 fn F 22Q RESETVARSLST) ‰@gð³@gð³@gðª@gð´‚±\¡ H\ddlðš¿dH ’H¼L`ðµL`ðµLgð´L [@gð’d°dK²Kd`ð¦d`ð’É‚ µJ` 1gOhhW$c$_¿og ¥g_¿Oc$¿gO ¿O“O]´‚±°HY³T`M_g _¿OglO_¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿ Yd²\ ´WM!Od`ð£¿h°%É_"¿IOɵ¿h‚ _ ²+OO Zd² ¾gNgNLJHj iO"O"_"¿_´Ó°¶(566Q TTYIN.PRINTARGS 536Q ARGLIST 526Q GetNthMethod 513Q \FindEntryIndex 440Q BKSYSBUF 431Q MENU 335Q FetchMethodOrHelp 277Q ERROR! 270Q APPLY 240Q GetMethodArgsA0515 201Q TTYDISPLAYSTREAM 171Q GetLispClass 127Q GetObjectRec 64Q Fix@$ 41Q TTYIN.READ?=ARGS) (547Q Method 542Q _ 501Q class 466Q class 455Q classTYPE# 377Q DEFAULTMENUHELDFN 370Q CLRPROMPT 345Q Selectors 332Q List 323Q MENUTYPE# 260Q TTYDISPLAYSTREAM 244Q ERROR 235Q INTERNAL 207Q TTYDISPLAYSTREAM 176Q PROMPTWINDOW 161Q classTYPE# 152Q instanceTYPE# 134Q _New 116Q $ 105Q classTYPE# 75Q instanceTYPE# 27Q SEND 21Q _New 12Q _Super 3 _) (232Q (DUMMY.FOR.ERRORSET)) 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) NIL 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) O@g AAªo b´8H£Hh¸AdH¢HX¿@gH @Zg ¹JkI¿@\g »LkKh(105Q FetchMethodOrHelp 66Q FetchMethodOrHelp 56Q PutValue 22Q PromptRead 6 GetValue) (102Q ShapeToHold 63Q Recompute 52Q startingList 3 startingList) (17Q "Give name of item to be added") 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€h h(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.ButtonFn D1 (P 0 oldMode I 0 window) Y`Ènåjð´h@ g@ @ H@ h@ @ @ ³@g Ig ºIkJ@ (126Q APPLYTOSELECTEDNODE 113Q FetchMethodOrHelp 101Q GETWINDOWPROP 70Q INSIDEP 65Q LASTMOUSEY 61Q LASTMOUSEX 55Q DSPCLIPPINGREGION 47Q DSPOPERATION 42Q EDITMOVENODE 36Q DSPOPERATION 27Q GETMOUSESTATE 21Q DSPOPERATION) (110Q TitleFn 76Q LatticeBrowser 32Q INVERT 2 \EM.KBDAD2) NIL LatticeBrowser.DeleteRoot D1 (P 0 sl I 1 deletedItem I 0 self) D@g !Aµ@g µ o d²$bd H X@gH @Zg ¹JkIh(72Q FetchMethodOrHelp 62Q PutValue 51Q DREMOVE 45Q GetObjectRec 34Q PromptRead 23Q GetValue 6 GetValue) (67Q Recompute 56Q startingList 20Q boxedNode 3 startingList) (31Q "Give name of item to be deleted") LatticeBrowser.DoSelectedCommand D1 (P 5 obj% P 0 args I 3 objName I 2 obj I 1 command I 0 self) ’ PAd²}d•¸Ab@g ³BZg ¹JAlI˜BAH ¿°O@MÉ[!Kd`ð£¿h°#É_¿ANɵ¿h‚ _²NO µ Ao ¼MBCHlLhOO_¿^´ß°Ä(166Q ERROR 153Q GetNthMethod 141Q \FindEntryIndex 60Q ApplyMethod 41Q FetchMethodOrHelp 26Q GetClassValue) (127Q class 115Q class 104Q classTYPE# 36Q Understands 23Q LocalCommands) (163Q "not found for DoMethod") LatticeBrowser.EEObject D1 (I 2 objName I 1 object I 0 self) AHg ¹HolI(12Q FetchMethodOrHelp) (7 Edit) (20Q (EE)) LatticeBrowser.EditObject D1 (I 3 args I 2 objName I 1 object I 0 self) AHg ¹HClI(12Q FetchMethodOrHelp) (7 Edit) NIL 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) NIL LatticeBrowser.FlipNode D1 (P 2 nodes P 1 node P 0 window I 1 object I 0 self) N@g !Alð²A µ Ao b¿Hg ZAJ YgA ¿IH ŠAo h(112Q PROMPTPRINT 107Q CONCAT 76Q FLIPNODE 70Q SETTOPVAL 57Q FASSOC 50Q GETWINDOWPROP 36Q ERROR 24Q GetObjectRec 6 GetValue) (64Q IT 45Q GRAPH 3 window) (104Q " 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 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_³M@^g ½NO_lM¹hh_¿I1Oµ-OOhdddddOhdOhddh¿O°¢_ ¿@_g _¿OO lO_"_$H ¦HO" ¿BšO$B¥O"B—OO$ ¿O_°Œ(342Q TCONC 315Q TCONC 306Q FASSOC 257Q FetchMethodOrHelp 132Q FetchMethodOrHelp 65Q TCONC 57Q FASSOC 35Q FetchMethodOrHelp) (254Q ObjNamePair 127Q GetSubs 32Q ObjNamePair) NIL LatticeBrowser.GetSubs D1 (I 1 object I 0 self) !AHg ¹HglI´ Ag (36Q GetValue 12Q FetchMethodOrHelp) (33Q subs 17Q subs 7 HasIV) NIL LatticeBrowser.HasObject D1 (I 1 object I 0 self) A @g g  ´i(24Q FASSOC 20Q GETWINDOWPROP 12Q GetValue 3 GetObjectRec) (15Q GRAPH 7 window) NIL LatticeBrowser.LeftFn D1 (P 3 selection P 2 object P 1 objName P 0 latticeBrowser I 1 window I 0 graphNode) ° Ag ‘ @d¢±¡YHg@Z @A `Èl@åjð²@A ¿H]g ¼MJIlL¿°[`di¿Hg ¾dN¿dg¿dg ¿jdnÿdh_¿dO ¿ »@A ¿H_g _¿OKJIlOh(236Q FetchMethodOrHelp 224Q FLIPNODE 216Q MENU 143Q GetClassValue 107Q FetchMethodOrHelp 76Q FLIPNODE 55Q FLIPNODE 50Q GETMOUSESTATE 45Q PutValue 6 GETWINDOWPROP) (233Q DoSelectedCommand 164Q CLRPROMPT 155Q LatticeBrowser.WhenHeldFn 140Q LeftButtonItems 126Q MENUTYPE# 104Q LeftShiftSelect 60Q \EM.KBDAD2 37Q lastSelectedObject 3 LatticeBrowser) NIL LatticeBrowser.LeftSelection D1 (P 20Q objName P 17Q items P 16Q selector P 15Q object P 14Q latticeBrowser P 1 oldMode P 0 window I 0 self) æ@g ± `Ènåjð²"hH ¹¿gH ¿H ¿IH ¿±¯@H 2O´‚± ¿@[g ºKOlJ¿O _ ¿`Èl@åjð²-@]g ¼MOlL¿O_g ¾OOO lN¿°IOg µ°=g _¿@_g _¿OOlO¿O_g _¿OOOO lOh(321Q FetchMethodOrHelp 271Q FetchMethodOrHelp 255Q DualMenu 243Q GetClassValue 214Q FetchMethodOrHelp 170Q FetchMethodOrHelp 141Q GetObjectName 122Q FetchMethodOrHelp 111Q GETMOUSESTATE 73Q FindSelectedNode 62Q DSPOPERATION 54Q EDITMOVENODE 47Q DSPOPERATION 37Q GETMOUSESTATE 33Q DSPOPERATION 6 GetValue) (316Q DoSelectedCommand 266Q FlipNode 252Q LatticeBrowser.WhenHeldFn 240Q LeftButtonItems 211Q LeftShiftSelect 165Q FlipNode 147Q \EM.KBDAD2 117Q FlipNode 43Q INVERT 14Q \EM.KBDAD2 3 window) NIL LatticeBrowser.LeftShiftSelect D1 (I 2 objname I 1 object I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 PP!) NIL LatticeBrowser.ListObjects D1 (I 1 object I 0 self) (0@g g d¸IµHhZH&¹µïJ(17Q GETWINDOWPROP 11Q GetValue) (14Q GRAPH 6 window) NIL LatticeBrowser.MiddleFn D1 (P 3 selection P 2 object P 1 objName P 0 latticeBrowser I 1 window I 0 graphNode) ™Ag Q@d¢±ŠYHg@Z @A `Èl@åjðŸ@A ¿HgJIh°K`di¿Hg ¼dL¿dg¿dg ¿jdnÿdh½dM ¿ »@A ¿HgKJIh h(225Q ApplyMethodInTtyProcess 206Q FLIPNODE 200Q MENU 130Q GetClassValue 75Q FLIPNODE 55Q FLIPNODE 50Q GETMOUSESTATE 45Q PutValue 6 GETWINDOWPROP) (213Q DoSelectedCommand 151Q CLRPROMPT 142Q LatticeBrowser.WhenHeldFn 125Q MiddleButtonItems 113Q MENUTYPE# 102Q MiddleShiftSelect 60Q \EM.KBDAD2 37Q lastSelectedObject 3 LatticeBrowser) NIL 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ð²"@_g _¿OLlO¿IgLJh°3Ig d².g »@_g _¿OLlO¿IgKLJh h(225Q ApplyMethodInTtyProcess 172Q FetchMethodOrHelp 160Q DualMenu 147Q GetClassValue 111Q FetchMethodOrHelp 53Q FetchMethodOrHelp 43Q GETMOUSESTATE 40Q PutValue 27Q GetObjectName 16Q FindSelectedNode 6 GetValue) (213Q DoSelectedCommand 167Q FlipNode 155Q LatticeBrowser.WhenHeldFn 144Q MiddleButtonItems 132Q MiddleShiftSelect 106Q FlipNode 67Q \EM.KBDAD2 50Q FlipNode 34Q lastSelectedObject 3 window) NIL LatticeBrowser.MiddleShiftSelect D1 (I 2 objname I 1 object I 0 self) @Hg ¹HAlI(12Q FetchMethodOrHelp) (7 EditObject) NIL LatticeBrowser.ObjNamePair D1 (P 0 obj I 1 objOrName I 0 self) &0Adlð˜ d²A@Zg ¹JAlI(32Q FetchMethodOrHelp 14Q GetObjectRec) (27Q GetLabel) NIL LatticeBrowser.Recompute D1 (I 0 self) 5@Hg ¹H@g @g lI@Hg ¹HkI@(53Q FetchMethodOrHelp 32Q GetValue 23Q GetValue 12Q FetchMethodOrHelp) (50Q ShapeToHold 27Q window 20Q startingList 7 Show) NIL LatticeBrowser.SaveInIT D1 (I 0 self) g@ (6 SETTOPVAL) (2 IT) NIL LatticeBrowser.ShapeToHold D1 (P 5 top P 4 right P 3 bottom P 2 left P 1 nodes P 0 region I 0 self F 10Q MaxLatticeWidth F 11Q MaxLatticeHeight) @g g @g g bI ZI [I \I ]@g HHWLJÙ¾dNñ‘¿Nl WMKÙ_¿dOñ’¿Oil h @g j@g j@g h(214Q SCROLLW 211Q WTODSY 206Q GetValue 176Q WTODSX 173Q GetValue 163Q GetValue 154Q SHAPEW 144Q HEIGHTIFWINDOW 116Q WIDTHIFWINDOW 70Q GetValue 60Q MAX/TOP 53Q MAX/RIGHT 46Q MIN/BOTTOM 41Q MIN/LEFT 31Q GETWINDOWPROP 23Q GetValue 14Q GETWINDOWPROP 6 GetValue) (203Q window 170Q window 160Q window 65Q window 26Q GRAPH 20Q window 11Q REGION 3 window) NIL LatticeBrowser.Show D1 (P 2 window P 1 roots P 0 NODELST I 3 goodList I 2 windowOrTitle I 1 browseList I 0 self) ¥P@g0Ad³hb°d ½NµMh_M&¾µìO Bµb@\g »LAClKXdd Yh@g @g µ Bµ @g hd@g Zdgg Jg@ @gJ J ³@gB ¿°’(240Q PutValue 226Q WINDOWP 221Q PutValue 211Q PUTWINDOWPROP 201Q PUTWINDOWPROP 166Q SHOWGRAPH 162Q GetValue 151Q GetValue 135Q GetValue 126Q LAYOUTLATTICE 123Q GetValue 112Q TreeRoots 73Q FetchMethodOrHelp 60Q PutValue 31Q GetObjectRec) (234Q title 215Q window 205Q LoopsWindow 176Q WindowButtonEventFn 173Q BUTTONEVENTFN 157Q topAlign 146Q title 132Q window 120Q browseFont 70Q GetNodeList 6 startingList) NIL LatticeBrowser.TitleFn D1 (I 0 self) G@1Hg ¹H`@g ºdJ¿dg ¿dg¿jdnÿdh»dK ¿ lI(77Q MENU 27Q GetClassValue 12Q FetchMethodOrHelp) (50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 24Q TitleItems 17Q MENUTYPE# 7 DoSelectedCommand) NIL LatticeBrowser.Unread D1 (I 2 objName I 1 object I 0 self) oB (12Q BKSYSBUF 7 CONCAT) NIL (3 "$") 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") 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) NIL SupersBrowser.GetSubs D1 (L (2 objName 1 object 0 self)) AÉNIL (3 class) NIL TreeRoots D1 (P 5 D P 4 ND P 3 ROOTLST I 0 nodeLst) ?@0@d¸IµHhZH&¹µïJJµK\ ‹dMK µóJZ°ã(63Q DREMOVE 50Q TOLINKS) NIL NIL (PRETTYCOMPRINT LOOPSBROWSECOMS) (RPAQQ LOOPSBROWSECOMS ((* Copyright (c) Xerox Corporation, 1983) (CLASSES * BROWSECLASSES) (FNS * BROWSEFNS) (VARS MaxLatticeHeight MaxLatticeWidth))) (RPAQQ BROWSECLASSES (ClassBrowser InstanceBrowser LatticeBrowser SupersBrowser MetaBrowser TextItem)) (DEFCLASSES ClassBrowser InstanceBrowser LatticeBrowser SupersBrowser MetaBrowser TextItem) (DEFCLASS ClassBrowser (MetaClass Class Edited: (* dgb: "20-SEP-83 16:55") doc (* A window containing a lattice displaying classes.)) (Supers LatticeBrowser) (ClassVariables (LeftButtonItems ((Print* ( PrintSummary (PP PP! PPV! (PPM (QUOTE PPMethod) "Prettyprint selected method") PrintSummary)) "PrintSummary of class") (Doc* (ClassDoc (ClassDoc MethodDoc IVDoc CVDoc)) "Documentation for Class, Methods, IVs and CVs Class is default") (WhereIs (QUOTE FindWhere) "Find location of method, iv, or cv") (Unread (QUOTE Unread) "Put class name in typein buffer"))) (MiddleButtonItems ((EM* (EditMethod ((EM (QUOTE EditMethod)) (EM! (QUOTE EM!) "Edit method selected from Menu, making it local if necessary")) "Edit method of class selected from Menu")) (Add* (DefMethod ((Specialize (QUOTE DefineSubclass) "Define a specialized subclass") DefMethod DefRSM AddIV AddCV (New (QUOTE 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 DeleteClassItem "Delete one of Methods IVs CVs or the class itself") (Move* (MoveTo (MoveTo CopyTo)) "Move or copy") (BoxNode (QUOTE BoxNode) "Draw a box around selected node") (Rename* (QUOTE RenamePart) "Rename some part of the class") (Edit* (EditObject (EditObject (EditIVs (QUOTE (EditObject -2 DE)) "Edit IVs of class") (EditCVs (QUOTE ( EditObject -3 DE)) "Edit CVs of class") (Inspect (QUOTE Inspect) "Inspect selected class"))) "Edit class"))) (LocalCommands (CopyTo BoxNode ClassDoc CVDoc DefineSubclass DeleteClassItem EditObject FindWhere FlipNode IVDoc MoveTo Recompute RenamePart Unread))) (InstanceVariables (title "Class Inheritance Lattice")) (Methods (ClassDoc ClassBrowser.ClassDoc args (object objname) doc (* Print out class documentation if there is any)) (CopyTo ClassBrowser.CopyTo args (object objName) doc (* Ask user whether to copy CVs IVs or Methods and then find which ones)) (DefineSubclass ClassBrowser.DefineSubclass args (object objName) doc (* Define a new subclass, giving it a name typed in by user)) (DestroyAndRecompute ClassBrowser.DestroyAndRecompute args (object objName) doc (* Destroy class and recompute lattice.)) (FindWhere ClassBrowser.FindWhere args (object objName) doc (* Ask user whether CVs IVs or Methods wanted and then find that one)) (GetSubs ClassBrowser.GetSubs args (obj objName) doc (* Returns subclasses of a class)) (LeftShiftSelect ClassBrowser.LeftShiftSelect args (object objName) doc (* Ask user whether to move CVs IVs or Methodsand then find which ones)) ( MoveTo ClassBrowser.MoveTo doc (* mjs: "16-MAR-83 15:06") args (object objName)) (Recompute ClassBrowser.Recompute args (class) doc (* Set self to instance of selected class)) (SetItNew ClassBrowser.SetItNew args (object objName) doc (*)) (RenameClass ClassBrowser.RenameClass args ( object objName) doc (* Read in a new name for the class, and rename it)) (BoxNode ClassBrowser.BoxNode doc (* Box selected node and unbox previous)) (RenamePart ClassBrowser.RenamePart args (object objName) doc (* Ask user whether to rename CVs IVs or Methods or class and then find which ones)) ( CVDoc ClassBrowser.CVDoc args (class className) doc (* Show menu of classVariables and give documentation for each)) (IVDoc ClassBrowser.IVDoc args (class className) doc (* Show menu of classVariables and give documentation for each)) (DeleteClassItem ClassBrowser.DeleteClassItem args ( class className) doc (* Delete an item from a class, or the class itself)))) (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))) (Methods (GetSubs InstanceBrowser.GetSubs doc (* Gets a set of subs from an object for browsing.)) (NewPath InstanceBrowser.NewPath args (subName) doc (* Changes the name of the sub by which the lattice is computed, changes the title, and recomputes the graph)))) (DEFCLASS LatticeBrowser (MetaClass Class Edited: (* dgb: "20-SEP-83 16:50")) (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 (QUOTE Recompute) "Recompute lattice from starting objects") (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)) (LeftButtonItems ((BoxNode (QUOTE BoxNode) "Draw box around selected node. Unboxed by another BoxNode") (PP (QUOTE PP) "Prettyprint selected item")) doc (* Menu items for LeftButton seletion -- Value sent as message to object or browser -- see LocalCommands)) ( MiddleButtonItems ((Inspect (QUOTE Inspect) "'Inspect selected item") (Edit (QUOTE EditObject) "Edit selected item")) doc (* Menu items for MiddleButton seletion -- Value sent as message to object or browser -- see LocalCommands))) (InstanceVariables (window NIL doc (* Window for browsing) DontSave (Value)) (topAlign T 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)) (lastSelectedObject NIL doc (* last object selected) DontSave Any) (browseFont #((FONTCREATE (QUOTE (GACHA 10))) FirstFetch ReplaceMe) DontSave Any) (boxedNode NIL doc (* last item Boxed, if any))) (Methods (BoxNode LatticeBrowser.BoxNode args (object) doc (* Inverts the video around the node in the graph representing the object)) (DoSelectedCommand LatticeBrowser.DoSelectedCommand args (command obj objName) doc (* does the selected command or forwards it to the object)) (EEObject LatticeBrowser.EEObject args (object objName) doc (* Call editor with EE on object)) (EditObject LatticeBrowser.EditObject args (object objName args) doc (* Call editor with commands args)) (FlashNode LatticeBrowser.FlashNode args (node N flashTime) doc (* Flip node N times)) (FlipNode LatticeBrowser.FlipNode args (object) doc (* Inverts the video around the node in the graph representing the object)) (GetLabel LatticeBrowser.GetLabel args (object) doc (* Get a label for an object to be displayed in the browser.)) (GetNodeList LatticeBrowser.GetNodeList args (browseList goodList) doc (* Compute the node data structures of the tree starting at browseList. If goodList is given, only include elements of it. If goodList=T make it be browseList.)) (GetSubs LatticeBrowser.GetSubs args (object) doc (* Gets a set of subs from an object for browsing)) ( HasObject LatticeBrowser.HasObject args (object)) (LeftSelection LatticeBrowser.LeftSelection args NIL doc (* * Move object if CTRL down. Do LeftShiftSelect if SHIFT down. Else choose from LeftButtonItems )) (LeftShiftSelect LatticeBrowser.LeftShiftSelect args (object objname) doc (* Called when item is selected with left key and LSHIFT is down)) (ListObjects LatticeBrowser.ListObjects args (object) doc (* return a list of the objects that are being displayed in the browser)) (MiddleSelection LatticeBrowser.MiddleSelection doc (* 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.)) (MiddleShiftSelect LatticeBrowser.MiddleShiftSelect args (object objname) doc (* Called when item is selected with middle key and LSHIFT is down)) (ObjNamePair LatticeBrowser.ObjNamePair args (objOrName) doc (* Make a pair (object . objName) where objName is label to be used in browser)) (Recompute LatticeBrowser.Recompute args NIL doc (* Recompute the browseGraph in the same window)) (Show LatticeBrowser.Show args ( browseList windowOrTitle goodList) doc (* * Show the items and their subs on a browse window.)) ( TitleFn LatticeBrowser.TitleFn args NIL doc (*)) (Unread LatticeBrowser.Unread args (object objName) doc (* Unread name into system buffer)) (AddRoot LatticeBrowser.AddRoot args (newItem) doc (* Add a named item to the starting list of the browser)) (DeleteRoot LatticeBrowser.DeleteRoot args ( deletedItem) doc (* Delete a named item from the starting list of the browser)) (SaveInIT LatticeBrowser.SaveInIT args NIL doc (* save value in IT)) (ShapeToHold LatticeBrowser.ShapeToHold args NIL))) (DEFCLASS SupersBrowser (MetaClass Class Edited: (* mjs: "22-JUL-83 10:12") doc (* Browses upwards from a class to all of its supers.)) (Supers ClassBrowser) (ClassVariables) (InstanceVariables) ( Methods (GetSubs SupersBrowser.GetSubs args (object objName) doc (* Returns metaclass plus local supers)))) (DEFCLASS MetaBrowser (MetaClass Class doc (* Runs through the meta classes of a class) Edited: (* dgb: "22-JUL-83 15:39")) (Supers ClassBrowser) (ClassVariables) (InstanceVariables) (Methods (GetSubs MetaBrowser.GetSubs args (elt) doc (* Subs for meta browser is the meta class of the class.)))) (DEFCLASS TextItem (MetaClass Class doc (* Simplest structured text object) Edited: (* dgb: "12-OCT-82 23:09")) (Supers NamedObject) (ClassVariables) (InstanceVariables (subs NIL doc (* list of other elemetns which are subparts of this one)) (text "" doc (* local text for this item))) (Methods)) (RPAQQ BROWSEFNS (BOXNODE BoxWindowNode Browse ClassBrowser.BoxNode ClassBrowser.CVDoc ClassBrowser.ClassDoc ClassBrowser.CopyTo ClassBrowser.DefineSubclass ClassBrowser.DeleteClassItem ClassBrowser.DestroyAndRecompute ClassBrowser.FindWhere ClassBrowser.GetSubs ClassBrowser.IVDoc ClassBrowser.LeftShiftSelect ClassBrowser.MoveTo ClassBrowser.Recompute ClassBrowser.RenameClass ClassBrowser.RenamePart ClassBrowser.SetItNew DoMenuMethod DualMenu DualSelection FindSelectedNode GetMethodArgs InstanceBrowser.GetSubs InstanceBrowser.NewPath LatticeBrowser.AddRoot LatticeBrowser.BoxNode LatticeBrowser.ButtonFn LatticeBrowser.DeleteRoot LatticeBrowser.DoSelectedCommand LatticeBrowser.EEObject LatticeBrowser.EditObject LatticeBrowser.FlashNode LatticeBrowser.FlipNode LatticeBrowser.GetLabel LatticeBrowser.GetNodeList LatticeBrowser.GetSubs LatticeBrowser.HasObject LatticeBrowser.LeftFn LatticeBrowser.LeftSelection LatticeBrowser.LeftShiftSelect LatticeBrowser.ListObjects LatticeBrowser.MiddleFn LatticeBrowser.MiddleSelection LatticeBrowser.MiddleShiftSelect LatticeBrowser.ObjNamePair LatticeBrowser.Recompute LatticeBrowser.SaveInIT LatticeBrowser.ShapeToHold LatticeBrowser.Show LatticeBrowser.TitleFn LatticeBrowser.Unread LatticeBrowser.WhenHeldFn MetaBrowser.GetSubs SupersBrowser.GetSubs TreeRoots)) (RPAQQ MaxLatticeHeight 750) (RPAQQ MaxLatticeWidth 900) NIL