(FILECREATED "21-Apr-86 17:14:24" ("compiled on " {ERIS}SOURCES>INSPECT.;14) "18-Apr-86 18:08:41" bcompl'd in "Xerox Lisp 21-Apr-86 ..." dated "21-Apr-86 11:58:07") (FILECREATED "18-Mar-86 15:58:55" {ERIS}SOURCES>INSPECT.;14 83508 changes to: (FNS \TEDIT.INSPECTCODE) previous date: "27-Jan-86 16:09:21" {ERIS}SOURCES>INSPECT.;13) 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) 0 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  SAOOdlldW%W_@OlBH _OOOO_O_(426Q \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) (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 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* @gg @(671Q PUTWINDOWPROP 657Q PUTWINDOWPROP 644Q EXTENDREGION 605Q \NCONC2 560Q PRINTANDBOX 520Q 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) (666Q LIMIT 663Q SCROLLEXTENTUSE 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 (INSPECTW.REDISPLAYA0001) 433Q (INSPECTW.REDISPLAYA0002)) \INSPECTW.VALUE.MARGIN D1 (I 1 FONT I 0 PROPS F 0 MinSpaceBetweenProperyAndValue) @Ai dllP`d``(5 MAXSTRINGWIDTH) (34Q MaxValueLeftMargin 27Q MaxValueLeftMargin 21Q PropertyLeftMargin) () 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 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 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) @ HgHdg@id g5gI g@ @b@o @ g h@3 H`@ o @ o @ o (211Q BKSYSBUF 202Q BKSYSBUF 177Q OCTALSTRING 172Q BKSYSBUF 163Q BKSYSBUF 160Q OCTALSTRING 153Q BKSYSBUF 143Q BKSYSBUF 122Q BKSYSBUF 113Q BKSYSBUF.GENERAL 106Q BKSYSBUF 65Q BKSYSBUF.GENERAL 53Q BKSYSBUF 32Q BKSYSBUF 3 TYPENAME) (135Q \DEFPRINTFNS 117Q %) 57Q % 44Q %( 36Q LISTP 21Q LITATOM 12Q STRINGP) ( 206Q "Q)" 167Q "Q " 150Q "(\VAG2 " 103Q " . ") INSPECT D1 (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 @hB ` o` h(333Q PRIN1 320Q TERPRI 311Q INSPECT/DATATYPE 302Q INSPECT/AS/BLOCKRECORD 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) (330Q PROMPTWINDOW 315Q PROMPTWINDOW 263Q CCODEP 247Q BITMAP 232Q HARRAYP 215Q ARRAYP 200Q LISTP 115Q FUNCTION 50Q LITATOM 22Q INSPECTMACROS) ( 325Q "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/ATOM D1 (P 1 TYPETOINSPECT P 0 ASPECTS I 2 WHERE I 1 ALWAYSASKFLG I 0 ATM) B@hdg !@ gHH@ogH @-lgH XH` @` o` hHo@- HHgg@AH Ydg```0`dodg dgjdndhdJ  dgg@h g3g@ddi3 g@hhBddi3 gBhh g@ddi3 g@hIddi3 gIhh (477Q EVAL.AS.PROCESS 420Q EVAL.AS.PROCESS 330Q EVAL.AS.PROCESS 307Q MENU 172Q SELECT.ATOM.ASPECT 145Q INSPECT 127Q PRIN1 114Q PRIN1 104Q TERPRI 71Q REMOVE 52Q MEMB 17Q NONSYSPROPNAMES 10Q TYPESOF) (464Q QUOTE 442Q QUOTE 424Q EDITDEF 404Q QUOTE 361Q QUOTE 342Q INSPECT/PROPLIST 334Q INSPECT 321Q EDITP 313Q EDITP 304Q InspectPropsMenu 255Q DEFAULTMENUHELDFN 246Q CLRPROMPT 231Q MENUTYPE# 224Q InspectPropsMenu 217Q MENUTYPE# 213Q InspectPropsMenu 203Q PROPS 163Q PROPS 156Q PROPS 124Q PROMPTWINDOW 111Q PROMPTWINDOW 101Q PROMPTWINDOW 65Q VARS 46Q VARS 23Q PROPS 5 ?) ( 237Q ((EDITP (QUOTE EDITP) "Calls EDITP on the atom.") ("InspectProps" (QUOTE INSPECT) "Inspects the property list with an inspect window.")) 136Q (VARS) 121Q " does not have any aspect to inspect." 42Q (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) |@ AHdhgRA@ Yj@ kIkIZ@ldJJ dLdlChddkI BB .[@kHH@h (171Q PROCESS.APPLY 147Q \INSUREWINDOW 140Q INSPECTCODE 105Q \#BLOCKDATACELLS 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."))) 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 SYSREC P 0 DEC I 2 WHERE I 1 TYPE I 0 DATUM)  AA X$AA XiY@ X@ XiH@H`hI gogggHddi3 gHhhhI7gogggHddi3 gHhoghhoIohdddB ` o` @` ` o` h(336Q PRIN1 323Q TERPRI 314Q PRIN1 304Q PRIN1 271Q TERPRI 262Q INSPECTW.CREATE 73Q INSPECTABLEFIELDNAMES 42Q FINDSYSRECDECL 34Q FINDRECDECL 22Q SYSRECLOOK1 11Q RECLOOK) (333Q PROMPTWINDOW 320Q PROMPTWINDOW 311Q PROMPTWINDOW 301Q PROMPTWINDOW 266Q PROMPTWINDOW 222Q NEWVALUE 207Q QUOTE 171Q INSTANCE 166Q FIELD 163Q RECORDACCESS 154Q LAMBDA 131Q QUOTE 113Q INSTANCE 110Q FIELD 105Q RECORDACCESS 76Q LAMBDA 63Q INSPECTALLFIELDSFLG) ( 330Q "Can not inspect." 276Q "No declaration for " 251Q "System Datatype. Not settable with the inspector." 242Q "System datatype. Not settable with the inspector." 217Q (QUOTE /REPLACE) 160Q (INSTANCE FIELD NEWVALUE) 102Q (INSTANCE FIELD)) 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) w@XA3@ @d @ H`عdIIkH2KdJLgghddddB M Nh]Kk[N&` @` o` h(163Q PRIN1 150Q PRIN1 140Q TERPRI 105Q INSPECTW.CREATE 31Q ARRAYSIZE 25Q ARRAYORIG 15Q ARRAYORIG) (160Q PROMPTWINDOW 145Q PROMPTWINDOW 135Q PROMPTWINDOW 73Q /SETA 70Q ELT 36Q MAXINSPECTARRAYLEVEL) ( 155Q " 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/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 () 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#) () INSPECT/AS/BLOCKRECORDA0003 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) d0``1K6LdIdgdg jdndhdJ X@HA dgM Nh]\K[N&](103Q INSPECT 72Q MENU) (112Q BLOCKRECORD 43Q CLRPROMPT 34Q INSPECT/AS/BLOCKRECORDA0003 11Q USERRECLST 5 MENUTYPE#) () 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@@l @@l @@l Yhdo XD(dok ZHJldټkLLkjg H g Igg @(302Q PUTWINDOWPROP 267Q DEFINEDP 260Q TEDIT.NORMALIZECARET 253Q TEDIT.SETSEL 224Q TEDIT.FIND 207Q OPENTEXTSTREAM 174Q DECODE.WINDOW.ARG 171Q CONCAT 60Q CCODEP 10Q OPENSTREAM) (277Q TEXTICON 274Q ICONFN 264Q TEXTICON 250Q LEFT 156Q ARRAYP 150Q ARRAYP 135Q ARRAYP 127Q ARRAYP 115Q ARRAYP 107Q ARRAYP 21Q PRINTCODE 5 BOTH 2 {NODIRCORE}) ( 220Q "----------" 203Q (READONLY T PROMPTWINDOW DON'T) 103Q "CCODEP named " 76Q "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) X@ ( !@gj@g YHk @ @gjh@ HZ@g IJh h(124Q PUTWINDOWPROP 111Q GETWINDOWPROP 72Q DSPYPOSITION 60Q \INSPECT/CODE/REPAINTFN 54Q PUTWINDOWPROP 36Q GETWINDOWPROP 3 \INSUREWINDOW) (106Q WIDTH 76Q FONTDESCRIPTOR 64Q EXTENT 43Q FONTDESCRIPTOR 33Q HEIGHT 26Q REGIONUPPERLEFT 15Q \DISPLAYDATA 10Q STREAM) () \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) () 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 () PPVINWA0001 D1 (NAME ERRORSET F 0 EXP F 1 MACROY) P ci(6 PRINTDEF 3 POSITION) 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 PPVINWA0001 3 OUTPUT) (52Q OUTPUT 42Q ERROR 33Q INTERNAL 11Q OUTPUT) ( 30Q (PPVINWA0001)) \INSPECTEDITE D1 (I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR) @dd ABCD (21Q \BEFOREINSPECTEDITE 10Q INSPECT) 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) () 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 0 X I 0 WINDOW) %@g Xd Hd H(34Q 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 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 \TEDIT.INSPECTCODE \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))))))) (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 1985 1986)) NIL