Comparison tools: Cosmetic fixes, a few glitches
This commit is contained in:
rmkaplan
@@ -1,12 +1,12 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
|
||||
(FILECREATED "30-Jan-2022 09:03:52"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>comparetext.;112 47459
|
||||
(FILECREATED "19-Feb-2022 12:01:45"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>comparetext.;115 46109
|
||||
|
||||
:CHANGES-TO (FNS COMPARETEXT.TEXTOBJ)
|
||||
:CHANGES-TO (FNS COMPARETEXT.WINDOW)
|
||||
|
||||
:PREVIOUS-DATE "28-Jan-2022 17:12:30"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>comparetext.;110)
|
||||
:PREVIOUS-DATE "18-Feb-2022 17:05:22"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>comparetext.;114)
|
||||
|
||||
|
||||
(* ; "
|
||||
@@ -58,7 +58,9 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
|
||||
HASH.TYPE REGION FILELABELS TITLE])
|
||||
|
||||
(COMPARETEXT.WINDOW
|
||||
[LAMBDA (GRAPH REGION TITLE) (* ; "Edited 23-Jan-2022 18:18 by rmk")
|
||||
[LAMBDA (GRAPH REGION TITLE) (* ; "Edited 19-Feb-2022 12:01 by rmk")
|
||||
(* ; "Edited 2-Feb-2022 17:29 by rmk")
|
||||
(* ; "Edited 23-Jan-2022 18:18 by rmk")
|
||||
(* ; "Edited 12-Jan-2022 10:06 by rmk")
|
||||
(* ; "Edited 22-Dec-2021 15:51 by rmk")
|
||||
|
||||
@@ -87,13 +89,7 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
|
||||
OF REGION)
|
||||
(IQUOTIENT WIDTH 2))
|
||||
(FETCH (POSITION YCOORD) OF REGION))
|
||||
ELSE (CLEARW (GETPROMPTWINDOW WINDOW))
|
||||
(printout (GETPROMPTWINDOW WINDOW)
|
||||
"Please specify a region for the comparison graph" T)
|
||||
|
||||
(* ;; "I don't know why the graphregion doesn't include the last line")
|
||||
|
||||
(RELCREATEREGION WIDTH HEIGHT 'RIGHT 'TOP REGION)))
|
||||
ELSE (RELCREATEREGION WIDTH HEIGHT 'RIGHT 'TOP REGION)))
|
||||
[SETQ WINDOW (CREATEW REGION (OR TITLE (CONCAT "Compare text" (CL:IF FILEPREFIX
|
||||
(CONCAT " of " FILEPREFIX)
|
||||
"")
|
||||
@@ -111,26 +107,11 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
|
||||
(CL:WHEN (EQ WIDTH (FETCH (REGION WIDTH) OF (WINDOWREGION WINDOW)))
|
||||
(WINDOWPROP WINDOW 'MAXSIZE (CONS WIDTH MAX.SMALLP)))
|
||||
(GETPROMPTWINDOW WINDOW)
|
||||
[WINDOWADDPROP WINDOW 'CLOSEFN (FUNCTION (LAMBDA (W)
|
||||
(LET (TOBJ TWINDOW)
|
||||
(CL:WHEN (AND (SETQ TOBJ (WINDOWPROP
|
||||
W
|
||||
'COL1TEXTOBJ))
|
||||
(SETQ TWINDOW
|
||||
(WFROMDS (TEXTSTREAM TOBJ)))
|
||||
(OPENWP TWINDOW))
|
||||
(CLOSEW TWINDOW))
|
||||
(CL:WHEN (AND (SETQ TOBJ (WINDOWPROP
|
||||
W
|
||||
'COL2TEXTOBJ))
|
||||
(SETQ TWINDOW
|
||||
(WFROMDS (TEXTSTREAM TOBJ)))
|
||||
(OPENWP TWINDOW))
|
||||
(CLOSEW TWINDOW]
|
||||
WINDOW])
|
||||
|
||||
(COMPARETEXT.TEXTOBJ
|
||||
[LAMBDA (NODE WINDOW INCOL1) (* ; "Edited 30-Jan-2022 09:03 by rmk")
|
||||
[LAMBDA (NODE WINDOW INCOL1) (* ; "Edited 18-Feb-2022 17:05 by rmk")
|
||||
(* ; "Edited 30-Jan-2022 09:03 by rmk")
|
||||
(* ; "Edited 28-Jan-2022 22:37 by rmk")
|
||||
|
||||
(* ;; "Returns the text object for the chunk column in the graphwindow WINDOW, on the left if INCOL1. If the windows are automatic, they are lined up under the middle of WINDOW.")
|
||||
@@ -149,7 +130,7 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
|
||||
-1
|
||||
1))
|
||||
`(,WINDOW BOTTOM -2)
|
||||
T))
|
||||
NIL))
|
||||
(SETQ REGION (CL:IF COMPARETEXT.AUTOTEDIT
|
||||
(RELCREATEREGION REGIONARGS)
|
||||
(RELGETREGION REGIONARGS)))
|
||||
@@ -755,12 +736,12 @@ Copyright (c) 1984-1985, 1993, 1998 by Xerox Corporation.
|
||||
)
|
||||
(PUTPROPS COMPARETEXT COPYRIGHT ("Xerox Corporation" 1984 1985 1993 1998))
|
||||
(DECLARE%: DONTCOPY
|
||||
(FILEMAP (NIL (1345 40079 (COMPARETEXT 1355 . 2855) (COMPARETEXT.WINDOW 2857 . 7675) (
|
||||
COMPARETEXT.TEXTOBJ 7677 . 10274) (COMPARETEXT.SETSEL 10276 . 11066) (CHUNKNODELABEL 11068 . 12189) (
|
||||
IMCOMPARE.BOXNODE 12191 . 12958) (IMCOMPARE.CHUNKS 12960 . 17336) (IMCOMPARE.COLLECT.HASH.CHUNKS 17338
|
||||
. 20255) (IMCOMPARE.DISPLAYGRAPH 20257 . 28100) (IMCOMPARE.HASH 28102 . 32289) (
|
||||
IMCOMPARE.MERGE.CONNECTED.CHUNKS 32291 . 35787) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 35789 . 37744) (
|
||||
IMCOMPARE.SHOW.DIST 37746 . 38192) (IMCOMPARE.UPDATE.SYMBOL.TABLE 38194 . 40077)) (40080 46237 (
|
||||
IMCOMPARE.LEFTBUTTONFN 40090 . 42667) (IMCOMPARE.MIDDLEBUTTONFN 42669 . 45785) (IMCOMPARE.COPYBUTTONFN
|
||||
45787 . 46235)) (46290 46981 (TAIL1 46300 . 46654) (TAIL2 46656 . 46979)))))
|
||||
(FILEMAP (NIL (1344 38729 (COMPARETEXT 1354 . 2854) (COMPARETEXT.WINDOW 2856 . 6214) (
|
||||
COMPARETEXT.TEXTOBJ 6216 . 8924) (COMPARETEXT.SETSEL 8926 . 9716) (CHUNKNODELABEL 9718 . 10839) (
|
||||
IMCOMPARE.BOXNODE 10841 . 11608) (IMCOMPARE.CHUNKS 11610 . 15986) (IMCOMPARE.COLLECT.HASH.CHUNKS 15988
|
||||
. 18905) (IMCOMPARE.DISPLAYGRAPH 18907 . 26750) (IMCOMPARE.HASH 26752 . 30939) (
|
||||
IMCOMPARE.MERGE.CONNECTED.CHUNKS 30941 . 34437) (IMCOMPARE.MERGE.UNCONNECTED.CHUNKS 34439 . 36394) (
|
||||
IMCOMPARE.SHOW.DIST 36396 . 36842) (IMCOMPARE.UPDATE.SYMBOL.TABLE 36844 . 38727)) (38730 44887 (
|
||||
IMCOMPARE.LEFTBUTTONFN 38740 . 41317) (IMCOMPARE.MIDDLEBUTTONFN 41319 . 44435) (IMCOMPARE.COPYBUTTONFN
|
||||
44437 . 44885)) (44940 45631 (TAIL1 44950 . 45304) (TAIL2 45306 . 45629)))))
|
||||
STOP
|
||||
|
||||
Reference in New Issue
Block a user