(FILECREATED "16-May-84 21:00:46" ("compiled on " {INDIGO}SOURCES>LOOPSINSPECT.;8) " 9-Apr-84 16:28:08" recompiled exprs: Class.InspectTitleMenu Class.TitleCommand InspectorClassIVs.InspectValueCommand Object.InspectTitleMenu Object.InspectValueCommand Object.TitleCommand in LOOPS.SYSOUT dated " 5-May-84 06:12:34") (FILECREATED "16-May-84 21:00:21" {INDIGO}SOURCES>LOOPSINSPECT.;8 25855 changes to: (FNS Class.InspectTitleMenu Class.TitleCommand InspectorClassIVs.InspectValueCommand Object.InspectTitleMenu Object.InspectValueCommand Object.TitleCommand) previous date: "18-Apr-84 08:51:00" {INDIGO}SOURCES>LOOPSINSPECT.;7) Class.InspectFetch D1 (I 2 property I 1 datum I 0 self) -Ad²Hg ¹HBlIHg ¹HBlI(42Q FetchMethodOrHelp 17Q FetchMethodOrHelp) (37Q List 14Q List!) () Class.InspectPropCommand D1 (L (0 self)) hNIL NIL () Class.InspectProperties D1 (L (1 datum 0 self)) oNIL NIL ( 3 (MetaClass Supers IVs CVs Methods)) Class.InspectStore D1 (I 4 window I 3 newValue I 2 property I 1 datum I 0 self) o (6 ERROR) NIL ( 3 "Can't Store into class this way") Class.InspectTitle D1 (I 1 datum I 0 self) A”oƒoo@µ@ (33Q CONCAT 30Q ClassName) NIL ( 17Q "Class " 13Q "Local properties of " 6 "All properties of ") Class.InspectTitleMenu D1 (I 0 self F 2 ClassInspectTitleMenu) Ng `ð’R°") (Properties (QUOTE Props) "Inspect Properties of this Variable"))) InspectorClassIVs.TitleCommand D1 (I 2 window I 1 datum I 0 self) m@Hg ¹HkIdgð²¿Bg@g ¿°=dgð™¿@AB¿°-dgð¿Bg@h¿°dgðš¿Bg@¿…gð´B A(151Q INSPECTW.REDISPLAY 135Q PUTWINDOWPROP 113Q PUTWINDOWPROP 67Q ClassIVAddDelete 47Q PUTWINDOWPROP 44Q GetValue 12Q FetchMethodOrHelp) (142Q Redisplay 131Q DATUM 122Q Local 105Q DATUM 76Q All 56Q Add/Delete 41Q class 35Q DATUM 25Q Class 7 InspectTitleMenu) () Object.InspectFetch D1 (P 2 prop P 1 varName P 0 vp I 3 window I 2 property I 1 datum I 0 self) 4Aµ@B !HµB¹Agðž@IJ¹B º°ê@IJ(61Q GetValueOnly 50Q InspectValProp 42Q GetIVHere 10Q GetValueOnly) (32Q LocalValues) () Object.InspectPropCommandA0008 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 property F 1 datum) oPoQ h(17Q PromptEval 14Q CONCAT) NIL ( 10Q " for " 3 "Enter the new ") Object.InspectPropCommand D1 (P 3 op P 2 prop P 1 varName P 0 newValue I 3 window I 2 property I 1 datum I 0 self F 7 ObjPropInspectMenu) ªpA`ð²A]g ¼MglL‘hg `ð“W°8g`di¿do¿dg ¿dg¿jdnÿdh¾dN ¿ [´µoi d²ªXA•Ad£¿B¹‡¹B ºKgð—@IHJ†@IHJ¿C h(246Q INSPECTW.REDISPLAY 241Q PutValueOnly 231Q PutValue 213Q InspectValProp 163Q Object.InspectPropCommandA0008 150Q MENU 145Q SETTOPVAL 45Q GETTOPVAL 22Q FetchMethodOrHelp) (220Q PutValue 116Q DEFAULTMENUHELDFN 107Q CLRPROMPT 65Q MENUTYPE# 62Q ObjPropInspectMenu 51Q MENUTYPE# 42Q ObjPropInspectMenu 27Q InspectorClassIVs 17Q InstOf 7 instanceTYPE#) ( 157Q (DUMMY.FOR.ERRORSET) 100Q ((PutValueOnly (QUOTE PutValueOnly) "Overwrite existing value") (PutValue (QUOTE PutValue) "Set value, possibly invoking activeValues"))) Object.InspectProperties D1 (I 1 datum I 0 self) ^A”A³@Hg ¹HglIgA²@Hg ¹HgAlI°@Hg ¹HgAlI(114Q FetchMethodOrHelp 61Q FetchMethodOrHelp 22Q FetchMethodOrHelp) (121Q IV 111Q List! 66Q IV 56Q List 40Q Value 27Q IVS 17Q List) () Object.InspectStore D1 (P 0 varName I 4 window I 3 newValue I 2 property I 1 datum I 0 self) #Aµ @BC@HµBCH´B h(37Q PutValueOnly 34Q InspectValProp 11Q PutValueOnly) NIL () Object.InspectTitle D1 (P 0 names I 1 datum I 0 self) Y@i Ad§hdhb”oƒoA”oƒo@ oH™oH ƒ@ oAµo (126Q CONCAT 105Q LOC 100Q CONCAT 61Q ClassName 4 GetObjectNames) NIL ( 122Q "" 111Q "." 73Q "$" 65Q " " 55Q "Values of " 50Q "IVProps of " 40Q "All " 33Q "Local ") Object.InspectTitleMenu D1 (I 0 self F 2 InstanceTitleMenu) Ng `ð’R°") (Refetch (QUOTE Refetch) "Refetch current values"))) Object.InspectValueCommand D1 (P 5 goodSize P 4 reg I 4 window I 3 value I 2 property I 1 datum I 0 self F 11Q InspectOrPropsMenu F 12Q InspectOrSaveMenu) å Aµg `ð²TW±Š²ìg `ð“W°ug`di¿do¿dg ¿dg¿jdnÿdhHdI ¿°9g`di¿do¿dg ¿dg¿jdnÿdhHdI ¿ dgð²O¿l ` o` g Hg ¹HkIHg ¹HClI` ` dgð²7¿@1Hg »HABg Zg ¹JkIg DlKD dgð²¿@Hg ¹HABDlIdgð•¿C gð´‚±‚D ÉAAµDg@Bhhb‚B¿LA_g ¾OgBlN lØl Ú_¿lÈOñ’OlÈ]ýñ²#DL L L ML ¿D h(741Q INSPECTW.REDISPLAY 734Q SHAPEW 717Q COPYALL 710Q COPYALL 702Q COPYALL 643Q LENGTH 624Q FetchMethodOrHelp 600Q PUTWINDOWPROP 547Q \INSUREWINDOW 530Q INSPECT 502Q FetchMethodOrHelp 456Q INSPECTW.REDISPLAY 443Q GetValue 427Q FetchMethodOrHelp 420Q GetObjectRec 406Q FetchMethodOrHelp 362Q TERPRI 354Q PRIN1 335Q FetchMethodOrHelp 314Q FetchMethodOrHelp 302Q GetObjectRec 274Q PRIN1 262Q PRIN1 254Q CHARACTER 237Q MENU 234Q SETTOPVAL 37Q GETTOPVAL 11Q GETTOPVAL) (632Q IVProps 621Q List! 564Q DATUM 534Q Props 521Q Inspect 477Q InspectPropCommand 463Q NewValue 440Q savedValue 424Q Prototype 415Q LoopsIcon 403Q InspectStore 367Q UnSaveIt 357Q PROMPTWINDOW 351Q PROMPTWINDOW 332Q Save 311Q Prototype 277Q LoopsIcon 271Q PROMPTWINDOW 257Q PROMPTWINDOW 243Q SaveIt 201Q DEFAULTMENUHELDFN 172Q CLRPROMPT 150Q MENUTYPE# 145Q InspectOrPropsMenu 110Q DEFAULTMENUHELDFN 101Q CLRPROMPT 57Q MENUTYPE# 54Q InspectOrSaveMenu 43Q MENUTYPE# 34Q InspectOrSaveMenu 15Q MENUTYPE# 6 InspectOrPropsMenu) ( 266Q "(SavedValue) _ " 163Q ((Inspect (QUOTE Inspect) "Inspect value of item") ("Save Value" (QUOTE SaveIt) "Save selected value") ("Use saved value" (QUOTE UnSaveIt) "Replace selected value by saved value") ("New Value" (QUOTE NewValue) "Replace value by evaluated expression") (Properties (QUOTE Props) "Inspect Properties of this Variable")) 72Q ((Inspect (QUOTE Inspect) "Inspect value of item") ("Save Value" (QUOTE SaveIt) "Save selected value") ("Use saved value" (QUOTE UnSaveIt) "Replace selected value by saved value") ("New Value" (QUOTE NewValue) "Replace value by evaluated expression"))) Object.TitleCommand D1 (I 2 window I 1 datum I 0 self F 2 IT) ð@Hg ¹HkIdgð²¿@d`ð¦d`ð’É‚ ¿±°dgðš¿@AB¿±ŸdgðŸ¿A¢±’Ah¿±‰dgð²%¿AµBg@hghb¿°gg¿°^dgð²N¿o` ¿g Hg ¹HkIHg ¹HAµAclI` ¿` ¿ˆgð“AµB Ah¿°ö(346Q INSPECTW.REDISPLAY 327Q TERPRI 320Q PRIN1 272Q FetchMethodOrHelp 251Q FetchMethodOrHelp 237Q GetObjectRec 230Q PRIN1 172Q PUTWINDOWPROP 102Q ObjAddDelete 61Q INSPECT 56Q GetLispClass 12Q FetchMethodOrHelp) (334Q IVs 324Q PROMPTWINDOW 315Q PROMPTWINDOW 267Q Save 246Q Prototype 234Q LoopsIcon 225Q PROMPTWINDOW 212Q SaveIt 202Q LocalValues 161Q LocalValues 154Q DATUM 140Q LocalValues 112Q AllValues 71Q Add/Delete 46Q classTYPE# 37Q instanceTYPE# 25Q Class 7 InspectTitleMenu) ( 222Q "(SavedValue) _ ") InspectValProp D1 (L (0 property)) @dgðhNIL (4 Value) () ObjAddDelete D1 (P 1 name P 0 varName I 2 window I 1 datum I 0 self F 11Q AddDeleteMenu) ½ Ag `ð“W°8g`di¿do¿dg ¿dg¿jdnÿdhºdJ ¿ dgð²+¿o ¹H™@HhI¿°P@\g »LIhlK¿°