EXAMINEDEFS: Remove EXAMINEDEFS-REGION

Replaced by equivalent functionality in new package REGIONMANAGER

lispusers/EXAMINEDEFS

@@ -1,22 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "20-Dec-2021 11:06:33" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;7
 6367   
+
(FILECREATED "26-Dec-2021 11:01:08" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;15
 5866   
 
-      :CHANGES-TO (FNS EXAMINEDEFS)
+      :CHANGES-TO (VARS EXAMINEDEFSCOMS)
 
-      :PREVIOUS-DATE "19-Dec-2021 22:45:48" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;5)
+      :PREVIOUS-DATE "24-Dec-2021 22:40:09" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>lispusers>EXAMINEDEFS.;14)
 
 
 (PRETTYCOMPRINT EXAMINEDEFSCOMS)
 
-(RPAQQ EXAMINEDEFSCOMS
 ((FNS EXAMINEDEFS EXAMINEDEFS-REGION)
+(RPAQQ EXAMINEDEFSCOMS
 ((FNS EXAMINEDEFS)
                         (INITVARS (EXAMINEDEFS-PROCESS-LIST))))
 (DEFINEQ
 
 (EXAMINEDEFS

-  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited 20-Dec-2021 11:06 by rmk")

+  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited 24-Dec-2021 22:39 by rmk")

+                                                             (* ; "Edited 20-Dec-2021 11:06 by rmk")

 
     (* ;; "This provides for side-by-side examination of separate but presumably related expressions.  The (LISTP) expressions can be provided directly as SOURCE1 and SOURCE2 or, if NAME is given the copies of the definitions of NAME as TYPE on the two sources are examined.")

 
@@ -45,9 +46,11 @@
                       ELSEIF
 (GETDEF NAME TYPE SOURCE2)
                       ELSE
 (ERROR NAME " not found on " SOURCE2)))
          (CL:UNLESS TITLE1
-             (SETQ TITLE1 (OR SOURCE1 "File 1")))
+             (SETQ TITLE1 (OR (AND SOURCE1 (LITATOM SOURCE1))
+                              "File 1")))
          (CL:UNLESS TITLE2
-             (SETQ TITLE2 (OR SOURCE2 "File 2")))
+             (SETQ TITLE2 (OR (AND SOURCE2 (LITATOM SOURCE2))
+                              "File 2")))
          (SELECTQ (EDITMODE)
              (SEDIT:SEDIT 
                           (* ;; 
@@ -98,23 +101,9 @@
                                (MODERNWINDOW W2)))
              (PROGN (EDITE DEF1)
                     (EDITE DEF2])
-
-(EXAMINEDEFS-REGION

-  [LAMBDA (WIDTH HEIGHT)                                     (* ; "Edited 10-Dec-2021 10:15 by rmk")

-
-    (* ;; "Prompts for a WIDTH-HEIGHT region with the top-left corner positioned at the initial cursor but the cursor then moved to the bottom-right for size adjustments.  Thus the default behavior is that the upper left corner is fixed.")

-
-    (GETMOUSESTATE)
-    (LET* ((LEFT LASTMOUSEX)
-           (RIGHT (IPLUS LEFT WIDTH))
-           (TOP LASTMOUSEY)
-           (BOTTOM (IDIFFERENCE TOP HEIGHT)))
-          (\CURSORPOSITION RIGHT BOTTOM)
-          (GETREGION NIL NIL (CREATEREGION LEFT BOTTOM WIDTH HEIGHT)
-                 NIL NIL (LIST LEFT TOP RIGHT BOTTOM])
 )
 
 (RPAQ? EXAMINEDEFS-PROCESS-LIST
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (513 6305 (EXAMINEDEFS 523 . 5601) (EXAMINEDEFS-REGION 5603 . 6303)))))
+  (FILEMAP (NIL (501 5804 (EXAMINEDEFS 511 . 5802)))))
 STOP