Improved reference coordinates

lispusers/REGIONMANAGER

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "27-Oct-2024 21:59:33" {WMEDLEY}<lispusers>REGIONMANAGER.;134
 41230  
+
(FILECREATED "25-Nov-2024 17:59:00" {WMEDLEY}<lispusers>REGIONMANAGER.;135
 42008  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS CLOSE-TYPED-W)
+      :CHANGES-TO (FNS \RELCREATEREGION.REF)
 
-      :PREVIOUS-DATE " 2-Nov-2023 23:48:28" {WMEDLEY}<lispusers>REGIONMANAGER.;133)
+      :PREVIOUS-DATE "27-Oct-2024 21:59:33" {WMEDLEY}<lispusers>REGIONMANAGER.;134)
 
 
 (PRETTYCOMPRINT REGIONMANAGERCOMS)
@@ -446,7 +446,8 @@
 (DEFINEQ
 
 (\RELCREATEREGION.REF

-  [LAMBDA (REF WHICH)
                                        (* ; "Edited 27-Feb-2022 08:43 by rmk")


+  [LAMBDA (REF WHICH)
                                        (* ; "Edited 25-Nov-2024 17:47 by rmk")


+                                                             (* ; "Edited 27-Feb-2022 08:43 by rmk")


                                                              (* ; "Edited 23-Jan-2022 20:20 by rmk")


                                                              (* ; "Edited  2-Jan-2022 11:01 by rmk")

 
@@ -474,6 +475,10 @@
                                                      'REGION))
                       (FETCH
 (REGION BOTTOM) OF
 (WINDOWPROP (WFROMDS T)
                                                        'REGION)))
+           ELSEIF
 (REGIONP REF)
+             THEN
 (CL:IF (EQ WHICH 'X)
+                      (FETCH
 (REGION LEFT) OF
 REF)
+                      (FETCH
 (REGION BOTTOM) OF
 REF))
            ELSEIF
 [AND (LISTP REF)
                        (SETQ ANCHOR (OR (REGIONP (CAR REF))
                                         (AND (WINDOWP (CAR REF))
@@ -510,6 +515,15 @@
                   (CL:WHEN (CADR SPEC)
                       (ADD
 VAL (CADR SPEC)))
                   VAL
+           ELSEIF
 (WINDOWP REF)
+             THEN
 (SETQ REF (WINDOWPROP REF 'REGION))
+                  (CL:IF (EQ WHICH 'X)
+                      (FETCH
 (REGION LEFT) OF
 REF)
+                      (FETCH
 (REGION BOTTOM) OF
 REF))
+           ELSEIF
 (POSITIONP REF)
+             THEN
 (CL:IF (EQ WHICH 'X)
+                      (FETCH
 (POSITION XCOORD) OF
 REF)
+                      (FETCH
 (POSITION YCOORD) OF
 REF))
            ELSE
 (\ILLEGAL.ARG REF])
 
 (\RELCREATEREGION.SIZE

@@ -732,11 +746,11 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1615 6733 (SET-TYPED-REGIONS 1625 . 3800) (GRAB-TYPED-REGION 3802 . 4828) (
-REGISTER-TYPED-REGION 4830 . 6127) (REGION-TYPE 6129 . 6731)) (6734 14803 (RM-CREATEW 6744 . 8867) (
-RM-CLOSEW 8869 . 11887) (RM-GETREGION 11889 . 14038) (CLOSE-TYPED-W 14040 . 14801)) (15446 22925 (
-RELCREATEREGION 15456 . 20079) (RELGETREGION 20081 . 22688) (RELCREATEPOSITION 22690 . 22923)) (22926 
-29730 (\RELCREATEREGION.REF 22936 . 26687) (\RELCREATEREGION.SIZE 26689 . 29728)) (29783 39125 (
-RM-ATTACHWINDOW 29793 . 39123)) (39126 40860 (CLOSEWITH 39136 . 39663) (CLOSEWITH.DOIT 39665 . 39945) 
-(MOVEWITH 39947 . 40470) (MOVEWITH.DOIT 40472 . 40858)))))
+  (FILEMAP (NIL (1622 6740 (SET-TYPED-REGIONS 1632 . 3807) (GRAB-TYPED-REGION 3809 . 4835) (
+REGISTER-TYPED-REGION 4837 . 6134) (REGION-TYPE 6136 . 6738)) (6741 14810 (RM-CREATEW 6751 . 8874) (
+RM-CLOSEW 8876 . 11894) (RM-GETREGION 11896 . 14045) (CLOSE-TYPED-W 14047 . 14808)) (15453 22932 (
+RELCREATEREGION 15463 . 20086) (RELGETREGION 20088 . 22695) (RELCREATEPOSITION 22697 . 22930)) (22933 
+30508 (\RELCREATEREGION.REF 22943 . 27465) (\RELCREATEREGION.SIZE 27467 . 30506)) (30561 39903 (
+RM-ATTACHWINDOW 30571 . 39901)) (39904 41638 (CLOSEWITH 39914 . 40441) (CLOSEWITH.DOIT 40443 . 40723) 
+(MOVEWITH 40725 . 41248) (MOVEWITH.DOIT 41250 . 41636)))))
 STOP