change RING to HRING to avoid record name conflicdt (#2258)

lispusers/HANOI

@@ -1,23 +1,23 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "21-Aug-2022 18:08:56" {DSK}<home>larry>medley>lispusers>HANOI.;2
 22228  
+
(FILECREATED "14-Aug-2025 19:01:29" {DSK}<home>larry>il>medley>lispusers>HANOI.;8
 22477  
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS HANOICOMS)
+                  (FNS HANOIDEMO WHANOI)
+                  (RECORDS HRING)
 
-      :PREVIOUS-DATE "25-Feb-86 19:07:01" {DSK}<home>larry>medley>lispusers>HANOI.;1)
+      :PREVIOUS-DATE "14-Aug-2025 19:00:08" {DSK}<home>larry>il>medley>lispusers>HANOI.;7)
 
 
-(* ; "
-Copyright (c) 1982-1986 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT HANOICOMS)
 
 (RPAQQ HANOICOMS

        ((FNS DISPLAYPEGSANDRINGS DOHANOI FINDOTHER HANOI HANOIDEMO MOVEDIS MOVERING RINGSHADE 
              SETUPRINGBITMAPS TRACK WHANOI XHANOI)
         (VARS (HANOIWINDOW))
-        (DECLARE%: DONTCOPY (RECORDS PEG RING)
+        (DECLARE%: DONTCOPY (RECORDS PEG HRING)
                (CONSTANTS XRINGSHADE ORINGSHADE XPEGSHADE)
                (CONSTANTS PEGMIN HANOIMARGIN (MAXVERTSPEED 30)
                       (MAXHORIZSPEED 44))
@@ -64,8 +64,10 @@ Copyright (c) 1982-1986 by Xerox Corporation.
     (WHANOI
 NRINGS WINDOW FONT ONCE])
 
 (HANOIDEMO

-  [LAMBDA NIL                                                (* lmm "17-Feb-86 14:58")

+  [LAMBDA NIL
                                                (* ; "Edited 14-Aug-2025 19:00 by lmm")

+                                                             (* lmm "17-Feb-86 14:58")

     (PROG (HANOI.MOUSE.SPEED)
+          (DECLARE
 (SPECVARS HANOI.MOUSE.SPEED))
           (WHANOI
 7
                  [COND
                     ((TYPENAMEP HANOIWINDOW 'WINDOW)
@@ -259,7 +261,8 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                      2])
 
 (WHANOI

-  [LAMBDA (RINGS W FONT ONCE)                                (* lmm " 3-Dec-85 12:51")

+  [LAMBDA (RINGS W FONT ONCE)
                                (* ; "Edited 14-Aug-2025 18:54 by lmm")

+                                                             (* lmm " 3-Dec-85 12:51")

                                                              (* runs hanoi in a region of a 
 
                                                             displaystream)

     (PROG ([REGION (DSPCLIPPINGREGION NIL (SETQ W (COND
@@ -331,7 +334,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                                                 WIDTH _ PEGWIDTH
                                                                 HEIGHT _ (ITIMES RINGHEIGHT
                                                                                 (ADD1 NRINGS)))
-                                             RINGS _ (LIST (create
 RING
+                                             RINGS _ (LIST (create
 HRING
                                                                   RINGREGION _ BASE
                                                                   RINGNUMBER _ 'BASE]
           [PROG [(SOURCEPEG (PEGN 1))
@@ -344,7 +347,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                    from
 (IPLUS HANOIMARGIN (ITIMES RINGLARGEST (SUB1 1))) by
 RINGDELTA as
 I
                    from
 0 to
 (SUB1 NRINGS) as
 LABEL in
 RINGLABELS
                    do
 (push
 (fetch
 RINGS of
 SOURCEPEG)
-                            (create
 RING
+                            (create
 HRING
                                    RINGREGION _ (create
 REGION
                                                        LEFT _ RINGLEFT
                                                        BOTTOM _ RINGBOTTOM
@@ -385,7 +388,7 @@ Copyright (c) 1982-1986 by Xerox Corporation.
 
 (RECORD PEG
 (PEGREGION RINGS))
 
-(RECORD RING
 (RINGREGION RINGNUMBER RINGLABEL))
+(RECORD HRING
 (RINGREGION RINGNUMBER RINGLABEL))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -435,10 +438,9 @@ Copyright (c) 1982-1986 by Xerox Corporation.
                                                  (HANOI (UNPACK "Interlisp.org")
                                                         W
                                                         '(TIMESROMAND 36])
-(PUTPROPS HANOI COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (920 20991 (DISPLAYPEGSANDRINGS 930 . 1875) (DOHANOI 1877 . 2288) (FINDOTHER 2290 . 2512
-) (HANOI 2514 . 2657) (HANOIDEMO 2659 . 3254) (MOVEDIS 3256 . 8151) (MOVERING 8153 . 8808) (RINGSHADE 
-8810 . 9049) (SETUPRINGBITMAPS 9051 . 12799) (TRACK 12801 . 13291) (WHANOI 13293 . 20670) (XHANOI 
-20672 . 20989)))))
+  (FILEMAP (NIL (969 21313 (DISPLAYPEGSANDRINGS 979 . 1924) (DOHANOI 1926 . 2337) (FINDOTHER 2339 . 2561
+) (HANOI 2563 . 2706) (HANOIDEMO 2708 . 3465) (MOVEDIS 3467 . 8362) (MOVERING 8364 . 9019) (RINGSHADE 
+9021 . 9260) (SETUPRINGBITMAPS 9262 . 13010) (TRACK 13012 . 13502) (WHANOI 13504 . 20992) (XHANOI 
+20994 . 21311)))))
 STOP