(FILECREATED "30-Aug-85 16:14:59" ("compiled on " {DSK}<LISPFILES>MATT>INSPECTCODE-TEDIT.;15) "19-Mar-85 14:34:17" recompiled changes: INSPECTCODE.WITH.TEDIT \INSPECTCODE.WITH.TEDIT.BUILD.TITLEMENU \INSPECTCODE.WITH.TEDIT.TITLEMENUFN in "INTERLISP-D 19-Mar-85 ..." dated "19-Mar-85 14:39:37")(FILECREATED "30-Aug-85 16:14:08" {DSK}<LISPFILES>MATT>INSPECTCODE-TEDIT.;15 14984 changes to: (FNS \INSPECTCODE.WITH.TEDIT.TITLEMENUFN \INSPECTCODE.WITH.TEDIT.BUILD.TITLEMENU INSPECTCODE.WITH.TEDIT) (VARS INSPECTCODE-TEDITCOMS) (LISPXMACROS IC) previous date: "30-Aug-85 09:47:28" {DSK}<LISPFILES>MATT>INSPECTCODE-TEDIT.;14)INSPECTCODE.WITH.TEDITA0001 D1(I 0 W)     @	  É.	   (10Q DEL.PROCESS 3 \INSUREWINDOW)NIL()INSPECTCODE.WITH.TEDIT D1(P 1 OFILE P 0 WINDOW I 1 WHERE I 0 FN)  ‹  @	  ²vg  	  ²gAlAh	  
  l2Öh	  	  lÖ@o   
    g  g  g    Hg  @  ¿@hlI  ¿IHho     ¿Hg  g    ¿Hg  g    „@A
  @  @o   
    h (207Q RINGBELLS 204Q PROMPTPRINT 174Q CLRPROMPT 167Q \ORIGINAL.INSPECTCODE 160Q PUTWINDOWPROP 145Q WINDOWADDPROP 132Q TEDIT 117Q PRINTCODE 106Q PUTWINDOWPROP 73Q OPENSTREAM 57Q DECODE.WINDOW.ARG 54Q CONCAT 41Q ABS 36Q DSPLINEFEED 27Q CHARWIDTH 24Q DSPFONT 13Q \DEFINEDP 3 CCODEP)(155Q \INSPECTCODE.WITH.TEDIT.ICONFN 152Q ICONFN 142Q INSPECTCODE.WITH.TEDITA0001 137Q CLOSEFN 102Q FNNAME 70Q NEW 65Q BOTH 62Q {NODIRCORE} 10Q TEDIT)( 201Q " not compiled code" 127Q (QUITFN T TITLEMENUFN \INSPECTCODE.WITH.TEDIT.TITLEMENUFN CHARFN \INSPECTCODE.WITH.TEDIT.CHARFN NOTITLE T PROMPTWINDOW DON'T) 51Q " Code Window")\INSPECTCODE.WITH.TEDIT.BUILD.TITLEMENU D1NIL  4   `  do   ¿dg   ¿dg  ¿jdnÿdhHdI
¿   NIL(61Q \INSPECTCODE.WITH.TEDIT.TITLEMENU 26Q DEFAULTMENUHELDFN 17Q CLRPROMPT 2 MENUTYPE#)( 10Q ((GraphCalls (QUOTE GC) "Invoke GRAPHCALLS on the current selection") (InspectCode (QUOTE IC) "INSPECTCODE the current selection") (Inspect (QUOTE INSP) "INSPECT the current selection" (SUBITEMS (Freely (QUOTE INSP) "INSPECT the free-reference value of the selection") (Globally (QUOTE INSP.GLOB) "INSPECT the Global (Top Level) value of the selection") ("In Process Context" (QUOTE INSP.PROC) "INSPECT the value of the selection in a process' context"))) ("Pretty Print Value" (QUOTE PPV) "Pretty Print the value of the current selection" (SUBITEMS (Freely (QUOTE PPV) "Pretty Print the free-reference value of the selection") (Globally (QUOTE PPV.GLOB) "Pretty Print the Global (Top Level) value of the selection") ("In Process Context" (QUOTE PPV.PROC) "Pretty Print the value of the selection in a process' context"))) (Quit (QUOTE QUIT) "Terminates this INSPECTCODE")))\INSPECTCODE.WITH.TEDIT.CHARFN D1(I 1 CC I 0 W)  	   il
  h (5 BOUT)NIL()\INSPECTCODE.WITH.TEDIT.ICONFN D1(P 0 ICON I 0 W)  -  `  @g  
  g  lg  hdi  hi   @g  H  H (51Q PUTWINDOWPROP 36Q TITLEDICONW 30Q FONTCREATE 11Q GETWINDOWUSERPROP)(45Q ICON 21Q MRR 14Q HELVETICA 6 FNNAME 2 \INSPECTCODE.WITH.TEDIT.ICON.TEMPLATE)()\INSPECTCODE.WITH.TEDIT.INSP.ERROR D1(I 2 MESS3 I 1 MESS2 I 0 MESS1)       A¤@	  B¥@A
  …@AB  ¿   (33Q RINGBELLS 27Q PROMPTPRINT 20Q PROMPTPRINT 10Q PROMPTPRINT 2 CLRPROMPT)NIL()\INSPECTCODE.WITH.TEDIT.NOSELFN D1NIL        o   	     (14Q RINGBELLS 11Q PROMPTPRINT 2 CLRPROMPT)NIL( 6 "No current selection")\INSPECTCODE.WITH.TEDIT.TITLEMENUFNA0001 D1(L (2 PFORM 1 PNAME 0 PHANDLE) F 0 PROCESSLIST)    A@hPc  NILNIL()\INSPECTCODE.WITH.TEDIT.TITLEMENUFN D1(P 12Q PROC P 11Q PROCESSLIST P 10Q SELSTR P 7 INSPVAL P 6 MENUCHOICE P 5 SELLEN P 0 STREAM I 0 W) Y  g  	  ˜`  `  ð£  ¿@	  AH	    É`  	  !Nµ±#g  ð—H	  ¿±Mdjð•¿  °'lÿó²o   	  ¿H	  ¿Hjdg    ˆH	  	  _¿Ndg  ð™¿O	  ¿±Ôg  ð²g  	  ˜O	  ¿±¾o   O
  ¿±±Ng  ð¨Ndg  ð²_¿O	  ²JNg  ð²7o   	  ¿lH	  lHi
  
    ¿O
  ¹O	  I	  hddI  ¿±_O	  	  ¿±SOo   
  ¿±Fg  ð¨Ndg  ð²j¿O	  _g  ð³DNg  ð²4o   	  ¿lH	  lHi
  
    ¿O
  ºOJ	  hddJ  ¿± òO	  ¿± éONg  ð”o   ƒo   
  ¿± Ñg  ðªNg  ð´‚± Â 
g  	  ¿`  dO¿di¿dg   ¿dg  ¿jdnÿdh»dK
¿	  _µNg  ð²qo   °oO
  _g  ð³ANg  ð²3o   	  ¿lH	  lHi
  
    ¿O
  ¼OL	  hddL  ¿°/O	  °(ONg  ð”o   ƒo   Og  
    ˆo   O
  h (1125Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 1113Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 1110Q PROCESSPROP 1055Q INSPECT 1045Q PRINTDEF 1035Q POSITION 1026Q CREATEW 1020Q CLRPROMPT 1015Q GETREGION 1012Q HEIGHTIFWINDOW 1004Q WIDTHIFWINDOW 776Q PROMPTPRINT 750Q PROCESS.EVALV 722Q MENU 640Q MAP.PROCESSES 603Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 553Q INSPECT 542Q PRINTDEF 532Q POSITION 523Q CREATEW 515Q CLRPROMPT 512Q GETREGION 507Q HEIGHTIFWINDOW 501Q WIDTHIFWINDOW 473Q PROMPTPRINT 445Q GETTOPVAL 416Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 401Q INSPECT 376Q EVAL 365Q PRINTDEF 355Q POSITION 351Q EVAL 343Q CREATEW 335Q CLRPROMPT 332Q GETREGION 327Q HEIGHTIFWINDOW 321Q WIDTHIFWINDOW 313Q PROMPTPRINT 273Q BOUNDP 243Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 226Q GRAPHCALLS 220Q \DEFINEDP 200Q INSPECTCODE.WITH.TEDIT 160Q PACK* 155Q TEDIT.SEL.AS.STRING 150Q TEDIT.SETSEL 136Q TEDIT.SHOWSEL 131Q \INSPECTCODE.WITH.TEDIT.INSP.ERROR 113Q \INSPECTCODE.WITH.TEDIT.NOSELFN 76Q TEDIT.QUIT 54Q MENU 36Q TEDIT.GETSEL 27Q TEXTSTREAM 22Q \INSPECTCODE.WITH.TEDIT.BUILD.TITLEMENU 5 BOUNDP)(1105Q NAME 1065Q PPV.PROC 764Q PPV.PROC 755Q NOBIND 732Q PPV.PROC 673Q DEFAULTMENUHELDFN 664Q CLRPROMPT 644Q MENUTYPE# 635Q \INSPECTCODE.WITH.TEDIT.TITLEMENUFNA0001 620Q PPV.PROC 612Q INSP.PROC 565Q PPV.GLOB 461Q PPV.GLOB 452Q NOBIND 434Q PPV.GLOB 425Q INSP.GLOB 301Q PPV 262Q PPV 253Q INSP 215Q GRAPHCALLSW 207Q GC 170Q IC 145Q LEFT 70Q QUIT 51Q \INSPECTCODE.WITH.TEDIT.TITLEMENU 41Q SELECTION 15Q MENUTYPE# 11Q \INSPECTCODE.WITH.TEDIT.TITLEMENU 2 \INSPECTCODE.WITH.TEDIT.TITLEMENU)( 1120Q "No process selected.  Will not inspect " 1100Q " has no value to inspect in process " 1073Q " has no value to print in process " 773Q "Specify a region for the value pretty print window" 741Q "No process selected.  Will not print " 600Q " has no Global value to inspect" 573Q " has no Global value to print" 470Q "Specify a region for the value pretty print window" 413Q " has no value to inspect" 310Q "Specify a region for the value pretty print window" 236Q "The GRAPHCALLS package is not loaded.  Cannot graph " 126Q "Selection is too long (> 255 characters)")(PRETTYCOMPRINT INSPECTCODE-TEDITCOMS)(RPAQQ INSPECTCODE-TEDITCOMS ((FNS INSPECTCODE.WITH.TEDIT \INSPECTCODE.WITH.TEDIT.BUILD.TITLEMENU \INSPECTCODE.WITH.TEDIT.CHARFN \INSPECTCODE.WITH.TEDIT.ICONFN \INSPECTCODE.WITH.TEDIT.INSP.ERROR \INSPECTCODE.WITH.TEDIT.NOSELFN \INSPECTCODE.WITH.TEDIT.TITLEMENUFN) (UGLYVARS \INSPECTCODE.WITH.TEDIT.ICON.TEMPLATE) (LISPXMACROS IC) (P (if (MOVD? (QUOTE INSPECTCODE) (QUOTE \ORIGINAL.INSPECTCODE)) then (MOVD (QUOTE INSPECTCODE.WITH.TEDIT) (QUOTE INSPECTCODE)))) (PROP FILETYPE INSPECTCODE-TEDIT)))(READVARS \INSPECTCODE.WITH.TEDIT.ICON.TEMPLATE)(({ (READBITMAP) (87 91 "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@COO@@@@@F@@" "L@@@@@@@@@@@AOOON@@@@F@@" "L@@@@@@@@@@@GN@AOH@@@F@@" "L@@@@@@@@@@AO@@@CN@@@F@@" "L@@@@@@@@@@CL@@@@O@@@F@@" "L@@@@@@@@@@O@@@@@CL@@F@@" "L@@@@@@@@@AN@@@@@AN@@F@@" "L@@@@@@@@@CH@@@@@@G@@F@@" "L@@@@@@@@@C@@@@@@@C@@F@@" "L@@@@@@@@@G@@@@@@@CH@F@@" "L@@@@@@@@@N@@@@@@@AL@F@@" "L@@@@@@@@@L@@@@@@@@L@F@@" "L@@@@@@@@AL@@@@@@@@N@F@@" "L@@@@@@@@AH@@@@@@@@F@F@@" "L@@@@@@@@CH@@@@@@@@G@F@@" "L@@@@@@@@C@@@@@@@@@C@F@@" "L@@@@@@@@C@@@@@@@@@C@F@@" "L@@@@@@@@GGL@OHGO@OOHF@@" "L@@@@@@@@GLFCHNFALLAHF@@" "L@@@@@@@@GHCC@FF@LLAHF@@" "L@@@@@@@@G@@F@CF@FLAHF@@" "LBIGKMLNOO@@F@CF@FOOHF@@" "LBMDBEA@BG@@F@CF@FLAHF@@" "LBOGKMM@BG@@F@CF@FLAHF@@" "LBK@JAA@BGHCC@FF@LLAHF@@" "LBIGJALNBGLFCHNFALLAHF@@" "L@@@@@@@@GGL@OHGO@OOHF@@" "L@@@@@@@@C@@@@@@@@@C@F@@" "L@@@@@@@@C@@@@@@@@@C@F@@" "L@@@@@@@@CH@@@@@@@@G@F@@" "L@@@@@@@@AH@@@@@@@@F@F@@" "L@@@@@@@@AL@@@@@@@@N@F@@" "L@@@@@@@@@L@@@@@@@@L@F@@" "L@@@@@@@@@N@@@@@@@AL@F@@" "L@@@@@@@@@G@@@@@@@CH@F@@" "L@@@@@@@@@G@@@@@@@C@@F@@" "L@@@@@@@@@OL@@@@@@G@@F@@" "L@@@@@@@@@ON@@@@@AN@@F@@" "L@@@@@@@@AGO@@@@@CL@@F@@" "L@@@@@@@@CKCL@@@@O@@@F@@" "L@@@@@@@@GLAO@@@CN@@@F@@" "L@@@@@@@@OH@GN@AOH@@@F@@" "L@@@@@@@AO@@AOOON@@@@F@@" "L@@@@@@@FN@@@COO@@@@@F@@" "L@@@@@@@OD@@@@@@@@@@@F@@" "L@@@@@@AOH@@@@@@@@@@@F@@" "L@@@@@@COH@@@@@@@@@@@F@@" "L@@@@@@GO@@@@@@@@@@@@F@@" "L@@@@@@ON@@@@@@@@@@@@F@@" "L@@@@@AOL@@@@@@@@@@@@F@@" "L@@@@@COH@@@@@@@@@@@@F@@" "L@@@@@GO@@@@@@@@@@@@@F@@" "L@@@@@ON@@@@@@@@@@@@@F@@" "L@@@@AOL@@@@@@@@@@@@@F@@" "L@@@@COH@@@@@@@@@@@@@F@@" "L@@@@GO@@@@@@@@@@@@@@F@@" "L@@@@ON@@@@@@@@@@@@@@F@@" "L@@@AOL@@@@@@@@@@@@@@F@@" "L@@@COH@@@@@@@@@@@@@@F@@" "L@@@GO@@@@@@@@@@@@@@@F@@" "L@@@GN@@@@@@@@@@@@@@@F@@" "L@@@CL@@@@@@@@@@@@@@@F@@" "L@@@AH@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "L@@@@@@@@@@@@@@@@@@@@F@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@") } { (READBITMAP) (87 91 "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@" "OOOOOOOOOOOOOOOOOOOOON@@") } (4 5 79 18)))(ADDTOVAR LISPXMACROS (IC (APPLY (QUOTE INSPECTCODE) LISPXLINE)))(if (MOVD? (QUOTE INSPECTCODE) (QUOTE \ORIGINAL.INSPECTCODE)) then (MOVD (QUOTE INSPECTCODE.WITH.TEDIT) (QUOTE INSPECTCODE)))(PUTPROPS INSPECTCODE-TEDIT FILETYPE CLISP)(PUTPROPS INSPECTCODE-TEDIT COPYRIGHT ("Beckman Instruments, Inc." 1985))NIL