(FILECREATED "28-Jun-85 18:40:39" ("compiled on " {ERIS}SOURCES>INSPECT.;11) "22-Jun-85 19:27:36" recompiled changes: BKSYSBUF.GENERAL in "INTERLISP-D 22-Jun-85 ..." dated "22-Jun-85 19:41:49") (FILECREATED "28-Jun-85 18:39:22" {ERIS}SOURCES>INSPECT.;11 81653 changes to: (FNS BKSYSBUF.GENERAL) previous date: "26-Jun-85 15:53:20" {ERIS}SOURCES>INSPECT.;10) 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 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.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 22Q SELITEM P 21Q NOWEXTENT P 20Q PROPNAME P 17Q PROP P 13Q 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 23Q MinSpaceBetweenProperyAndValue) A5@g @ @g @g @g @g V MPhddI@@A d @O hd OHlM<= =h<=&<d<I_B dh@ bh@ @ @g@g H@ @h@ @gOI2O_OFO_ @gOjdddhOOOOO_ OO o GNI@` KgOgho No^@BW& LgNOhhho^@B LgNOhhh _O_O_&d_$O"O$ O" @gg @(674Q PUTWINDOWPROP 662Q PUTWINDOWPROP 647Q EXTENDREGION 610Q \NCONC2 563Q PRINTANDBOX 523Q PRINTANDBOX 504Q INSPECTW.REDISPLAYA0001 455Q PRINTANDBOX 441Q INSPECTW.REDISPLAYA0002 324Q PUTWINDOWPROP 263Q MOVETOUPPERLEFT 260Q DSPCLIPPINGREGION 252Q PUTWINDOWPROP 247Q \INSPECT.COMPUTE.TITLE 242Q GETWINDOWUSERPROP 227Q CLEARW 223Q \ITEMW.DESELECTITEM 214Q \INSPECTW.VALUE.MARGIN 211Q DSPFONT 111Q \INSPECTW.REDISPLAYPROP 75Q \INSPECTW.REDISPLAYPROP 51Q GETWINDOWUSERPROP 42Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q INSPECTW.PROPERTIES 11Q GETWINDOWUSERPROP) (671Q LIMIT 666Q SCROLLEXTENTUSE 571Q DEFAULT.INSPECTW.VALUECOMMANDFN 531Q DEFAULT.INSPECTW.VALUECOMMANDFN 470Q PROPERTY 463Q DEFAULT.INSPECTW.PROPCOMMANDFN 452Q PropertyLeftMargin 330Q EXTENT 267Q SELECTABLEITEMS 237Q INSPECTWTITLE 233Q TITLE 46Q PROPPRINTFN 37Q VALUECOMMANDFN 30Q PROPCOMMANDFN 21Q FETCHFN 6 DATUM) ( 554Q "** error during access **" 513Q "** error during access **" 501Q (INSPECTW.REDISPLAYA0001) 436Q (INSPECTW.REDISPLAYA0002)) \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) [@ @@ @ 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) U```6`dodg dgjdndh=d= < g oi (122Q DEFAULT.INSPECTW.PROPCOMMANDFNA0006 104Q MENU) (107Q SET 101Q SetPropertyMenu 44Q DEFAULTMENUHELDFN 35Q CLRPROMPT 20Q MENUTYPE# 13Q SetPropertyMenu 6 MENUTYPE# 2 SetPropertyMenu) ( 116Q (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.@%` 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 QHh`dljgkjg@ @ Hh@ \ @g J@ IZ@ `lj>I:@g 1@g IdgIgh@l=hM`` J@ hJHh@L Y𲊰(271Q IN/ITEM? 266Q CURSORPOSITION 254Q \ITEMW.DESELECTITEM 246Q INSIDE? 163Q GETWINDOWUSERPROP 152Q GETWINDOWUSERPROP 125Q GETMOUSESTATE 121Q \ITEMW.SELECTITEM 112Q \ITEMW.DESELECTITEM 104Q GETWINDOWUSERPROP 74Q IN/ITEM? 70Q CURSORPOSITION 57Q \INSUREWINDOW 52Q TOTOPW 6 GETWINDOWUSERPROP) (243Q LASTMOUSEY 240Q LASTMOUSEX 216Q PROPERTY 174Q PROPERTY 160Q SELECTIONFN 147Q SELECTIONFN 131Q LASTMOUSEBUTTONS 101Q CURRENTITEM 45Q MIDDLE 33Q LEFT 20Q LASTMOUSEBUTTONS 3 SELECTABLEITEMS) () \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) @nAHHHHg (35Q BLTSHADE) (31Q INVERT) () 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 \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 3 IMACRO P 1 INSPECTINFO P 0 ITEMTYPE I 2 WHERE I 1 ASTYPE I 0 ITEM) @ A@AB `J*hY@HdgW@hB d>@IB [d gK@k=<oK HhKJZ@IBl=g@B Hdg@hB g@B Hdg@B g@B H@B @hB ` o` h(336Q PRIN1 323Q TERPRI 314Q INSPECT/DATATYPE 305Q INSPECT/AS/BLOCKRECORD 275Q INSPECTCODE 262Q INSPECT/BITMAP 244Q INSPECT/HARRAYP 231Q INSPECT/ARRAY 212Q INSPECT/LISTP 145Q ERROR 100Q \APPLYINSPECTMACRO 62Q INSPECT/ATOM 16Q INSPECT/DATATYPE 3 TYPENAME) (333Q PROMPTWINDOW 320Q PROMPTWINDOW 266Q CCODEP 252Q BITMAP 235Q HARRAYP 220Q ARRAYP 203Q LISTP 115Q FUNCTION 50Q LITATOM 22Q INSPECTMACROS) ( 330Q "Can't Inspect NIL." 141Q "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) H@hdg @ gHH@ogH @-lgH XH` @` o` hHo@- HHgg@AH Ydg```6`dodg dgjdndh=d= < dgg@h g3g@ddi3 g@hhBddi3 gBhh g@ddi3 g@hIddi3 gIhh (505Q EVAL.AS.PROCESS 426Q EVAL.AS.PROCESS 336Q EVAL.AS.PROCESS 315Q MENU 172Q SELECT.ATOM.ASPECT 145Q INSPECT 127Q PRIN1 114Q PRIN1 104Q TERPRI 71Q REMOVE 52Q MEMB 17Q NONSYSPROPNAMES 10Q TYPESOF) (472Q QUOTE 450Q QUOTE 432Q EDITDEF 412Q QUOTE 367Q QUOTE 350Q INSPECT/PROPLIST 342Q INSPECT 327Q EDITP 321Q EDITP 312Q 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.") (INSPECT (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 (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 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 1 SEL P 0 STREAM I 5 CODEPRINTER I 4 PC I 3 RADIX I 2 LVFLG I 1 WHERE I 0 FN) gg 1Eg@BCHhDlJHAnn@l@ o@.Doo@@l @@l @@l hdo XD'dok YHIldٻkKKkjg H @(235Q TEDIT.NORMALIZECARET 230Q TEDIT.SETSEL 201Q TEDIT.FIND 164Q OPENTEXTSTREAM 152Q DECODE.WINDOW.ARG 147Q CONCAT 60Q CCODEP 10Q OPENSTREAM) (225Q LEFT 21Q PRINTCODE 5 BOTH 2 {NODIRCORE}) ( 175Q "----------" 160Q (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) 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@ o@ Hd%go@ oo@ hh =d=<di dg dgjdndh=d= < (212Q MENU 121Q \APPEND2 116Q \APPEND2 104Q CONCAT 67Q CONCAT 40Q RECLOOK 25Q PROPLISTP 13Q ALISTP) (155Q DEFAULTMENUHELDFN 146Q 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."))) 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 @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 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) ( 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)) NIL