XEROX INSPECTCODE-TEDIT 2 4 1 INSPECTCODE-TEDIT 1 4 By: Matt Heffron (EC.Heffron@USC-ECL.ARPA) INSPECTCODE-TEDIT redefines INSPECTCODE to display faster and to have some extended capabilities when the TEDIT and GRAPHCALLS packages are loaded (i.e. it uses TEDIT and GRAPHCALLS). If TEDIT is not defined (i.e. (FGETD 'TEDIT)=NIL), then the standard INSPECTCODE will be used. If TEDIT is loaded, then a TEDIT window will be opened onto the PRINTCODE of the specified function. It will be read-only, and will have a special INSPECTCODE menu for LEFT or MIDDLE buttoning in the titlebar. All of the options, except for Quit, in this menu use the current selection in the window. You make selections with the mouse buttons in the standard TEDIT ways. The options in the INSPECTCODE titlebar menu are: ÿÿïfÿ GraphCalls If the GRAPHCALLS package is loaded, then calls GRAPHCALLS on the current selection. ÿÿïfÿ InspectCode Opens a new INSPECTCODE window on the current selection. ÿÿïfÿ Inspect Does an INSPECT on the value of the current selection. This item has SUBITEMS, (see below). ÿÿïfÿ Pretty Print Value Prompts for region to open a window, and prettyprints the value of the current selection in it. This item has SUBITEMS, (see below). ÿÿïfÿ Quit Closes this window and kills the associated TEDIT process. (Closing the window with the WindowMenu, or by calling CLOSEW on it does the same thing.) The Inspect and Pretty Print Value menu options have the following SUBITEMS which affect how the value of the current selection is determined: ÿÿïfÿ Freely The value of the current selection is determined by any binding that a free-reference from the INSPECTCODE window menu handling code (i.e by (EVALV selection)). This is the default behavior when a menu selection is made directly from the titlebar menu without using the SUBITEMS menu. ÿÿïfÿ Globally The value of the current selection is determined by its top level (Global) binding. ÿÿïfÿ In Process Context The value of the current selection is determined by its binding in the context of a specified process. A menu of all current processes will be brought up to allow you to specify a process. INSPECTCODE-TEDIT also defines the LISPXMACRO IC which INSPECTCODE's its argument. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC)) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC)) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))(È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEAD(È MODERN MODERNLOGOMODERN MODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN ,  C #  8 K Ut       ! O…–m _ # € T¾ èˆzº