(FILECREATED "20-Sep-84 12:28:32" ("compiled on " {ERIS}SOURCES>INSPECT.;4) "18-Sep-84 17:10:47" recompiled changes: INSPECTW.CREATE in "INTERLISP-D 18-Sep-84 ..." dated "18-Sep-84 17:35:43") (FILECREATED "20-Sep-84 12:27:28" {ERIS}SOURCES>INSPECT.;4 75419 changes to: (FNS INSPECTW.CREATE) previous date: "13-Sep-84 17:27:56" {ERIS}SOURCES>INSPECT.;3) INSPECTW.CREATE D1 (P 14Q X P 13Q PROP P 10Q MAXVALUEWIDTH P 7 SELITEMS P 6 VALUEMARGIN P 5 VALUEMENU P 4 PROPMENU P 3 VALUE P 2 WINDOW P 1 PROPERTIESLST P 0 IWFONT I 12Q PROPPRINTFN I 11Q WHERE I 10Q SELECTIONFN I 7 TITLE I 6 TITLECOMMANDFN I 5 VALUECOMMANDFN I 4 PROPCOMMANDFN I 3 STOREFN I 2 FETCHFN I 1 PROPERTIES I 0 DATUM F 17Q MaxInspectorPropertyValueWidth) & g Ad@kA IH ^Il_GNO`IkH_dOOG@ ZHJ nPJ Jg@ JgC JgB JgD JgE JgG JgF JgG JgA JgG Jgg Jgg Jgg JhN  ]AOOdlldW/W)_@OlBH _OOOO_O_(414Q \STRINGWIDTHGUESS 330Q LENGTH 324Q INSPECTW.REDISPLAY 316Q PUTWINDOWPROP 304Q PUTWINDOWPROP 272Q PUTWINDOWPROP 260Q PUTWINDOWPROP 247Q PUTWINDOWPROP 237Q PUTWINDOWPROP 226Q PUTWINDOWPROP 216Q PUTWINDOWPROP 205Q PUTWINDOWPROP 175Q PUTWINDOWPROP 165Q PUTWINDOWPROP 155Q PUTWINDOWPROP 145Q PUTWINDOWPROP 135Q DSPRIGHTMARGIN 126Q DSPFONT 120Q DECODE.WINDOW.ARG 115Q \INSPECT.COMPUTE.TITLE 30Q \INSPECTW.VALUE.MARGIN 5 DEFAULTFONT) (313Q SCROLLBYREPAINTFN 310Q SCROLLFN 301Q INSPECTW.REPAINTFN 276Q REPAINTFN 267Q \ITEM.WINDOW.BUTTON.HANDLER 264Q BUTTONEVENTFN 253Q PROPPRINTFN 243Q PROPERTIES 232Q SELECTIONFN 222Q TITLECOMMANDFN 211Q INSPECTWTITLE 201Q VALUECOMMANDFN 171Q PROPCOMMANDFN 161Q FETCHFN 151Q STOREFN 141Q DATUM 71Q FONTDESCRIPTOR 55Q MaxInspectorWindowHeight 2 DISPLAY) () INSPECTW.REPAINTFN D1 (P 4 PROPPRINTFN P 3 SELECTABLEITEMREGION P 2 LINEBASE P 1 WREG P 0 SELITEMS I 1 REGION I 0 WINDOW) A@g h@ BIIkغHJHXIHa[]MJAK @Hdg)@g @g \H@g lLH@K HX@ @g @g @ (255Q \ITEMW.FLIPITEM 251Q GETWINDOWPROP 240Q GETWINDOWPROP 230Q ITEMW.REPAINTFN 216Q PRINTATBOX 176Q GETWINDOWPROP 157Q GETWINDOWPROP 146Q GETWINDOWPROP 117Q REGIONSINTERSECTP 20Q DSPCLIPPINGREGION 13Q GETWINDOWPROP) (246Q CURRENTITEM 235Q CURRENTITEM 173Q DATUM 154Q PROPPRINTFN 143Q DATUM 133Q PROPERTY 10Q SELECTABLEITEMS) NIL INSPECTW.REDISPLAYA0214 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 DATUM F 1 PROP F 2 FETCHFN F 3 VALUE) PQlRciNIL NIL NIL INSPECTW.REDISPLAYA0216 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 DATUM F 1 PROP F 2 FETCHFN F 3 VALUE) PQlRciNIL NIL NIL INSPECTW.REDISPLAY D1 (P 26Q SELITEM P 25Q NOWEXTENT P 24Q PROPNAME P 23Q PROP P 17Q PROP P 16Q PROP P 12Q PROPERTYPNAMES P 11Q SELITEMS P 10Q VALUEMENU P 7 PROPMENU P 6 VALUE P 5 PROPPRINTFN P 4 VALUECOMMANDFN P 3 PROPCOMMANDFN P 2 FETCHFN P 1 PROPERTIES P 0 DATUM I 2 VALUEMARGIN I 1 PROPS I 0 WINDOW F 27Q MinSpaceBetweenProperyAndValue) A5@g @ @g @g @g @g V MM0 I@@A d@O hdOHlM_O Oh_O&_OI_B dh@ bh@ @ @g@g H@ @h@ @gOI2O"_&O FO$_ @gOjdddhOOOOO_(O$O(o GNI@` KgO&gho No^@BW. LgNO&hhho^@B LgNO&hhh _$O"_"O _ &d_,O*O, O* @(657Q PUTWINDOWPROP 644Q EXTENDREGION 605Q \NCONC2 560Q PRINTANDBOX 520Q PRINTANDBOX 501Q INSPECTW.REDISPLAYA0214 452Q PRINTANDBOX 436Q INSPECTW.REDISPLAYA0216 321Q PUTWINDOWPROP 260Q MOVETOUPPERLEFT 255Q DSPCLIPPINGREGION 247Q PUTWINDOWPROP 244Q \INSPECT.COMPUTE.TITLE 237Q GETWINDOWPROP 224Q CLEARW 220Q \ITEMW.DESELECTITEM 211Q \INSPECTW.VALUE.MARGIN 206Q DSPFONT 111Q \INSPECTW.REDISPLAYPROP 75Q \INSPECTW.REDISPLAYPROP 51Q GETWINDOWPROP 42Q GETWINDOWPROP 33Q GETWINDOWPROP 24Q GETWINDOWPROP 15Q INSPECTW.PROPERTIES 11Q GETWINDOWPROP) (566Q DEFAULT.INSPECTW.VALUECOMMANDFN 526Q DEFAULT.INSPECTW.VALUECOMMANDFN 465Q PROPERTY 460Q DEFAULT.INSPECTW.PROPCOMMANDFN 447Q PropertyLeftMargin 325Q EXTENT 264Q SELECTABLEITEMS 234Q INSPECTWTITLE 230Q TITLE 46Q PROPPRINTFN 37Q VALUECOMMANDFN 30Q PROPCOMMANDFN 21Q FETCHFN 6 DATUM) (551Q "** error during access **" 510Q "** error during access **" 476Q (DUMMY.FOR.ERRORSET) 433Q (DUMMY.FOR.ERRORSET)) \INSPECTW.VALUE.MARGIN D1 (I 1 FONT I 0 PROPS F 0 MinSpaceBetweenProperyAndValue) @A dllP`d``(4 MAXSTRINGWIDTH) (33Q MaxValueLeftMargin 26Q MaxValueLeftMargin 20Q PropertyLeftMargin) NIL INSPECTW.REPLACE D1 (P 1 STOREFN P 0 DATUM I 2 NEWVALUE I 1 PROPERTY I 0 INSPECTW) @g @g I@o H@o IHddidd gHhAddidd gAhBddidd gBhho @A (214Q \INSPECTW.REDISPLAYPROP 207Q LISPXEVAL 45Q ERROR 32Q ERROR 15Q GETWINDOWPROP 6 GETWINDOWPROP) (167Q QUOTE 133Q QUOTE 77Q QUOTE 12Q STOREFN 3 DATUM) (204Q "^_>" 42Q " doesn't have a DATUM" 27Q " does not have a STOREFN.") INSPECTW.SELECTITEM D1 (P 0 PREVIOUS I 2 VALUEFLG I 1 PROPERTY I 0 INSPECTW) )@g HH@ ABA@ @A @ H(45Q \ITEMW.SELECTITEM 41Q \SELITEM.FROM.PROPERTY 33Q ITEMOFPROPERTYVALUE 20Q \ITEMW.DESELECTITEM 6 GETWINDOWPROP) (3 CURRENTITEM) NIL \INSPECTW.REDISPLAYPROP D1 (P 4 NEWVALUEREGION P 3 ITEMSELECTED? P 2 NEWVALUE P 1 OLDVALUEITEM P 0 DATUM I 1 PROPERTY I 0 WINDOW F 5 INSPECTW) k@g A@ @A #HUo I o@ I@g iI@ IJIh@ g@ IJ@I \@L KI@ (147Q \ITEMW.SELECTITEM 137Q EXTENDEXTENT 127Q PRINTATBOX 117Q DSPFILL 110Q DSPTEXTURE 73Q \ITEMW.DESELECTITEM 62Q GETWINDOWPROP 51Q ERROR 35Q ERROR 20Q INSPECTW.FETCH 13Q ITEMOFPROPERTYVALUE 6 GETWINDOWPROP) (113Q REPLACE 57Q CURRENTITEM 3 DATUM) (45Q "No value for a property in an INSPECTW" 32Q " doesn't have a DATUM") INSPECTW.FETCH D1 (I 1 PROPERTY I 0 INSPECTW) -@g @o @g @o AlH(44Q ERROR 32Q GETWINDOWPROP 20Q ERROR 6 GETWINDOWPROP) (27Q DATUM 3 FETCHFN) (41Q " doesn't have a DATUM" 15Q " doesn't have a FETCHFN") INSPECTW.PROPERTIES D1 (P 0 PROPERTIES I 0 INSPECTW) @g Hd @g kH(26Q GETWINDOWPROP 6 GETWINDOWPROP) (23Q DATUM 3 PROPERTIES) NIL DECODE.WINDOW.ARG D1 (I 5 NOOPENFLG I 4 BORDER I 3 TITLE I 2 HEIGHT I 1 WIDTH I 0 WHERESPEC) d@ @@ @ LAdd?Bdd2@ @@AD BCD AD BCD hddC CDE (141Q CREATEW 133Q GETBOXREGION 123Q HEIGHTIFWINDOW 115Q WIDTHIFWINDOW 106Q MAKEWITHINREGION 103Q CREATEREGION 100Q HEIGHTIFWINDOW 72Q WIDTHIFWINDOW 57Q POSITIONP 17Q MAKEWITHINREGION 12Q REGIONP 3 WINDOWP) NIL () DEFAULT.INSPECTW.PROPCOMMANDFNA0001A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 OLDVALUEITEM F 2 INSPECTW F 3 RESETY F 4 PROPERTY F 5 DATUM F 6 NEWVALUE) gQRhQR hPcg` hhPcgll hhPcoi Ti oi Ui i oi i oi id g c id ci(211Q CLEARBUF 201Q LISPX 173Q LISPXREAD 165Q PRIN1 154Q TERPRI 147Q PRIN1 136Q TERPRI 131Q PRIN1 123Q PRIN1 112Q PRIN1 104Q PRIN1 62Q PRINTLEVEL 36Q TTY.PROCESS 15Q \ITEMW.FLIPITEM) (176Q > 53Q PRINTLEVEL 33Q \RUNNING.PROCESS 30Q TTY.PROCESS 2 \ITEMW.FLIPITEM) ( 161Q "> " 143Q "The expression read will be EVALuated." 117Q " for " 100Q "Enter the new ") DEFAULT.INSPECTW.PROPCOMMANDFNA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 PWINDOW P 1 NEWVALUE P 0 OLDVALUEITEM F 6 INSPECTW F 7 PROPERTY F 10Q LISPXHIST F 11Q RESETVARSLST) HWV !Vl Z W!Wog hg] MJ VWI h(102Q INSPECTW.REPLACE 72Q CLOSEW 64Q ERROR! 56Q RESETRESTORE 44Q DEFAULT.INSPECTW.PROPCOMMANDFNA0001A0002 22Q TTYDISPLAYSTREAM 16Q GETPROMPTWINDOW 5 ITEMOFPROPERTYVALUE) (52Q ERROR 41Q INTERNAL) ( 36Q (DUMMY.FOR.ERRORSET)) DEFAULT.INSPECTW.PROPCOMMANDFN D1 (P 2 NEWVALUE P 1 DATUM P 0 DESCRIPTOR I 2 INSPECTW I 1 DATUM I 0 PROPERTY) }```^oooo`oIHIJ gIHIJ gIHIJ jdndhIHIJ  g oi (172Q DEFAULT.INSPECTW.PROPCOMMANDFNA0001 154Q MENU 144Q FREPLACEFIELD 115Q FREPLACEFIELD 76Q FREPLACEFIELD 57Q FREPLACEFIELD) (157Q SET 151Q SetPropertyMenu 103Q DEFAULTMENUHELDFN 64Q CLRPROMPT 40Q MENUTYPE# 13Q SetPropertyMenu 6 MENUTYPE# 2 SetPropertyMenu) ( 166Q (DUMMY.FOR.ERRORSET) 45Q ((SET (QUOTE SET) "Allows a new value to be entered")) 35Q (MENU 4 POINTER) 31Q (MENU 40Q POINTER) 25Q (MENU 34Q POINTER) 21Q (MENU 12Q POINTER)) DEFAULT.INSPECTW.VALUECOMMANDFN D1 (I 3 WINDOW I 2 DATUM I 1 PROPERTY I 0 VALUE) @ dg.@%` o` `lji dg@ dgdgdg.` o` @` `ljg@ ```4`dodg dgjdndhHdI  g@ (330Q INSPECT 316Q MENU 212Q INSPECT/LISTP 200Q CLRPROMPT 162Q GETMOUSESTATE 157Q PRIN1 147Q PRIN1 134Q TERPRI 101Q INSPECT/BITMAP 65Q INSPECT/ATOM 60Q CLRPROMPT 42Q GETMOUSESTATE 37Q PRIN1 24Q TERPRI 3 TYPENAME) (321Q INSPECT/VALUE 313Q InspectMenu 260Q DEFAULTMENUHELDFN 251Q CLRPROMPT 234Q MENUTYPE# 227Q InspectMenu 222Q MENUTYPE# 216Q InspectMenu 204Q LISTP 166Q LASTMOUSEBUTTONS 154Q PROMPTWINDOW 144Q PROMPTWINDOW 131Q PROMPTWINDOW 122Q FLOATP 114Q SMALLP 106Q FIXP 72Q BITMAP 46Q LASTMOUSEBUTTONS 34Q PROMPTWINDOW 21Q PROMPTWINDOW 7 LITATOM) (242Q ((Inspect (QUOTE INSPECT/VALUE))) 141Q "Can't Inspect " 31Q "Can't inspect NIL.") DEFAULT.INSPECTW.TITLECOMMANDFN D1 (P 2 NEWVALUE P 1 DATUM P 0 DESCRIPTOR I 1 DATUM I 0 INSPECTW F 3 IT) ```^oooo`oIHIJ gIHIJ gIHIJ jdndhIHIJ  dg@ dgAcg@g @g co (245Q PROMPTPRINT 230Q GETWINDOWUSERPROP 220Q GETWINDOWUSERPROP 167Q INSPECTW.REDISPLAY 154Q MENU 144Q FREPLACEFIELD 115Q FREPLACEFIELD 76Q FREPLACEFIELD 57Q FREPLACEFIELD) (225Q CURRENTITEM 215Q CURRENTITEM 206Q SETITTOSEL 174Q SETIT 160Q REFETCH 151Q ItemWCommandMenu 103Q DEFAULTMENUHELDFN 64Q CLRPROMPT 40Q MENUTYPE# 13Q ItemWCommandMenu 6 MENUTYPE# 2 ItemWCommandMenu) ( 242Q "No item has been selected from this window." 45Q ((ReFetch (QUOTE REFETCH) "ReFetches and redisplays the object's fields") (IT_datum (QUOTE SETIT) "sets the variable IT to the object inspected in this window.") (IT_selection (QUOTE SETITTOSEL) "sets the variable IT to the item selected in this window.")) 35Q (MENU 4 POINTER) 31Q (MENU 40Q POINTER) 25Q (MENU 34Q POINTER) 21Q (MENU 12Q POINTER)) \SELITEM.FROM.PROPERTY D1 (I 1 PROPERTY I 0 INSPECTW) +@g HhYAIdgHX(6 GETWINDOWPROP) (40Q PROPERTY 3 SELECTABLEITEMS) NIL \INSPECT.COMPUTE.TITLE D1 (P 0 VALUE I 2 WINDOW I 1 DATUM I 0 TITLE) 7@All o gh@dlABl@XgH(24Q CONCAT 15Q LEVELEDFORM) (60Q DON'T 30Q DON'T) (21Q " Inspector") LEVELEDFORM D1 (I 2 CDRLEV I 1 CARLEV I 0 EXP) /@@Ajg@AkB Bj@o@ABk (53Q LEVELEDFORM 25Q LEVELEDFORM) (13Q &) (41Q (--)) MAKEWITHINREGION D1 (I 1 LIMITREGION I 0 REGION) A`1@HY@I0 A @@HHY@jIk@ٺdJJ@HY@I+@@HHY@jIk@ٻdKK@(35Q \ILLEGAL.ARG 27Q REGIONP) (5 WHOLEDISPLAY) () ITEMW.REPAINTFN D1 (P 2 SELECTABLEITEMREGION P 1 SELITEM I 1 REGION I 0 WINDOW) >@g !H@g @g @ AIZ I@J HX(66Q PRINTATBOX 54Q REGIONSINTERSECTP 42Q \ITEMW.FLIPITEM 36Q GETWINDOWPROP 25Q GETWINDOWPROP 6 GETWINDOWPROP) (33Q CURRENTITEM 22Q CURRENTITEM 3 SELECTABLEITEMS) NIL \ITEM.WINDOW.BUTTON.HANDLER D1 (I 0 WINDOW) `dlj@ kj@ h(30Q \INSPECTW.COMMAND.HANDLER 16Q \ITEM.WINDOW.SELECTION.HANDLER) (2 LASTMOUSEBUTTONS) NIL \ITEM.WINDOW.SELECTION.HANDLER D1 (P 5 REG P 4 OLDPOS P 3 BUTTON P 2 PREVIOUS P 1 NOW P 0 SELECTABLEITEMS I 0 WINDOW) @g aH`dljgkjog@ @g Hh@ \ @g J@ IZ@ `lj2I.@g %@g gIIgh@lNhM`` J@ hJHh@L Y𲖰(261Q IN/ITEM? 256Q CURSORPOSITION 244Q \ITEMW.DESELECTITEM 236Q INSIDE? 167Q GETWINDOWPROP 156Q GETWINDOWPROP 131Q GETMOUSESTATE 125Q \ITEMW.SELECTITEM 116Q \ITEMW.DESELECTITEM 110Q GETWINDOWPROP 100Q IN/ITEM? 74Q CURSORPOSITION 65Q GETWINDOWPROP 55Q TOTOPW 6 GETWINDOWPROP) (233Q LASTMOUSEY 230Q LASTMOUSEX 211Q PROPERTY 174Q NILL 164Q SELECTIONFN 153Q SELECTIONFN 135Q LASTMOUSEBUTTONS 105Q CURRENTITEM 62Q REGION 50Q MIDDLE 36Q LEFT 23Q LASTMOUSEBUTTONS 3 SELECTABLEITEMS) NIL \INSPECTW.COMMAND.HANDLERA0245 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 INSPECTW F 1 SELITEM F 2 INFO F 3 COMMANDFN) 7QcgQPg PlSQRPg PlSh(54Q GETWINDOWPROP 27Q GETWINDOWPROP) (51Q DATUM 24Q DATUM 11Q PROPERTY) NIL \INSPECTW.COMMAND.HANDLER D1 (P 2 INFO P 1 COMMANDFN P 0 SELITEM I 0 INSPECTW) th@ @ @ F@g !Ho `ljY o I oi @g g@dg lK(154Q GETWINDOWPROP 134Q GETWINDOWPROP 124Q \INSPECTW.COMMAND.HANDLERA0245 113Q PROMPTPRINT 103Q PROMPTPRINT 66Q CLRPROMPT 50Q GETMOUSESTATE 45Q PROMPTPRINT 30Q GETWINDOWPROP 17Q INSIDEP 14Q LASTMOUSEY 10Q LASTMOUSEX 4 DSPCLIPPINGREGION) (151Q DATUM 141Q DEFAULT.INSPECTW.TITLECOMMANDFN 131Q TITLECOMMANDFN 54Q LASTMOUSEBUTTONS 25Q CURRENTITEM) (120Q (DUMMY.FOR.ERRORSET) 100Q "There is no change function for this window." 42Q (This is the command button. % You must select an item with the left button before choosing a command.)) ITEM.WINDOW.SET.STACK.ARGA0255A0256 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 OLDVALUEITEM F 2 WINDOW F 3 RESETY F 4 VARNAME F 5 NEWVALUE) pgQRhQR hPcg` hhPcoi Ti oi i oi i oi id c ci(150Q EVAL 145Q READ 137Q PRIN1 126Q TERPRI 121Q PRIN1 110Q TERPRI 103Q PRIN1 72Q PRIN1 64Q PRIN1 53Q CLRPROMPT 36Q TTY.PROCESS 15Q \ITEMW.FLIPITEM) (33Q \RUNNING.PROCESS 30Q TTY.PROCESS 2 \ITEMW.FLIPITEM) (133Q "> " 115Q "The expression read will be EVALuated." 77Q "." 60Q "Enter the new value for ") ITEM.WINDOW.SET.STACK.ARGA0255 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 NEWVALUE P 0 OLDVALUEITEM F 5 VARNAME F 6 WINDOW F 7 RESETVARSLST F 10Q FRAME F 11Q LISPXHIST) HUV UW o h+W!Wog hg\ LVUI h(102Q INSPECTW.REPLACE 72Q ERROR! 64Q RESETRESTORE 52Q ITEM.WINDOW.SET.STACK.ARGA0255A0256 25Q PROMPTPRINT 15Q FRAMESCAN 4 ITEMOFPROPERTYVALUE) (60Q ERROR 47Q INTERNAL) (44Q (DUMMY.FOR.ERRORSET) 22Q "Can't set that arg.") ITEM.WINDOW.SET.STACK.ARG D1 (I 2 WINDOW I 1 FRAME I 0 VARNAME) \```4`dodg dgjdndhHdI  gAA oi (131Q ITEM.WINDOW.SET.STACK.ARGA0255 120Q \ILLEGAL.ARG 102Q MENU) (105Q SET 77Q SetStackMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q SetStackMenu 6 MENUTYPE# 2 SetStackMenu) (125Q (DUMMY.FOR.ERRORSET) 26Q ((Set (QUOTE SET) "Changes the value of this stack variable"))) REPLACESTKARG D1 (I 2 NEWVALUE I 1 WHICHSPEC I 0 FRAMESPEC) <A8@dA Abb@ Ad@B @ o h(70Q PROMPTPRINT 57Q FRAMESCAN 52Q SETSTKARG 36Q \ILLEGAL.ARG 14Q NTH) NIL (65Q "Can't set that arg.") IN/ITEM? D1 (P 3 ITEM P 1 YPOS P 0 XPOS I 1 POS I 0 ITEMS) !AA"@Zh[KHI KJ(30Q INSIDE?) NIL NIL \ITEMW.DESELECTITEM D1 (I 1 WINDOW I 0 ITEM) @@A Ag (16Q PUTWINDOWPROP 6 \ITEMW.FLIPITEM) (13Q CURRENTITEM) NIL \ITEMW.SELECTITEM D1 (I 1 WINDOW I 0 ITEM) @@A Ag@ (17Q PUTWINDOWPROP 6 \ITEMW.FLIPITEM) (13Q CURRENTITEM) NIL \ITEMW.CLEARSELECTION D1 (P 0 CURRENTITEM I 0 INSPECTW) @g HH@ @(20Q \ITEMW.DESELECTITEM 6 GETWINDOWPROP) (3 CURRENTITEM) NIL \ITEMW.FLIPITEM D1 (P 0 REG I 1 DS I 0 ITEM) &@hddAHHHHggn (43Q BKBITBLT) (34Q INVERT 31Q TEXTURE) NIL PRINTANDBOXA0257 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 0 PLVLFILEFLG F 1 EXP F 2 STRM F 3 MACROY) iQR hci(10Q PRIN2) NIL NIL PRINTANDBOX D1 (P 13Q RESETSTATE P 12Q MACROY P 10Q OLDVALUE P 5 HGHT P 4 YEND P 3 YSTART P 2 PREVLM P 1 PREVRM P 0 STRM I 3 MINSPACE I 2 LFTMARGIN I 1 STREAM I 0 EXP F 14Q RESETVARSLST) Ag qnPH YBH ZCd CjH hH BH BH hH [h_B` 1 gOhhWc_og g_OcgO OhH \HKL]H_MjhH BhH BپdNNH BOhIH JH (333Q DSPLEFTMARGIN 325Q DSPRIGHTMARGIN 307Q DSPXPOSITION 266Q DSPCLIPPINGREGION 257Q DSPXPOSITION 217Q DSPYPOSITION 210Q ERROR! 201Q APPLY 151Q PRINTANDBOXA0257 112Q PRINTLEVEL 76Q DSPYPOSITION 71Q DSPXPOSITION 63Q TERPRI 54Q DSPXPOSITION 46Q RELMOVETO 26Q DSPLEFTMARGIN 20Q DSPRIGHTMARGIN 6 \GETSTREAM) (237Q FONTDESCRIPTOR 224Q FONTDESCRIPTOR 171Q PRINTLEVEL 155Q ERROR 146Q INTERNAL 120Q PRINTLEVEL 107Q INSPECTPRINTLEVEL 3 OUTPUT) (143Q (DUMMY.FOR.ERRORSET)) PRINTATBOX D1 (I 2 OLDBOX I 1 WINDOW I 0 EXP) ,BhgA BBBhA A @AB (51Q PRINTANDBOX 42Q MOVETO 30Q DSPFONT 10Q DSPFILL) (33Q FONTDESCRIPTOR 4 REPLACE) NIL ITEMOFPROPERTYVALUE D1 (I 1 WINDOW I 0 PROPERTY) A@ Ag (16Q MEMB 13Q GETWINDOWPROP 4 \SELITEM.FROM.PROPERTY) (10Q SELECTABLEITEMS) NIL INSPECT D1 (P 6 IMACRO P 1 INSPECTINFO P 0 ITEMTYPE I 2 WHERE I 1 ASTYPE I 0 ITEM) @ AA4`MKhY@Hdgs@hB dZ@IB ` Y @AB d@IBlJ^dgN@kKoN HNM]@IBlLg@B Hdg@hB g@B Hdg@B g@B H@B @hB ` o` h(364Q PRIN1 351Q TERPRI 342Q INSPECT/DATATYPE 333Q INSPECT/AS/BLOCKRECORD 323Q INSPECTCODE 310Q INSPECT/BITMAP 272Q INSPECT/HARRAYP 257Q INSPECT/ARRAY 240Q INSPECT/LISTP 175Q ERROR 112Q INSPECT/DATATYPE 101Q FASSOC 72Q \APPLYINSPECTMACRO 54Q INSPECT/ATOM 3 TYPENAME) (361Q PROMPTWINDOW 346Q PROMPTWINDOW 314Q CCODEP 300Q BITMAP 263Q HARRAYP 246Q ARRAYP 231Q LISTP 150Q FUNCTION 76Q INSPECTMACROS 42Q LITATOM 14Q INSPECTMACROS) ( 356Q "Can't Inspect NIL." 171Q "ERROR in INSPECTMACROS specification") \APPLYINSPECTMACRO D1 (P 0 ARGS I 2 WHERE I 1 ARGLST I 0 DATUM) 9A@HHXHXHXHXHXHXHXHX BHH  (65Q EVAL 61Q INSPECTW.CREATE) NIL NIL INSPECT/ATOM D1 (P 1 TYPETOINSPECT P 0 ASPECTS I 2 WHERE I 1 ALWAYSASKFLG I 0 ATM) e@hdg !@ gHH`@ogH @-lgH XH` @` o` hHHgg@AH Ydg```0`dodg dgjdndhdJ  dgg@h gFg@ddidd g@hhBddidd gBhh g@ddidd g@hIddidd gIhh (542Q EVAL.AS.PROCESS 437Q EVAL.AS.PROCESS 324Q EVAL.AS.PROCESS 303Q MENU 166Q SELECT.ATOM.ASPECT 140Q PRIN1 125Q PRIN1 115Q TERPRI 102Q REMOVE 63Q MEMB 17Q NONSYSPROPNAMES 10Q TYPESOF) (527Q QUOTE 473Q QUOTE 443Q EDITDEF 423Q QUOTE 366Q QUOTE 336Q INSPECT/PROPLIST 330Q INSPECT 315Q EDITP 307Q EDITP 300Q InspectPropsMenu 251Q DEFAULTMENUHELDFN 242Q CLRPROMPT 225Q MENUTYPE# 220Q InspectPropsMenu 213Q MENUTYPE# 207Q InspectPropsMenu 177Q PROPS 157Q PROPS 152Q PROPS 135Q PROMPTWINDOW 122Q PROMPTWINDOW 112Q PROMPTWINDOW 76Q VARS 57Q VARS 41Q LITATOM 35Q \PLISTSPACE 23Q PROPS 5 ?) ( 233Q ((EDITP (QUOTE EDITP) "Calls EDITP on the atom.") (INSPECT (QUOTE INSPECT) "Inspects the property list with an inspect window.")) 132Q " does not have any aspect to inspect." 53Q (PROPS)) SELECT.ATOM.ASPECT D1 (P 0 ASPECTS I 2 ASPECTS I 1 ALWAYSASKFLG I 0 ATOM) aB @hdg !HhAHdF`dHo@o dIdi dg dgjdndhdJ (134Q MENU 57Q CONCAT 13Q TYPESOF) (105Q DEFAULTMENUHELDFN 76Q CLRPROMPT 35Q MENUTYPE# 10Q ?) (54Q "?" 47Q "Which defn of ") INSPECT/AS/FUNCTION D1 (P 0 EDITOR I 0 ATM) @ H@kH(3 SELECT.FNS.EDITOR) NIL () SELECT.FNS.EDITOR D1 (I 0 FN) L`@ oo HdIdi dg dgjdndhHdI  (111Q MENU 24Q \APPEND2 7 CCODEP) (56Q DEFAULTMENUHELDFN 47Q CLRPROMPT 2 MENUTYPE#) (21Q ((DisplayEdit (QUOTE DF) "Edit it with the display editor") (TtyEdit (QUOTE EF) "Edit it with the standard editor")) 15Q ((InspectCode (QUOTE INSPECTCODEQ) "Shows the compiled code."))) INSPECT/BITMAP D1 (P 2 NEWVALUE P 1 DATUM P 0 DESCRIPTOR I 1 WHERE I 0 BITMAP) ```^oooo`oIHIJ gIHIJ gIHIJ jdndhIHIJ  dg@gA g g@h (214Q EVAL.AS.PROCESS 173Q INSPECT/DATATYPE 154Q MENU 144Q FREPLACEFIELD 115Q FREPLACEFIELD 76Q FREPLACEFIELD 57Q FREPLACEFIELD) (205Q EDITBM 177Q CONTENTS 167Q BITMAP 160Q FIELDS 151Q InspectBitmapMenu 103Q DEFAULTMENUHELDFN 64Q CLRPROMPT 40Q MENUTYPE# 13Q InspectBitmapMenu 6 MENUTYPE# 2 InspectBitmapMenu) ( 45Q ((fields (QUOTE FIELDS) "Inspects the fields of the bitmap") (contents (QUOTE CONTENTS) "Edits the contents of the bitmap.")) 35Q (MENU 4 POINTER) 31Q (MENU 40Q POINTER) 25Q (MENU 34Q POINTER) 21Q (MENU 12Q POINTER)) INSPECT/DATATYPE D1 (P 1 SYSREC P 0 DEC I 2 WHERE I 1 TYPE I 0 DATUM)  AA X$AA XiY@ X@ XiH@H`hI gogggHddidd gHhhhIAgogggHddidd gHhoghhoIohdddB ` o` @` ` o` h(362Q PRIN1 347Q TERPRI 340Q PRIN1 330Q PRIN1 315Q TERPRI 306Q INSPECTW.CREATE 73Q INSPECTABLEFIELDNAMES 42Q FINDSYSRECDECL 34Q FINDRECDECL 22Q SYSRECLOOK1 11Q RECLOOK) (357Q PROMPTWINDOW 344Q PROMPTWINDOW 335Q PROMPTWINDOW 325Q PROMPTWINDOW 312Q PROMPTWINDOW 246Q NEWVALUE 233Q QUOTE 203Q INSTANCE 200Q FIELD 175Q RECORDACCESS 166Q LAMBDA 143Q QUOTE 113Q INSTANCE 110Q FIELD 105Q RECORDACCESS 76Q LAMBDA 63Q INSPECTALLFIELDSFLG) (354Q "Can not inspect." 322Q "No declaration for " 275Q "System Datatype. Not settable with the inspector." 266Q "System datatype. Not settable with the inspector." 243Q (QUOTE /REPLACE) 172Q (INSTANCE FIELD NEWVALUE) 102Q (INSTANCE FIELD)) INSPECTABLEFIELDNAMES D1 (I 1 TOPONLYFLG I 0 DECL) 2A(0@i ddhdIHhZH&J@ (57Q REMOVEDUPS 54Q RECORDFIELDNAMES 12Q RECORDFIELDNAMES) NIL NIL REMOVEDUPS D1 (I 0 LST) @d (4 INTERSECTION) NIL NIL INSPECT/ARRAY D1 (P 0 FIRSTELT I 2 WHERE I 1 BEGINOFFSET I 0 ARRAY) @`Add@ @d @ H`عdIIkH2KdJLgghddddB M Nh]Kk[N&` @` o` h(173Q PRIN1 160Q PRIN1 150Q TERPRI 115Q INSPECTW.CREATE 41Q ARRAYSIZE 35Q ARRAYORIG 25Q ARRAYORIG) (170Q PROMPTWINDOW 155Q PROMPTWINDOW 145Q PROMPTWINDOW 103Q /SETA 100Q ELT 46Q MAXINSPECTARRAYLEVEL) (165Q " not an array") INSPECT/TOP/LEVEL/LIST D1 (P 6 X P 2 I I 1 WHERE I 0 LST) s@` @` o` hd`kCH^dJdIN+KNgLMh\JkغNM&gh KgghddddA (160Q INSPECTW.CREATE 135Q \NCONC2 34Q PRIN1 21Q PRIN1 11Q TERPRI) (146Q SETNTHTOPLEVELELT 143Q NTHTOPLEVELELT 130Q && 75Q ... 42Q MAXINSPECTCDRLEVEL 31Q PROMPTWINDOW 16Q PROMPTWINDOW 6 PROMPTWINDOW) (26Q " not a LISTP") INSPECT/PROPLIST D1 (P 0 PROPS I 2 WHERE I 1 ALLPROPSFLG I 0 ATOM) =A@ @ H@AgggghddddB Aoo h(71Q PROMPTPRINT 52Q INSPECTW.CREATE 12Q NONSYSPROPNAMES 5 PROPNAMES) (40Q /PUTPROP 35Q GETPROP 32Q NONSYSPROPNAMES 26Q PROPNAMES) (66Q "No non-system properties" 61Q "No properties") NONSYSPROPNAMES D1 (I 0 ATM F 3 SYSPROPS) #0@ dSdIHhZH&J(6 PROPNAMES) NIL NIL INSPECT/HARRAYP D1 (P 0 PROPS I 1 WHERE I 0 HARRAY) )@ H@ggghddddA o h(45Q PROMPTPRINT 35Q INSPECTW.CREATE 3 HARRAYKEYS) (23Q INSPECTW.PUTHASH 20Q INSPECTW.GETHASH 15Q HARRAYKEYS) (42Q "No keys in that Hash array.") HARRAYKEYSA0293 D1 (L (1 HASHITEM 0 HASHEDVALUE) F 0 ITEMLST) APcNIL NIL NIL HARRAYKEYS D1 (P 0 ITEMLST I 0 HARRAY) @g H(11Q MAPHASH) (6 HARRAYKEYSA0293) NIL INSPECTW.GETHASH D1 (L (1 ITEM 0 HARRAY)) A@NIL NIL NIL INSPECTW.PUTHASH D1 (I 2 VALUE I 1 ITEM I 0 HARRAY) AB@ (5 /PUTHASH) NIL NIL INSPECT/LISTP D1 (I 1 WHERE I 0 LST) @ g@AlH(3 SELECT.LIST.INSPECTOR) (10Q NILL) NIL ALISTP D1 (L (0 LST)) @HihHXNIL NIL NIL PROPLISTP D1 (L (0 LST)) #@dHihHlHHXNIL NIL NIL INSPECT/ALIST D1 (I 1 WHERE I 0 ALST) -@0@dIHhZH&JgghddddA (52Q INSPECTW.CREATE) (40Q /ASSOCPUT 35Q ASSOCGET) NIL ASSOCGET D1 (I 1 KEY I 0 ALST) A@ (4 ASSOC) NIL NIL /ASSOCPUT D1 (I 2 VAL I 1 KEY I 0 ALST) AB@ (5 /PUTASSOC) NIL NIL INSPECT/PLIST D1 (I 1 WHERE I 0 PLST) -@0@dIHhZH&JgghddddA (52Q INSPECTW.CREATE) (40Q /LISTPUT 35Q LISTGET) NIL INSPECT/TYPERECORD D1 (I 1 WHERE I 0 X) @dA (6 INSPECT) NIL NIL INSPECT/AS/RECORDA0041 D1 (I 0 ITEM) o (6 PROMPTPRINT) NIL (3 "Will inspect the list as if it were an instance of this record type.") INSPECT/AS/RECORD D1 (P 0 RECORD I 1 WHERE I 0 INSTANCE F 7 USERRECLST) l@`0WdYoIh\MAL^]N dJdgdg jdndhdK X@HA  ]L(145Q LAST 141Q INSPECT 130Q MENU 60Q SORT) (101Q CLRPROMPT 72Q INSPECT/AS/RECORDA0041 5 MENUTYPE#) (25Q (TYPERECORD RECORD)) INSPECT/AS/BLOCKRECORDA0305 D1 (I 0 ITEM) o (6 PROMPTPRINT) NIL (3 "Will inspect the list as if it were an instance of this record type.") INSPECT/AS/BLOCKRECORD D1 (P 0 RECORD I 1 WHERE I 0 INSTANCE F 7 USERRECLST) h@`0WdYgIh\M>L^]NdJdgdg jdndhdK X@HA  ]L(141Q LAST 135Q INSPECT 124Q MENU) (75Q CLRPROMPT 66Q INSPECT/AS/BLOCKRECORDA0305 24Q BLOCKRECORD 5 MENUTYPE#) NIL INSPECTCODE D1 (P 0 WINDOW I 1 WHERE I 0 FN) BAnn@@o Hg@ Hgg Hgg Hgg H h(76Q \INSPECT/CODE/RESHAPEFN 72Q PUTWINDOWPROP 60Q PUTWINDOWPROP 46Q PUTWINDOWPROP 34Q PUTWINDOWPROP 21Q DECODE.WINDOW.ARG 16Q CONCAT) (67Q SCROLLBYREPAINTFN 64Q SCROLLFN 55Q \INSPECT/CODE/RESHAPEFN 52Q RESHAPEFN 43Q \INSPECT/CODE/REPAINTFN 40Q REPAINTFN 30Q DATUM) ( 13Q " Code Window") INSPECTCODEQ D1 (I 0 FN) @ (3 INSPECTCODE) NIL NIL \INSPECT/CODE/RESHAPEFN D1 (P 2 BOTTOM P 1 WHEIGHT P 0 FONT I 2 OLDREGION I 1 OLDIMAGE I 0 WIN) S@g ( !@gj@g YHk @ @gjh@ HZ@g IJh h(117Q PUTWINDOWPROP 104Q GETWINDOWPROP 65Q DSPYPOSITION 53Q \INSPECT/CODE/REPAINTFN 47Q PUTWINDOWPROP 31Q GETWINDOWPROP 6 GETWINDOWPROP) (101Q WIDTH 71Q FONTDESCRIPTOR 57Q EXTENT 36Q FONTDESCRIPTOR 26Q HEIGHT 21Q REGIONUPPERLEFT 3 DSP) NIL \INSPECT/CODE/REPAINTFN D1 (P 0 UPPERLEFT I 0 WIN) #@g HH@ @g hl@ h(37Q PRINTCODE 30Q GETWINDOWPROP 21Q MOVETO 6 GETWINDOWPROP) (25Q DATUM 3 REGIONUPPERLEFT) NIL SELECT.LIST.INSPECTOR D1 (P 0 RECDEC I 0 LST) `@ o@ o@ Hd%go@ oo@ hho IdJdi dg dgjdndhIdJ  (206Q MENU 121Q \APPEND2 116Q \APPEND2 100Q CONCAT 63Q CONCAT 34Q RECLOOK 21Q PROPLISTP 7 ALISTP) (153Q DEFAULTMENUHELDFN 144Q CLRPROMPT 47Q TYPERECORD 2 MENUTYPE#) (113Q ((DisplayEdit (QUOTE DEDITE) "Edit it with the display editor") (TtyEdit (QUOTE STANDARDEDITE) "Edit it with the standard editor") (Inspect (QUOTE INSPECT/TOP/LEVEL/LIST) "Inspect the top level with an inspect window") (AsRecord (QUOTE INSPECT/AS/RECORD) "Prompts further for the record type of this LIST.")) 73Q "Inspects the selected list as an instance of " 67Q (QUOTE INSPECT/TYPERECORD) 56Q "As" 27Q ((AsPList (QUOTE INSPECT/PLIST) "Inspects the list as a property list.")) 14Q ((AsAList (QUOTE INSPECT/ALIST) "Inspects the list as a A-List"))) STANDARDEDITEA0317 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXPR F 1 COMS F 2 ATM F 3 MACROY F 4 TYPE F 5 IFCHANGEDFN) PQRTU ci(10Q EDITE) NIL NIL STANDARDEDITE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR F 4 RESETVARSLST) =g 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q STANDARDEDITEA0317 5 EDITMODE) (54Q EDITMODE 44Q ERROR 35Q INTERNAL 13Q EDITMODE 2 STANDARD) (32Q (DUMMY.FOR.ERRORSET)) NTHTOPLEVELELT D1 (I 1 N I 0 LST) %Adg@ g@`k @A (41Q NTH 33Q NTH 13Q LAST) (26Q MAXINSPECTCDRLEVEL 20Q && 4 ...) NIL SETNTHTOPLEVELELT D1 (I 2 NEWVALUE I 1 N I 0 LST) 6Adg@ B go @`k @A dB (63Q /RPLACA 54Q NTH 46Q NTH 35Q PROMPTPRINT 17Q /RPLACD 13Q LAST) (41Q MAXINSPECTCDRLEVEL 23Q && 4 ...) (32Q "Can't set the tail.") DEDITEA0318 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXPR F 1 COMS F 2 ATM F 3 MACROY F 4 TYPE F 5 IFCHANGEDFN) PQRTU ci(10Q EDITE) NIL NIL DEDITE D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR F 4 RESETVARSLST) =g 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q DEDITEA0318 5 EDITMODE) (54Q EDITMODE 44Q ERROR 35Q INTERNAL 13Q EDITMODE 2 DISPLAY) (32Q (DUMMY.FOR.ERRORSET)) FINDRECDECL D1 (P 1 DECL P 0 TYPENAME I 0 DATUM)  @d X Y @ HI(26Q TYPENAME 17Q RECLOOK 13Q TYPENAME) NIL NIL FINDSYSRECDECL D1 (P 1 DECL P 0 TYPENAME I 0 DATUM)  @ Xd Y @ HI(23Q TYPENAME 14Q SYSRECLOOK1 6 TYPENAME) NIL NIL PPVINWA0319 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 EXP F 1 MACROY) P ci(6 PRINTDEF 3 POSITION) NIL NIL PPVINW D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 FILE I 0 EXP F 4 RESETVARSLST) ;A 1gHhhTcYog gIcgI KJ(66Q ERROR! 61Q APPLY 36Q PPVINWA0319 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) (30Q (DUMMY.FOR.ERRORSET)) \INSPECTEDITE D1 (I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR) @dd ABCD (21Q \BEFOREINSPECTEDITE 10Q INSPECT) NIL NIL RDTBL\NONOTHERCODES D1 (P 1 CH I 0 RT) ,lj2IdHJ@ gIK Lh[IkYL&(20Q GETSYNTAX) (23Q OTHER) NIL GETSYNTAXPROP D1 (I 1 CH I 0 RDTBL) A@ (4 GETSYNTAX) NIL NIL SETSYNTAXPROP D1 (I 2 CLASS I 1 CH I 0 RDTBL) AB@ (5 SETSYNTAX) NIL NIL GETTTBLPROP D1 (I 1 PROP I 0 TTBL) Adddh@ g$AdgdgdgdgdgA@ gAdgdgdgAh@ ggh@ Adgg@ gg@ Adg@ g@ (245Q GETECHOMODE 232Q GETRAISE 215Q GETCONTROL 177Q GETDELETECONTROL 157Q DELETECONTROL 141Q DELETECONTROL 77Q GETSYNTAX 21Q ECHOCONTROL) (236Q ECHOMODE 223Q RAISE 207Q CONTROL 202Q ECHO 173Q ECHO 165Q ECHODELS? 152Q LINEDELETE 145Q LINEDELETESTR 130Q EMPTYCHDEL 122Q POSTCHDEL 114Q NTHCHDEL 104Q 1STCHDEL 67Q EOL 61Q CTRLV 53Q RETYPE 44Q LINEDELETE 35Q WORDDELETE 25Q CHARDELETE) NIL SETTTBLPROP D1 (I 2 NEWVALUE I 1 PROP I 0 TTBL) AdddB@ g$AgAgAgAgAdgBA@ gAdgdgdgAB@ ggB@ AdgBggh@ gB@ AdgB@ gB@ (253Q ECHOMODE 237Q RAISE 221Q CONTROL 206Q DELETECONTROL 157Q DELETECONTROL 141Q DELETECONTROL 100Q SETSYNTAX 21Q ECHOCONTROL) (243Q ECHOMODE 227Q RAISE 212Q CONTROL 201Q NOECHO 175Q ECHO 165Q ECHODELS? 152Q LINEDELETE 145Q LINEDELETESTR 130Q EMPTYCHDEL 122Q POSTCHDEL 114Q NTHCHDEL 104Q 1STCHDEL 67Q EOL 60Q CTRLV 52Q RETYPE 43Q LINEDELETE 34Q WORDDELETE 25Q CHARDELETE) NIL STACKFRAMEPROPPRINTFN D1 (L (1 DATUM 0 PROP)) @ A@h@NIL NIL NIL STACKFRAMEVALUECOMMANDFN D1 (I 3 WINDOW I 2 DATUM I 1 PROP I 0 VALUE) <A @ABC C .g@ddidd g@hh (71Q PROCESS.EVAL 22Q \INSUREWINDOW 12Q DEFAULT.INSPECTW.VALUECOMMANDFN) (57Q QUOTE 27Q INSPECT/AS/FUNCTION) () PROPERTIES.FROM.FRAMESPEC D1 (P 33Q ARGNAME P 27Q ARGN P 21Q I P 17Q ARGLST P 16Q ARGNAMES P 15Q VALUEMARGIN P 14Q VALUE P 13Q NOVALUE P 12Q FNNAME P 11Q NARGS1 P 10Q NARGS P 3 STKPOS P 1 N I 2 EMBEDDEDCALLFLG I 1 LOTSFLG I 0 POS F 34Q WIZARDFLG) 2@dAk2HJJ0KAi dILNMh_M&O HIkعi @ @ oDAOlO O _Ok2O"dO .O$_B@i W8OhhOOkCO*EO0 @ O A gO" O__(O&O(h_&_$O"k_"O(&_&_6O.O,O6(OO.@O _O6O.h_4O2O4h_2_0O.k_.O*_*yO4&_2(375Q STKARG 276Q PACK* 254Q STKARGNAME 247Q \NCONC2 211Q REALFRAMEP 153Q SMARTARGLIST 145Q CCODEP 117Q STKNAME 113Q STKNARGS 107Q STKNARGS 71Q \NCONC2 32Q PROPERTIES.FROM.FRAMESPEC) (271Q *var*) (123Q "") PROPERTIES.FROM.FRAMESPEC.LOTS D1 (I 0 POS) @i (4 PROPERTIES.FROM.FRAMESPEC) NIL NIL WINDOWTITLE2 D1 (I 1 WINDOW I 0 DATUM) Ag (6 GETWINDOWPROP) (3 TITLE) NIL NEWSTKNPVARS D1 (I 0 POS) @i @ (10Q STKNARGS 4 STKNARGS) NIL NIL MYSMARTARGLIST D1 (P 1 I I 1 NARGS I 0 FN) 4@i @ Ak2IHoI K Lh[IkYL&J(34Q PACK* 11Q SMARTARGLIST 4 FNCHECK) NIL (30Q "*arg") FETCHSTKARG D1 (I 1 WHICHSPEC I 0 FRAMESPEC) &AA@ Ad@ A Abb(31Q NTH 23Q STKARG) NIL NIL \RELEASEWINDOWSTKDATUM D1 (P 0 X I 0 WINDOW) %@g Xd Hd H(34Q RELSTK 21Q RELSTK 11Q GETWINDOWPROP) (6 DATUM) NIL BTITEMWINDOWCLOSEFN D1 (I 0 W) @ @g (12Q PUTWINDOWPROP 3 \RELEASEWINDOWSTKDATUM) (7 SELECTABLEITEMS) NIL (PRETTYCOMPRINT INSPECTCOMS) (RPAQQ INSPECTCOMS ((COMS (* functions to implement an item window. An ITEM window is a window that contains SELECTABLEITEMS. An item from the window is selected using the left button. The middle button will then bring up a menu of commands that can be applyed to the selected item. An INSPECTW is a special type of ITEMW that maintains properties and their values for a datum. It is used by the inspector.) (FNS INSPECTW.CREATE INSPECTW.REPAINTFN INSPECTW.REDISPLAY \INSPECTW.VALUE.MARGIN INSPECTW.REPLACE INSPECTW.SELECTITEM \INSPECTW.REDISPLAYPROP INSPECTW.FETCH INSPECTW.PROPERTIES DECODE.WINDOW.ARG DEFAULT.INSPECTW.PROPCOMMANDFN DEFAULT.INSPECTW.VALUECOMMANDFN DEFAULT.INSPECTW.TITLECOMMANDFN \SELITEM.FROM.PROPERTY \INSPECT.COMPUTE.TITLE LEVELEDFORM MAKEWITHINREGION) (FNS ITEMW.REPAINTFN \ITEM.WINDOW.BUTTON.HANDLER \ITEM.WINDOW.SELECTION.HANDLER \INSPECTW.COMMAND.HANDLER ITEM.WINDOW.SET.STACK.ARG REPLACESTKARG IN/ITEM? \ITEMW.DESELECTITEM \ITEMW.SELECTITEM \ITEMW.CLEARSELECTION \ITEMW.FLIPITEM PRINTANDBOX PRINTATBOX ITEMOFPROPERTYVALUE) ( RECORDS SELECTABLEITEM) (VARS PropertyLeftMargin MaxValueLeftMargin MinSpaceBetweenProperyAndValue MaxInspectorPropertyValueWidth (MAXINSPECTCDRLEVEL 50) (MAXINSPECTARRAYLEVEL 300))) (COMS (* functions for the inspector) (FNS INSPECT \APPLYINSPECTMACRO INSPECT/ATOM SELECT.ATOM.ASPECT INSPECT/AS/FUNCTION SELECT.FNS.EDITOR INSPECT/BITMAP INSPECT/DATATYPE INSPECTABLEFIELDNAMES REMOVEDUPS INSPECT/ARRAY INSPECT/TOP/LEVEL/LIST INSPECT/PROPLIST NONSYSPROPNAMES INSPECT/HARRAYP HARRAYKEYS INSPECTW.GETHASH INSPECTW.PUTHASH INSPECT/LISTP ALISTP PROPLISTP INSPECT/ALIST ASSOCGET /ASSOCPUT INSPECT/PLIST INSPECT/TYPERECORD INSPECT/AS/RECORD INSPECT/AS/BLOCKRECORD INSPECTCODE INSPECTCODEQ \INSPECT/CODE/RESHAPEFN \INSPECT/CODE/REPAINTFN SELECT.LIST.INSPECTOR STANDARDEDITE NTHTOPLEVELELT SETNTHTOPLEVELELT DEDITE FINDRECDECL FINDSYSRECDECL PPVINW \INSPECTEDITE RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP GETTTBLPROP SETTTBLPROP) (GLOBALVARS INSPECTMACROS INSPECTALLFIELDSFLG SetPropertyMenu SetStackMenu InspectMenu PropertyLeftMargin MaxValueLeftMargin INSPECTPRINTLEVEL InspectBitmapMenu ItemWCommandMenu InspectPropsMenu MAXINSPECTARRAYLEVEL MAXINSPECTCDRLEVEL MaxInspectorWindowWidth MaxInspectorWindowHeight) (ADDVARS (INSPECTMACROS (READTABLEP RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP) (TERMTABLEP (CHARDELETE WORDDELETE LINEDELETE RETYPE CTRLV EOL RAISE ECHOMODE LINEDELETESTR 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL ECHODELS? CONTROL 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) GETTTBLPROP SETTTBLPROP))) (INITVARS (INSPECTALLFIELDSFLG T) (MaxInspectorWindowWidth 330) ( MaxInspectorWindowHeight 606)) (VARS INSPECTPRINTLEVEL)) (COMS (* stack functions) (FNS STACKFRAMEPROPPRINTFN STACKFRAMEVALUECOMMANDFN PROPERTIES.FROM.FRAMESPEC PROPERTIES.FROM.FRAMESPEC.LOTS WINDOWTITLE2 NEWSTKNPVARS MYSMARTARGLIST FETCHSTKARG \RELEASEWINDOWSTKDATUM BTITEMWINDOWCLOSEFN) (DECLARE: DONTCOPY (RECORDS ARGSPEC)) (DECLARE: DOCOPY DONTEVAL@LOAD (P (MOVD? (QUOTE NEWSTKNPVARS) (QUOTE STKNPVARS)) (MOVD? (QUOTE EDITE) (QUOTE \BEFOREINSPECTEDITE)) (MOVD (QUOTE \INSPECTEDITE) (QUOTE EDITE))))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML INSPECTCODEQ) (LAMA))))) (RECORD SELECTABLEITEM (SELECTABLEITEMREGION COMMANDFN ITEMINFO ITEMINFOTYPE)) (RPAQQ PropertyLeftMargin 2) (RPAQQ MaxValueLeftMargin 250) (RPAQQ MinSpaceBetweenProperyAndValue 8) (RPAQQ MaxInspectorPropertyValueWidth 250) (RPAQQ MAXINSPECTCDRLEVEL 50) (RPAQQ MAXINSPECTARRAYLEVEL 300) (ADDTOVAR INSPECTMACROS (READTABLEP RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP) (TERMTABLEP ( CHARDELETE WORDDELETE LINEDELETE RETYPE CTRLV EOL RAISE ECHOMODE LINEDELETESTR 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL ECHODELS? CONTROL 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) GETTTBLPROP SETTTBLPROP)) (RPAQ? INSPECTALLFIELDSFLG T) (RPAQ? MaxInspectorWindowWidth 330) (RPAQ? MaxInspectorWindowHeight 606) (RPAQQ INSPECTPRINTLEVEL (2 . 5)) (MOVD? (QUOTE NEWSTKNPVARS) (QUOTE STKNPVARS)) (MOVD? (QUOTE EDITE) (QUOTE \BEFOREINSPECTEDITE)) (MOVD (QUOTE \INSPECTEDITE) (QUOTE EDITE)) (PUTPROPS INSPECT COPYRIGHT ("Xerox Corporation" 1982 1983 1984)) NIL