2dcfac5350
* TEXTOFD: Property OBJECTBYTE returned instead of image objects This allows COMPARETEXT to work on TEDIT files * ATBL: Default reader environment uses *DEFAULT-EXTERNALFORMAT* instead of :XCCS constant * CMLEXEC: Fix FILETYPE property It had CL:COMPILE-FILE, but the directory had LCOMs. Changed to :FAKE-COMPILE-FILE. * FILEIO: single place for EOL specification Now only in SETFILEINFO, not separately in \DO.PARAMS.AT.OPEN * WINDOWOBJ: COPYINSERT now uniformly allows lists of objects It was incomplete. * COMPARETEXT: Now works for TEDIT files * EXAMINEDEFS: side-by-side attached SEDIT windows for comparing alternative definitions * OBJECTWINDOW: container for arbitrary image objects
20 lines
4.3 KiB
Plaintext
20 lines
4.3 KiB
Plaintext
Medley EXAMINEDEFS2
|
||
|
||
4
|
||
|
||
1
|
||
|
||
EXAMINEDEFS
|
||
1
|
||
|
||
4
|
||
|
||
By:
|
||
Ron Kaplan
|
||
This document edited on
|
||
December 20, 2021
|
||
|
||
EXAMINEDEFS brings up side-by-side SEDIT windows for comparison of the definitions of NAME as TYPE from sources SOURCE1 and SOURCE2.
|
||
(EXAMINEDEFS NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION) [Function]
|
||
This allows for examination--but not editing--of the definitions: The structures shown in SEDIT are copies of the definitions that GETDEF obtains from the sources and so any changes in either SEDIT will have no lasting effect. A separate SEDIT session with a particular definition (maybe different from either of the sources) can be used in parallelI for edits guided by the separate examination.
|
||
If SOURCE1 or SOURCE2 is a list and not a GETDEF source specification, then a copy of that structure will be taken as the definition to be shown.
|
||
If a region REGION is provided, it is used as the initial suggestion for the region that the side-by-side windows will share. TITLE1 and TITLE2 if provided are used to override the default titles of the SEDIT windows. The windows are attached, in that they move, reshape, and close together but scroll independently.
|
||
The Compare command of the COMPARESOURCES browser uses EXAMINEDEFS to drill down on differences that a source-comparison has identified.
|
||
|
||
(EXAMINEDEFS-REGION WIDTH HEIGHT) [Function]
|
||
EXAMINEDEFS-REGION is a convenience function that prompts the user for a region of initial WIDTH and HEIGHT whose upper-left corner is at the original position of the mouse \ with the mouse initially positioned at the lower-right corner.
|
||
(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))))) 4 <01> <01> 4 <01> <01> . <01> . <00> <00>8 . <00> <00>8 J <01> <01> PAGEHEADING RUNNINGHEAD
|
||
TIMESROMAN $ TERMINAL MODERN
|
||
MODERN MODERN
|
||
MODERN
|
||
HRULE.GETFN HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN
|
||
HRULE.GETFN MODERN HRULE.GETFN MODERN . @ <00> 7 <00> b <00> < m G ! I <00> E Yz<59> |