(FILECREATED "16-Jul-86 23:05:50" ("compiled on " {ERIS}SOURCES>INSPECT.;16) "15-Jul-86 20:06:40" recompiled changes: INSPECT/AS/FUNCTION \TEDIT.INSPECTCODE INSPECT/MAKE/CCODEP in "Xerox Lisp 15-Jul-86 ..." dated "15-Jul-86 20:18:34") (FILECREATED "16-Jul-86 23:03:36" {ERIS}SOURCES>INSPECT.;16 125057 changes to: (FNS \TEDIT.INSPECTCODE INSPECT/AS/FUNCTION INSPECT/MAKE/CCODEP) previous date: "25-Jun-86 12:51:07" {ERIS}SOURCES>INSPECT.;15) 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) 2 g Ad@kA IH ^Il_GNO`IkH_dOOG@ ZHJ nPJ Jg@ JgC JgB JgD JgE JgG JgF JgG JgA JgG Jgg Jgg Jgg Jgg JhN  SAOOdlld`$`_@OlBH _OOOO_O_(430Q \STRINGWIDTHGUESS 342Q LENGTH 336Q INSPECTW.REDISPLAY 330Q PUTWINDOWPROP 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) (405Q MaxInspectorPropertyValueWidth 374Q MaxInspectorPropertyValueWidth 325Q SCROLLBYREPAINTFN 322Q SCROLLFN 313Q INSPECTW.REPAINTFN 310Q REPAINTFN 301Q \ITEM.WINDOW.COPY.HANDLER 276Q COPYBUTTONEVENTFN 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 GETWINDOWUSERPROP 240Q GETWINDOWUSERPROP 230Q ITEMW.REPAINTFN 216Q PRINTATBOX 176Q GETWINDOWUSERPROP 157Q GETWINDOWUSERPROP 146Q GETWINDOWUSERPROP 117Q REGIONSINTERSECTP 20Q DSPCLIPPINGREGION 13Q GETWINDOWUSERPROP) (246Q CURRENTITEM 235Q CURRENTITEM 173Q DATUM 154Q PROPPRINTFN 143Q DATUM 133Q PROPERTY 10Q SELECTABLEITEMS) () INSPECTW.REDISPLAYA0001 D1 (NAME ERRORSET F 0 DATUM F 1 PROP F 2 FETCHFN F 3 VALUE) PQlRciNIL NIL () INSPECTW.REDISPLAYA0002 D1 (NAME ERRORSET F 0 DATUM F 1 PROP F 2 FETCHFN F 3 VALUE) PQlRciNIL 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) 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 HNJ@` KgO&gho No^@B` LgNO&hhho^@B LgNO&hhh _$O"_"O _ %d_,O*O, O* @gg @(672Q PUTWINDOWPROP 660Q PUTWINDOWPROP 645Q EXTENDREGION 606Q \NCONC2 561Q PRINTANDBOX 521Q PRINTANDBOX 501Q INSPECTW.REDISPLAYA0001 452Q PRINTANDBOX 436Q INSPECTW.REDISPLAYA0002 321Q PUTWINDOWPROP 260Q MOVETOUPPERLEFT 255Q DSPCLIPPINGREGION 247Q PUTWINDOWPROP 244Q \INSPECT.COMPUTE.TITLE 237Q GETWINDOWUSERPROP 224Q CLEARW 220Q \ITEMW.DESELECTITEM 211Q \INSPECTW.VALUE.MARGIN 206Q DSPFONT 111Q \INSPECTW.REDISPLAYPROP 75Q \INSPECTW.REDISPLAYPROP 51Q GETWINDOWUSERPROP 42Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q INSPECTW.PROPERTIES 11Q GETWINDOWUSERPROP) (667Q LIMIT 664Q SCROLLEXTENTUSE 567Q DEFAULT.INSPECTW.VALUECOMMANDFN 527Q DEFAULT.INSPECTW.VALUECOMMANDFN 516Q MinSpaceBetweenProperyAndValue 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) ( 552Q "** error during access **" 510Q "** error during access **" 476Q (INSPECTW.REDISPLAYA0001) 433Q (INSPECTW.REDISPLAYA0002)) \INSPECTW.VALUE.MARGIN D1 (I 1 FONT I 0 PROPS) !@Ai dll``d``(5 MAXSTRINGWIDTH) (36Q MaxValueLeftMargin 31Q MaxValueLeftMargin 23Q PropertyLeftMargin 20Q MinSpaceBetweenProperyAndValue) () INSPECTW.REPLACE D1 (P 1 STOREFN P 0 DATUM I 2 NEWVALUE I 1 PROPERTY I 0 INSPECTW) q@g @g I@o H@o IHddi3 gHhAddi3 gAhBddi3 gBhho @A (156Q \INSPECTW.REDISPLAYPROP 151Q LISPXEVAL 45Q ERROR 32Q ERROR 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (131Q QUOTE 107Q QUOTE 65Q QUOTE 12Q STOREFN 3 DATUM) ( 146Q "^_>" 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 GETWINDOWUSERPROP) (3 CURRENTITEM) () \INSPECTW.REDISPLAYPROP D1 (P 4 NEWVALUEREGION P 3 ITEMSELECTED? P 2 NEWVALUE P 1 OLDVALUEITEM P 0 DATUM I 1 PROPERTY I 0 WINDOW) k@g A@ @A #H@o 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 GETWINDOWUSERPROP 51Q ERROR 35Q ERROR 20Q INSPECTW.FETCH 13Q ITEMOFPROPERTYVALUE 6 GETWINDOWUSERPROP) (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 GETWINDOWUSERPROP 20Q ERROR 6 GETWINDOWUSERPROP) (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 GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (23Q DATUM 3 PROPERTIES) () DECODE.WINDOW.ARG D1 (I 5 NOOPENFLG I 4 BORDER I 3 TITLE I 2 HEIGHT I 1 WIDTH I 0 WHERESPEC) [@ @@ @ CA3>B39@ @@AD BCD AD BCD hddoC CDE (130Q CREATEW 122Q GETBOXREGION 116Q CONCAT 103Q HEIGHTIFWINDOW 75Q WIDTHIFWINDOW 66Q MAKEWITHINREGION 63Q CREATEREGION 60Q HEIGHTIFWINDOW 52Q WIDTHIFWINDOW 37Q POSITIONP 17Q MAKEWITHINREGION 12Q REGIONP 3 WINDOWP) NIL ( 112Q "Specify position for ") DEFAULT.INSPECTW.PROPCOMMANDFNA0006A0007 D1 (NAME ERRORSET 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.PROPCOMMANDFNA0006 D1 (NAME ERRORSET 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) NWV !Vl Z id W!Wog hg] MJ VWI h(110Q INSPECTW.REPLACE 100Q CLOSEW 72Q ERROR! 64Q RESETRESTORE 52Q DEFAULT.INSPECTW.PROPCOMMANDFNA0006A0007 30Q CLEARBUF 22Q TTYDISPLAYSTREAM 16Q GETPROMPTWINDOW 5 ITEMOFPROPERTYVALUE) (60Q ERROR 47Q INTERNAL) ( 44Q (DEFAULT.INSPECTW.PROPCOMMANDFNA0006A0007)) DEFAULT.INSPECTW.PROPCOMMANDFN D1 (I 2 INSPECTW I 1 DATUM I 0 PROPERTY) S```4`dodg dgjdndhHdI  g oi (120Q DEFAULT.INSPECTW.PROPCOMMANDFNA0006 102Q MENU) (105Q SET 77Q SetPropertyMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q SetPropertyMenu 6 MENUTYPE# 2 SetPropertyMenu) ( 114Q (DEFAULT.INSPECTW.PROPCOMMANDFNA0006) 26Q ((SET (QUOTE SET) "Allows a new value to be entered"))) DEFAULT.INSPECTW.VALUECOMMANDFN D1 (I 3 WINDOW I 2 DATUM I 1 PROPERTY I 0 VALUE) @ dg>@5` o` `lHj HH i dg@ dgdgdg>` o` @` `lHj HH g@ ```4`dodg dgjdndhHdI  g@ (370Q INSPECT 356Q MENU 252Q INSPECT/LISTP 240Q CLRPROMPT 232Q \FZEROP 202Q GETMOUSESTATE 177Q PRIN1 167Q PRIN1 154Q TERPRI 121Q INSPECT/BITMAP 105Q INSPECT/ATOM 100Q CLRPROMPT 72Q \FZEROP 42Q GETMOUSESTATE 37Q PRIN1 24Q TERPRI 3 TYPENAME) (361Q INSPECT/VALUE 353Q InspectMenu 320Q DEFAULTMENUHELDFN 311Q CLRPROMPT 274Q MENUTYPE# 267Q InspectMenu 262Q MENUTYPE# 256Q InspectMenu 244Q LISTP 206Q LASTMOUSEBUTTONS 174Q PROMPTWINDOW 164Q PROMPTWINDOW 151Q PROMPTWINDOW 142Q FLOATP 134Q SMALLP 126Q FIXP 112Q BITMAP 46Q LASTMOUSEBUTTONS 34Q PROMPTWINDOW 21Q PROMPTWINDOW 7 LITATOM) ( 302Q ((Inspect (QUOTE INSPECT/VALUE))) 161Q "Can't Inspect " 31Q "Can't inspect NIL.") DEFAULT.INSPECTW.TITLECOMMANDFN D1 (I 1 DATUM I 0 INSPECTW) ```4`dodg dgjdndhHdI  dg@ dgAg@g @g o (175Q PROMPTPRINT 157Q GETWINDOWUSERPROP 147Q GETWINDOWUSERPROP 115Q INSPECTW.REDISPLAY 102Q MENU) (165Q IT 154Q CURRENTITEM 144Q CURRENTITEM 135Q SETITTOSEL 131Q IT 122Q SETIT 106Q REFETCH 77Q ItemWCommandMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q ItemWCommandMenu 6 MENUTYPE# 2 ItemWCommandMenu) ( 172Q "No item has been selected from this window." 26Q ((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."))) \SELITEM.FROM.PROPERTY D1 (I 1 PROPERTY I 0 INSPECTW) +@g HhYAIdgHX(6 GETWINDOWUSERPROP) (40Q PROPERTY 3 SELECTABLEITEMS) () \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@Ik@ٺjJJj@HY@I+@@HHY@Ik@ٻjKKj@(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 GETWINDOWUSERPROP 25Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (33Q CURRENTITEM 22Q CURRENTITEM 3 SELECTABLEITEMS) () \ITEM.WINDOW.BUTTON.HANDLER D1 (I 0 WINDOW) `dlj@ kj@ h(30Q \INSPECTW.COMMAND.HANDLER 16Q \ITEM.WINDOW.SELECTION.HANDLER) (2 LASTMOUSEBUTTONS) () \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 aHh`dljgkjg@ @ Hh@ \ @g J@ IZ@ `lj " 115Q "The expression read will be EVALuated." 77Q "." 60Q "Enter the new value for ") ITEM.WINDOW.SET.STACK.ARGA0006 D1 (NAME ERRORSET 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.ARGA0006A0007 25Q PROMPTPRINT 15Q FRAMESCAN 4 ITEMOFPROPERTYVALUE) (60Q ERROR 47Q INTERNAL) ( 44Q (ITEM.WINDOW.SET.STACK.ARGA0006A0007) 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.ARGA0006 120Q \ILLEGAL.ARG 102Q MENU) (105Q SET 77Q SetStackMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q SetStackMenu 6 MENUTYPE# 2 SetStackMenu) ( 125Q (ITEM.WINDOW.SET.STACK.ARGA0006) 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 () \ITEMW.DESELECTITEM D1 (I 1 WINDOW I 0 ITEM) @@A Ag (16Q PUTWINDOWPROP 6 \ITEMW.FLIPITEM) (13Q CURRENTITEM) () \ITEMW.SELECTITEM D1 (I 1 WINDOW I 0 ITEM) @@A Ag@ (17Q PUTWINDOWPROP 6 \ITEMW.FLIPITEM) (13Q CURRENTITEM) () \ITEMW.CLEARSELECTION D1 (P 0 CURRENTITEM I 0 INSPECTW) @g HH@ @(20Q \ITEMW.DESELECTITEM 6 GETWINDOWUSERPROP) (3 CURRENTITEM) () \ITEMW.FLIPITEM D1 (P 0 REG I 1 DS I 0 ITEM) @nAHHHHg (35Q BLTSHADE) (31Q INVERT) () PRINTANDBOXA0001 D1 (NAME ERRORSET P 0 PLVLFILEFLG F 1 EXP F 2 STRM F 3 MACROY) iQR hci(10Q PRIN2) 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 ZC3 CjH hH BH BH hH [h_B` 1 gOhhWc_og g_OcgO OhH \HKL]H_MjhH BhH BپdNNH BOhIH JH (327Q DSPLEFTMARGIN 321Q DSPRIGHTMARGIN 303Q DSPXPOSITION 262Q DSPCLIPPINGREGION 253Q DSPXPOSITION 213Q DSPYPOSITION 204Q ERROR! 175Q APPLY 145Q PRINTANDBOXA0001 106Q PRINTLEVEL 72Q DSPYPOSITION 65Q DSPXPOSITION 57Q TERPRI 50Q DSPXPOSITION 42Q RELMOVETO 26Q DSPLEFTMARGIN 20Q DSPRIGHTMARGIN 6 \GETSTREAM) (233Q FONTDESCRIPTOR 220Q FONTDESCRIPTOR 165Q PRINTLEVEL 151Q ERROR 142Q INTERNAL 114Q PRINTLEVEL 103Q INSPECTPRINTLEVEL 3 OUTPUT) ( 137Q (PRINTANDBOXA0001)) 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) () ITEMOFPROPERTYVALUE D1 (I 1 WINDOW I 0 PROPERTY) A@ Ag (16Q MEMB 13Q GETWINDOWUSERPROP 4 \SELITEM.FROM.PROPERTY) (10Q SELECTABLEITEMS) () \ITEM.WINDOW.COPY.HANDLER D1 (P 3 NEWITEM P 2 SMASHPOS P 1 CURRENTITEM P 0 SELECTABLEITEMS I 0 WINDOW F 5 \LASTKEYSTATE) @g AHWhkj7lUljjkj&l@Ul jjkjId@ I `l\j'LL @ Hh@ Z IKIKYl@Uljj@ @ (231Q \ITEMW.FLIPCOPY 222Q \ITEMW.FLIPCOPY 177Q BLOCK 160Q IN/ITEM? 154Q CURSORPOSITION 145Q TOTOPW 137Q \FZEROP 113Q GETMOUSESTATE 105Q BKSYSBUF.GENERAL 75Q \ITEMW.FLIPCOPY 6 GETWINDOWUSERPROP) (117Q LASTMOUSEBUTTONS 3 SELECTABLEITEMS) () \ITEMW.FLIPCOPY D1 (P 0 REG I 1 DS I 0 ITEM) @`AHHHlg (32Q BLTSHADE) (26Q INVERT 7 GRAYSHADE) () BKSYSBUF.GENERAL D1 (P 1 SEPR P 0 TYPE I 0 OBJECT F 2 \DEFPRINTFNS) @ HgHdg@id g5gI g@ @b@o @ g h@3HR@ o @ o @ o (207Q BKSYSBUF 200Q BKSYSBUF 175Q OCTALSTRING 170Q BKSYSBUF 161Q BKSYSBUF 156Q OCTALSTRING 151Q BKSYSBUF 141Q BKSYSBUF 122Q BKSYSBUF 113Q BKSYSBUF.GENERAL 106Q BKSYSBUF 65Q BKSYSBUF.GENERAL 53Q BKSYSBUF 32Q BKSYSBUF 3 TYPENAME) (117Q %) 57Q % 44Q %( 36Q LISTP 21Q LITATOM 12Q STRINGP) ( 204Q "Q)" 165Q "Q " 146Q "(\VAG2 " 103Q " . ") INSPECT D1 (P 6 DTD P 5 IMACRO P 1 INSPECTINFO P 0 ITEMTYPE I 2 WHERE I 1 ASTYPE I 0 ITEM) @ 1A@AB `L*hY@HdgT@hB d;@IB ]dgM@kJoM HhML\@IBlKg@B Hdg@hB g@B Hdg@B g@B H@B `@NPj@BNaN @hB ` o` h(374Q PRIN1 361Q TERPRI 352Q INSPECT/DATATYPE 343Q INSPECT/HUNK 302Q INSPECT/TYPELESS 272Q INSPECTCODE 257Q INSPECT/BITMAP 241Q INSPECT/HARRAYP 226Q INSPECT/ARRAY 207Q INSPECT/LISTP 142Q ERROR 100Q \APPLYINSPECTMACRO 62Q INSPECT/ATOM 16Q INSPECT/DATATYPE 3 TYPENAME) (371Q PROMPTWINDOW 356Q PROMPTWINDOW 306Q \DTDSpaceBase 263Q CCODEP 247Q BITMAP 232Q HARRAYP 215Q ARRAYP 200Q LISTP 115Q FUNCTION 50Q LITATOM 22Q INSPECTMACROS) ( 366Q "Can't Inspect NIL." 136Q "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 () INSPECT/BITMAP D1 (I 1 WHERE I 0 BITMAP) e```4`dodg dgjdndhHdI  dg@gA g g@h (142Q EVAL.AS.PROCESS 121Q INSPECT/DATATYPE 102Q MENU) (133Q EDITBM 125Q CONTENTS 115Q BITMAP 106Q FIELDS 77Q InspectBitmapMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q InspectBitmapMenu 6 MENUTYPE# 2 InspectBitmapMenu) ( 26Q ((fields (QUOTE FIELDS) "Inspects the fields of the bitmap") (contents (QUOTE CONTENTS) "Edits the contents of the bitmap."))) INSPECT/DATATYPE D1 (P 1 DEC P 0 SYSREC I 2 WHERE I 1 TYPE I 0 DATUM) "oAA YhAA Y@ Yh@ IhH`h@I`hH goggggIhhhH%goggggIhohHhdddB `@YS@I Ak^dJ1KgoggggIhhhhHhdddB L Mh\Nk԰M&` o` @` ` o` h(436Q PRIN1 423Q TERPRI 414Q PRIN1 404Q PRIN1 371Q TERPRI 337Q INSPECTW.CREATE 247Q LENGTH 222Q INSPECTW.CREATE 102Q INSPECTABLEFIELDNAMES 51Q FINDSYSRECDECL 40Q FINDRECDECL 31Q SYSRECLOOK1 15Q RECLOOK) (433Q PROMPTWINDOW 420Q PROMPTWINDOW 411Q PROMPTWINDOW 401Q PROMPTWINDOW 366Q PROMPTWINDOW 307Q QUOTE 304Q INSTANCE 301Q FIELD 276Q \INSPECT.DATATYPE.RAW.FETCH 267Q LAMBDA 226Q \DTDSpaceBase 170Q QUOTE 165Q INSTANCE 162Q FIELD 157Q RECORDACCESS 150Q LAMBDA 125Q QUOTE 122Q INSTANCE 117Q FIELD 114Q RECORDACCESS 105Q LAMBDA 72Q INSPECTALLFIELDSFLG 62Q WIZARDFLG) ( 430Q "Can not inspect." 376Q "No declaration for " 273Q (FIELD INSTANCE) 200Q ((QUOTE /REPLACE) NEWVALUE) 154Q (INSTANCE FIELD NEWVALUE) 111Q (INSTANCE FIELD) 3 "System datatype. Not settable with the inspector.") INSPECTABLEFIELDNAMES D1 (I 1 TOPONLYFLG I 0 DECL) 6A,@i AHI\LdJ KhZYHXK&Z@ (63Q REMOVEDUPS 60Q RECORDFIELDNAMES 7 RECORDFIELDNAMES) NIL () REMOVEDUPS D1 (I 0 LST) @d (4 INTERSECTION) NIL () INSPECT/ARRAY D1 (P 0 FIRSTELT I 2 WHERE I 1 BEGINOFFSET I 0 ARRAY) y@ZA3@ @d @H`عdIIkH2KdJLgghddddB M Nh]Kk[N&` @` o` h(165Q PRIN1 152Q PRIN1 142Q TERPRI 107Q INSPECTW.CREATE 25Q ARRAYORIG 15Q ARRAYORIG) (162Q PROMPTWINDOW 147Q PROMPTWINDOW 137Q PROMPTWINDOW 75Q /SETA 72Q ELT 40Q MAXINSPECTARRAYLEVEL 31Q ARRAYP) ( 157Q " 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) )@ 1HId`J KhZYHXK&Z(3 PROPNAMES) (21Q SYSPROPS) () INSPECT/LISTP D1 (I 1 WHERE I 0 LST) @ g@AlH(3 SELECT.LIST.INSPECTOR) (10Q NILL) () ALISTP D1 (L (0 LST)) @HihHXNIL NIL () PROPLISTP D1 (L (0 LST)) #@dHihHlHHXNIL NIL () INSPECT/ALIST D1 (I 1 WHERE I 0 ALST) -@0@dIHhZH&JgghddddA (52Q INSPECTW.CREATE) (40Q /ASSOCPUT 35Q ASSOCGET) () ASSOCGET D1 (I 1 KEY I 0 ALST) A@NIL NIL () /ASSOCPUT D1 (I 2 VAL I 1 KEY I 0 ALST) AB@ (5 /PUTASSOC) NIL () INSPECT/PLIST D1 (I 1 WHERE I 0 PLST) -@0@dIHhZH&JgghddddA (52Q INSPECTW.CREATE) (40Q /LISTPUT 35Q LISTGET) () INSPECT/TYPERECORD D1 (I 1 WHERE I 0 X) @dA (6 INSPECT) NIL () INSPECT/AS/RECORDA0003 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) v0``AK9L dIdgdg jdndhdJ X@HA _dgdgihOM Nh]K[N&(106Q INSPECT 75Q MENU 25Q SORT) (125Q RECORD 117Q TYPERECORD 46Q CLRPROMPT 37Q INSPECT/AS/RECORDA0003 11Q USERRECLST 5 MENUTYPE#) () SELECT.LIST.INSPECTOR D1 (P 0 RECDEC I 0 LST) `o@ o@ o@ Hd%go@ oo@ hh IdJdi dg dgjdndhIdJ  (206Q MENU 121Q \APPEND2 116Q \APPEND2 104Q CONCAT 67Q CONCAT 40Q RECLOOK 25Q PROPLISTP 13Q ALISTP) (153Q DEFAULTMENUHELDFN 144Q CLRPROMPT 53Q TYPERECORD 2 MENUTYPE#) ( 77Q "Inspects the selected list as an instance of " 73Q (QUOTE INSPECT/TYPERECORD) 62Q "As a " 33Q (("As a PLIST" (QUOTE INSPECT/PLIST) "Inspects the list as a property list.")) 20Q (("As an ALIST" (QUOTE INSPECT/ALIST) "Inspects the list as a A-List")) 7 ((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") ("As a record" (QUOTE INSPECT/AS/RECORD) "Prompts further for the record type of this LIST."))) STANDARDEDITEA0001 D1 (NAME ERRORSET F 0 EXPR F 1 COMS F 2 ATM F 3 MACROY F 4 TYPE F 5 IFCHANGEDFN) PQRTU ci(10Q EDITE) 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 STANDARDEDITEA0001 5 EDITMODE) (54Q EDITMODE 44Q ERROR 35Q INTERNAL 13Q EDITMODE 2 STANDARD) ( 32Q (STANDARDEDITEA0001)) NTHTOPLEVELELT D1 (I 1 N I 0 LST) %Adg@ g@`k @A (41Q NTH 33Q NTH 13Q LAST) (26Q MAXINSPECTCDRLEVEL 20Q && 4 ...) () 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.") DEDITEA0001 D1 (NAME ERRORSET F 0 EXPR F 1 COMS F 2 ATM F 3 MACROY F 4 TYPE F 5 IFCHANGEDFN) PQRTU ci(10Q EDITE) 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 DEDITEA0001 5 EDITMODE) (54Q EDITMODE 44Q ERROR 35Q INTERNAL 13Q EDITMODE 2 DISPLAY) ( 32Q (DEDITEA0001)) FINDRECDECL D1 (P 1 DECL P 0 TYPENAME I 0 DATUM)  @d X Y @ HI(26Q TYPENAME 17Q RECLOOK 13Q TYPENAME) NIL () FINDSYSRECDECL D1 (P 1 DECL P 0 TYPENAME I 0 DATUM)  @ Xd Y @ HI(23Q TYPENAME 14Q SYSRECLOOK1 6 TYPENAME) NIL () \INSPECTEDITE D1 (I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR) @dd ABCD (21Q \BEFOREINSPECTEDITE 10Q INSPECT) NIL () INSPECT/ATOM D1 (P 1 TYPETOINSPECT P 0 ASPECTS I 2 WHERE I 1 ALWAYSASKFLG I 0 ATM) Z@hdg !@ gH@ gHH@ogH @-lgH XH` @` o` hHo@- HHgg@AH Yddg```0`dodg dgjdndhdJ  dgg@h g3g@ddi3 g@hhBddi3 gBhh g@B g@ddi3 g@hIddi3 gIhh (527Q EVAL.AS.PROCESS 450Q INSPECTCODE 435Q EVAL.AS.PROCESS 345Q EVAL.AS.PROCESS 324Q MENU 205Q SELECT.ATOM.ASPECT 160Q INSPECT 142Q PRIN1 127Q PRIN1 117Q TERPRI 104Q REMOVE 65Q MEMB 32Q NONSYSPROPNAMES 17Q CCODEP 10Q TYPESOF) (514Q QUOTE 472Q QUOTE 454Q EDITDEF 441Q InspectCode 421Q QUOTE 376Q QUOTE 357Q INSPECT/PROPLIST 351Q INSPECT 336Q EDITP 330Q EDITP 321Q InspectPropsMenu 272Q DEFAULTMENUHELDFN 263Q CLRPROMPT 246Q MENUTYPE# 241Q InspectPropsMenu 234Q MENUTYPE# 230Q InspectPropsMenu 217Q PROPS 176Q PROPS 171Q PROPS 137Q PROMPTWINDOW 124Q PROMPTWINDOW 114Q PROMPTWINDOW 100Q VARS 61Q VARS 36Q PROPS 23Q InspectCode 5 ?) ( 254Q ((EDITP (QUOTE EDITP) "Calls EDITP on the atom.") ("InspectProps" (QUOTE INSPECT) "Inspects the property list with an inspect window.")) 151Q (VARS) 134Q " does not have any aspect to inspect." 55Q (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 3 PROC P 2 CODEBASE P 1 FRAME P 0 EDITOR I 2 WINDOW I 1 STKP I 0 ATM) c@ 1Hdhg9A@ Yj@ kIkIZ@J hddkI BB .[@kHH@h (140Q PROCESS.APPLY 116Q \INSUREWINDOW 107Q INSPECTCODE 73Q MAKE-COMPILED-CLOSURE 46Q \GET-COMPILED-CODE-BASE 32Q INSPECTCODE 3 SELECT.FNS.EDITOR) (16Q INSPECTCODE) () 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 INSPECTCODE) "Shows the compiled code."))) INSPECTCODE D1 (P 0 WINDOW I 5 CODEPRINTER I 4 PC I 3 RADIX I 2 LVFLG I 1 WHERE I 0 FN) ag @ABCDE @ o@ Ann@@o Hg@ Hgg Hgg Hgg H (136Q \INSPECT/CODE/RESHAPEFN 132Q PUTWINDOWPROP 120Q PUTWINDOWPROP 106Q PUTWINDOWPROP 74Q PUTWINDOWPROP 61Q DECODE.WINDOW.ARG 56Q CONCAT 36Q ERROR 25Q CCODEP 20Q \TEDIT.INSPECTCODE 5 \DEFINEDP) (127Q SCROLLBYREPAINTFN 124Q SCROLLFN 115Q \INSPECT/CODE/RESHAPEFN 112Q RESHAPEFN 103Q \INSPECT/CODE/REPAINTFN 100Q REPAINTFN 70Q DATUM 2 OPENTEXTSTREAM) ( 53Q " Code Window" 32Q "Not a compiled function") \TEDIT.INSPECTCODE D1 (P 2 SEL P 1 WINDOW P 0 STREAM I 5 CODEPRINTER I 4 PC I 3 RADIX I 2 LVFLG I 1 WHERE I 0 FN) gg AEg@BCHhDlKHAnn@l@ o@Doo@ Yhdo XD(dok ZHJldټkLLkjg H g Igg @(223Q PUTWINDOWPROP 210Q DEFINEDP 201Q TEDIT.NORMALIZECARET 174Q TEDIT.SETSEL 145Q TEDIT.FIND 130Q OPENTEXTSTREAM 115Q DECODE.WINDOW.ARG 112Q CONCAT 60Q CCODEP 10Q OPENSTREAM) (220Q TEXTICON 215Q ICONFN 205Q TEXTICON 171Q LEFT 21Q PRINTCODE 5 BOTH 2 {NODIRCORE}) ( 141Q "----------" 124Q (READONLY T PROMPTWINDOW DON'T) 102Q "CCODEP named " 75Q "Code for frame " 65Q "Code for ") \INSPECT/CODE/RESHAPEFN D1 (P 2 BOTTOM P 1 WHEIGHT P 0 FONT I 2 OLDREGION I 1 OLDIMAGE I 0 WIN) R@ ( !@gj@g YHk @ @gjh@ HZ@g IJh h(116Q PUTWINDOWPROP 103Q GETWINDOWPROP 64Q DSPYPOSITION 52Q \INSPECT/CODE/REPAINTFN 46Q PUTWINDOWPROP 30Q GETWINDOWPROP 3 \INSUREWINDOW) (100Q WIDTH 70Q FONTDESCRIPTOR 56Q EXTENT 35Q FONTDESCRIPTOR 25Q HEIGHT 20Q REGIONUPPERLEFT) () \INSPECT/CODE/REPAINTFN D1 (P 0 UPPERLEFT I 0 WIN) #@g HH@ @g hl@ h(37Q PRINTCODE 30Q GETWINDOWUSERPROP 21Q MOVETO 6 GETWINDOWUSERPROP) (25Q DATUM 3 REGIONUPPERLEFT) () 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.") HARRAYKEYSA0001 D1 (L (1 HASHITEM 0 HASHEDVALUE) F 0 ITEMLST) APcNIL NIL () HARRAYKEYS D1 (P 0 ITEMLST I 0 HARRAY) @g H(11Q MAPHASH) (6 HARRAYKEYSA0001) () INSPECTW.GETHASH D1 (L (1 ITEM 0 HARRAY)) A@NIL NIL () INSPECTW.PUTHASH D1 (I 2 VALUE I 1 ITEM I 0 HARRAY) AB@ (5 /PUTHASH) NIL () RDTBL\NONOTHERCODES D1 (P 1 CH I 0 RT) ,lj2IdHJ@ gIK Lh[IkYL&(20Q GETSYNTAX) (23Q OTHER) () GETSYNTAXPROP D1 (I 1 CH I 0 RDTBL) A@ (4 GETSYNTAX) NIL () SETSYNTAXPROP D1 (I 2 CLASS I 1 CH I 0 RDTBL) AB@ (5 SETSYNTAX) NIL () GETTTBLPROP D1 (I 1 PROP I 0 TTBL) Ad3h@ g$AdgdgdgdgdgA@ gAdgdgdgAh@ ggh@ Adgg@ gg@ Adg@ g@ (235Q GETECHOMODE 222Q GETRAISE 205Q GETCONTROL 167Q GETDELETECONTROL 147Q DELETECONTROL 131Q DELETECONTROL 67Q GETSYNTAX 11Q ECHOCONTROL) (226Q ECHOMODE 213Q RAISE 177Q CONTROL 172Q ECHO 163Q ECHO 155Q ECHODELS? 142Q LINEDELETE 135Q LINEDELETESTR 120Q EMPTYCHDEL 112Q POSTCHDEL 104Q NTHCHDEL 74Q 1STCHDEL 57Q EOL 51Q CTRLV 43Q RETYPE 34Q LINEDELETE 25Q WORDDELETE 15Q CHARDELETE) () SETTTBLPROP D1 (I 2 NEWVALUE I 1 PROP I 0 TTBL) Ad3B@ g$AgAgAgAgAdgBA@ gAdgdgdgAB@ ggB@ AdgBggh@ gB@ AdgB@ gB@ (243Q ECHOMODE 227Q RAISE 211Q CONTROL 176Q DELETECONTROL 147Q DELETECONTROL 131Q DELETECONTROL 70Q SETSYNTAX 11Q ECHOCONTROL) (233Q ECHOMODE 217Q RAISE 202Q CONTROL 171Q NOECHO 165Q ECHO 155Q ECHODELS? 142Q LINEDELETE 135Q LINEDELETESTR 120Q EMPTYCHDEL 112Q POSTCHDEL 104Q NTHCHDEL 74Q 1STCHDEL 57Q EOL 50Q CTRLV 42Q RETYPE 33Q LINEDELETE 24Q WORDDELETE 15Q CHARDELETE) () INSPECT/AS/BLOCKRECORDA0002 D1 (I 0 ITEM) o@ (7 PROMPTPRINT) NIL ( 3 "Will inspect the list as if it were a ") INSPECT/AS/BLOCKRECORD D1 (P 0 RECNAME I 2 CHOICES I 1 WHERE I 0 INSTANCE) [ B!b` o` @` `dBdgdg jdndhdI X@HA (130Q INSPECT 117Q MENU 43Q PRIN1 34Q PRIN1 22Q TERPRI 10Q LIST-ALL-BLOCKRECORDS) (70Q CLRPROMPT 61Q INSPECT/AS/BLOCKRECORDA0002 47Q MENUTYPE# 40Q PROMPTWINDOW 31Q PROMPTWINDOW 17Q PROMPTWINDOW) ( 26Q "Can't Inspect ") INSPECT/TYPELESS D1 (P 1 TRLR P 0 HDR I 1 WHERE I 0 ITEM) `0@djRl@I@mX ?H nU5Hj-HdkZJY I nU@AHHl @A (135Q INSPECT/AS/BLOCKRECORD 127Q INSPECT/HUNK 73Q \VALIDADDRESSP 31Q \VALIDADDRESSP) NIL () LIST-ALL-BLOCKRECORDS D1 NIL +`1HIdgJ KhZYHXK&ZNIL (21Q BLOCKRECORD 2 USERRECLST) () INSPECT/HUNK D1 (P 1 BLOCKRECS P 0 ELTSPEC I 3 SIZE I 2 GCTYPE I 1 WHERE I 0 DATUM) @Bdl@ A kKo@CHkd``j2MdL{NH`H`hohdddA h`Yo``dJdi dg dgjdndhdK Xdgr@AI _OOh_Mk]pO&_(262Q INSPECT/AS/BLOCKRECORD 241Q MENU 146Q LIST-ALL-BLOCKRECORDS 135Q INSPECTW.CREATE 21Q INSPECTCODE 15Q INSPECT/MAKE/CCODEP) (247Q BLOCKRECORD 212Q DEFAULTMENUHELDFN 203Q CLRPROMPT 164Q INSPECT.HUNK.COMMANDS 157Q INSPECT.HUNK.COMMANDS 142Q MENUTYPE# 114Q WIZARDFLG 103Q WIZARDFLG 60Q MAXINSPECTARRAYLEVEL 52Q MAXINSPECTARRAYLEVEL) ( 154Q ("As BLOCKRECORD" (QUOTE BLOCKRECORD)) 124Q "Cannot set fields in system block data" 32Q (40Q \INSPECT.FETCH.PTR \INSPECT.STORE.PTR)) \INSPECT.DATATYPE.RAW.FETCH D1 (I 2 DESCRS I 1 FIELD I 0 INSTANCE) BA @ (11Q FETCHFIELD 4 NTH) NIL () \INSPECT.FETCH.8 D1 (I 1 FIELD I 0 INSTANCE) @ANIL NIL () \INSPECT.FETCH.32 D1 (L (1 FIELD 0 INSTANCE)) @ANIL NIL () \INSPECT.FETCH.CHAR D1 (I 1 FIELD I 0 INSTANCE) @A (5 CHARACTER) NIL () \INSPECT.FETCH.FATCHAR D1 (I 1 FIELD I 0 INSTANCE) @A (7 CHARACTER) NIL () \INSPECT.FETCH.PTR D1 (L (1 FIELD 0 INSTANCE)) @ANIL NIL () \INSPECT.STORE.8 D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) g@A@Ah @AB(17Q UNDOSAVE) (2 \INSPECT.STORE.8) () \INSPECT.STORE.16 D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) g@A@Ah @ABB(21Q UNDOSAVE) (2 \INSPECT.STORE.16) () \INSPECT.STORE.32 D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) g@A@A h @ABB(21Q UNDOSAVE 11Q \INSPECT.FETCH.32) (2 \INSPECT.STORE.32) () \INSPECT.STORE.CHAR D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) g@A@Ah @AB (25Q CHARCODE.DECODE 17Q UNDOSAVE) (2 \INSPECT.STORE.8) () \INSPECT.STORE.FATCHAR D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) $g@A@Ah @AB HIJJ(27Q CHARCODE.DECODE 21Q UNDOSAVE) (2 \INSPECT.STORE.16) () \INSPECT.STORE.PTR D1 (I 2 NEWVALUE I 1 FIELD I 0 INSTANCE) g@A@Ah @ABB(21Q UNDOSAVE) (2 \INSPECT.STORE.PTR) () INSPECT/MAKE/CCODEP D1 (I 0 CODE) @ (3 MAKE-COMPILED-CLOSURE) NIL () STACKFRAMEPROPPRINTFN D1 (L (1 DATUM 0 PROP)) @ A@h@NIL NIL () STACKFRAMEVALUECOMMANDFN D1 (I 3 WINDOW I 2 DATUM I 1 PROP I 0 VALUE) A @ABC @BC (24Q INSPECT/AS/FUNCTION 12Q DEFAULT.INSPECTW.VALUECOMMANDFN) NIL () 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) 2@dAk2HJJ0KAi dILNMh_M&O HIkԹi @ @ oDAOlO O _Ok2O"dO O$_OhOOkCO*RO0@ !OoOo A gO" O__(O&O(h_&_$O"k_"O(&_&_6O.O,O6(OO.@O _O6O.h_4O2O4h_2_0O.k_.O*_*lO4&_2(375Q STKARG 276Q PACK* 261Q PACK* 235Q STKARGNAME 153Q SMARTARGLIST 145Q CCODEP 117Q STKNAME 113Q STKNARGS 107Q STKNARGS 71Q \NCONC2 32Q PROPERTIES.FROM.FRAMESPEC) (271Q *var*) ( 256Q "*" 247Q "*" 123Q "") PROPERTIES.FROM.FRAMESPEC.LOTS D1 (I 0 POS) @i (4 PROPERTIES.FROM.FRAMESPEC) NIL () WINDOWTITLE2 D1 (I 1 WINDOW I 0 DATUM) A ((3 \INSUREWINDOW) NIL () NEWSTKNPVARS D1 (I 0 POS) @i @ (10Q STKNARGS 4 STKNARGS) 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 () \RELEASEWINDOWSTKDATUM D1 (P 1 STKPTR P 0 X I 0 WINDOW) *@g Xd HdI H(41Q RELSTK 21Q RELSTK 11Q GETWINDOWUSERPROP) (6 DATUM) () BTITEMWINDOWCLOSEFN D1 (I 0 W) @ @g (12Q PUTWINDOWPROP 3 \RELEASEWINDOWSTKDATUM) (7 SELECTABLEITEMS) () (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) (FNS \ITEM.WINDOW.COPY.HANDLER \ITEMW.FLIPCOPY BKSYSBUF.GENERAL) (RECORDS SELECTABLEITEM) (VARS ( MAXINSPECTARRAYLEVEL 300) (MAXINSPECTCDRLEVEL 50) MinSpaceBetweenProperyAndValue MaxInspectorPropertyValueWidth MaxValueLeftMargin PropertyLeftMargin)) (COMS (* "functions for the inspector") (FNS INSPECT \APPLYINSPECTMACRO INSPECT/BITMAP INSPECT/DATATYPE INSPECTABLEFIELDNAMES REMOVEDUPS INSPECT/ARRAY INSPECT/TOP/LEVEL/LIST INSPECT/PROPLIST NONSYSPROPNAMES INSPECT/LISTP ALISTP PROPLISTP INSPECT/ALIST ASSOCGET /ASSOCPUT INSPECT/PLIST INSPECT/TYPERECORD INSPECT/AS/RECORD SELECT.LIST.INSPECTOR STANDARDEDITE NTHTOPLEVELELT SETNTHTOPLEVELELT DEDITE FINDRECDECL FINDSYSRECDECL \INSPECTEDITE) (GLOBALVARS INSPECTMACROS INSPECTALLFIELDSFLG SetPropertyMenu SetStackMenu InspectMenu PropertyLeftMargin MaxValueLeftMargin INSPECTPRINTLEVEL InspectBitmapMenu ItemWCommandMenu InspectPropsMenu MAXINSPECTARRAYLEVEL MAXINSPECTCDRLEVEL MaxInspectorWindowWidth MaxInspectorWindowHeight INSPECT.HUNK.COMMANDS WIZARDFLG USERRECLST SYSPROPS IT MinSpaceBetweenProperyAndValue MaxInspectorPropertyValueWidth) (INITVARS (INSPECTALLFIELDSFLG T) ( MaxInspectorWindowWidth 330) (MaxInspectorWindowHeight 606)) (VARS INSPECTPRINTLEVEL)) (COMS (* "Atom inspector") (FNS INSPECT/ATOM SELECT.ATOM.ASPECT INSPECT/AS/FUNCTION SELECT.FNS.EDITOR)) (COMS ( * "Compiled code inspector") (FNS INSPECTCODE \TEDIT.INSPECTCODE \INSPECT/CODE/RESHAPEFN \INSPECT/CODE/REPAINTFN)) (COMS (* "Hash table inspector") (FNS INSPECT/HARRAYP HARRAYKEYS INSPECTW.GETHASH INSPECTW.PUTHASH)) (COMS (* "Readtable, termtable inspectors") (FNS RDTBL\NONOTHERCODES GETSYNTAXPROP SETSYNTAXPROP GETTTBLPROP SETTTBLPROP) (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)))) (COMS (* "Hunk inspector") (FNS INSPECT/AS/BLOCKRECORD INSPECT/TYPELESS LIST-ALL-BLOCKRECORDS INSPECT/HUNK \INSPECT.DATATYPE.RAW.FETCH \INSPECT.FETCH.8 \INSPECT.FETCH.32 \INSPECT.FETCH.CHAR \INSPECT.FETCH.FATCHAR \INSPECT.FETCH.PTR \INSPECT.STORE.8 \INSPECT.STORE.16 \INSPECT.STORE.32 \INSPECT.STORE.CHAR \INSPECT.STORE.FATCHAR \INSPECT.STORE.PTR INSPECT/MAKE/CCODEP) (INITVARS (INSPECT.HUNK.COMMANDS (QUOTE (("As 8-bit array" (QUOTE (8 \GETBASEBYTE \INSPECT.STORE.8))) ("As 16-bit array" (QUOTE (16 \GETBASE \INSPECT.STORE.16))) ("As 32-bit array" ( QUOTE (32 \INSPECT.FETCH.32 \INSPECT.STORE.32))) ("As Character array" (QUOTE (8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))) ("As Fat Character array" (QUOTE (16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR)))))))) (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))))))) (RECORD SELECTABLEITEM (SELECTABLEITEMREGION COMMANDFN ITEMINFO ITEMINFOTYPE)) (RPAQQ MAXINSPECTARRAYLEVEL 300) (RPAQQ MAXINSPECTCDRLEVEL 50) (RPAQQ MinSpaceBetweenProperyAndValue 8) (RPAQQ MaxInspectorPropertyValueWidth 250) (RPAQQ MaxValueLeftMargin 250) (RPAQQ PropertyLeftMargin 2) (RPAQ? INSPECTALLFIELDSFLG T) (RPAQ? MaxInspectorWindowWidth 330) (RPAQ? MaxInspectorWindowHeight 606) (RPAQQ INSPECTPRINTLEVEL (2 . 5)) (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? INSPECT.HUNK.COMMANDS (QUOTE (("As 8-bit array" (QUOTE (8 \GETBASEBYTE \INSPECT.STORE.8))) ( "As 16-bit array" (QUOTE (16 \GETBASE \INSPECT.STORE.16))) ("As 32-bit array" (QUOTE (32 \INSPECT.FETCH.32 \INSPECT.STORE.32))) ("As Character array" (QUOTE (8 \INSPECT.FETCH.CHAR \INSPECT.STORE.CHAR))) ("As Fat Character array" (QUOTE (16 \INSPECT.FETCH.FATCHAR \INSPECT.STORE.FATCHAR)))))) (MOVD? (QUOTE NEWSTKNPVARS) (QUOTE STKNPVARS)) (MOVD? (QUOTE EDITE) (QUOTE \BEFOREINSPECTEDITE)) (MOVD (QUOTE \INSPECTEDITE) (QUOTE EDITE)) (PUTPROPS INSPECT COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL