APPS button points to new primer (#2386)

Author: masinter

greetfiles/APPS-INIT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Feb-2024 13:56:23" {DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;17
 23321  
+
(FILECREATED "26-Nov-2025 12:30:08" {DSK}<Users>larry>il>MEDLEY>GREETFILES>APPS-INIT.;2
 23361  
 
-      :CHANGES-TO (VARS APPS-INITCOMS)
-                  (FNS Apps.DoInit Apps.AroundExitFn)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "25-Feb-2024 13:14:02" 
-{DSK}<home>frank>il>medley>gmedley>greetfiles>APPS-INIT.;16)
+      :CHANGES-TO (FNS Apps.CreateButtons)
+
+      :PREVIOUS-DATE "25-Feb-2024 13:56:23" {DSK}<Users>larry>il>MEDLEY>GREETFILES>APPS-INIT.;1)
 
 
 (PRETTYCOMPRINT APPS-INITCOMS)
@@ -214,7 +214,8 @@
                                       'MEDLEY-INIT-VARS AROUNDEXITFNS])
 
 (Apps.CreateButtons

-  [LAMBDA (DoDocsToo)
                                      (* ; "Edited 13-Dec-2022 12:51 by frank")


+  [LAMBDA (DoDocsToo)
                                        (* ; "Edited 26-Nov-2025 12:29 by lmm")


+                                                           (* ; "Edited 13-Dec-2022 12:51 by frank")


                                                              (* ; "Edited  7-Dec-2022 11:28 by FGH")


                                                              (* ; "Edited  5-Dec-2022 17:31 by FGH")


                                                              (* ; "Edited 12-Nov-2022 14:52 by FGH")

@@ -229,7 +230,7 @@
                                  "ROOMS")))
            (FEATURES-LABELS (for
 FEATURE in
 FEATURES collect
 (CADDR FEATURE)))
            (DOCS (LIST (LIST "https://interlisp.org/docs/medley/orientation/" "BASICS")
-                       (LIST "https://interlisp.org/documentation/Medley-Primer.pdf" "PRIMER")
+                       (LIST "https://primer.interlisp.org/" "PRIMER")
                        (LIST "https://interlisp.org/documentation/IRM.pdf" "MANUAL")
                        (LIST "https://interlisp.org/documentation/notecards_user_guide_v1.2.pdf" 
                              "NOTECARDS")
@@ -419,8 +420,8 @@
 (BKSYSBUF " ")
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1229 23187 (Apps.InitNotecards 1239 . 5101) (Apps.SetUpNOTECARDSDIRECTORIES 5103 . 6658
-) (Apps.DoInit 6660 . 10257) (Apps.CreateButtons 10259 . 19083) (Apps.CreateLabel 19085 . 19895) (
-Apps.ActivateCLOS 19897 . 21246) (Apps.ActivateRooms 21248 . 22099) (Apps.ShowDoc 22101 . 22250) (
-XCL-USER::EXEC_INTERLISP 22252 . 23024) (Apps.AroundExitFn 23026 . 23185)))))
+  (FILEMAP (NIL (1184 23227 (Apps.InitNotecards 1194 . 5056) (Apps.SetUpNOTECARDSDIRECTORIES 5058 . 6613
+) (Apps.DoInit 6615 . 10212) (Apps.CreateButtons 10214 . 19123) (Apps.CreateLabel 19125 . 19935) (
+Apps.ActivateCLOS 19937 . 21286) (Apps.ActivateRooms 21288 . 22139) (Apps.ShowDoc 22141 . 22290) (
+XCL-USER::EXEC_INTERLISP 22292 . 23064) (Apps.AroundExitFn 23066 . 23225)))))
 STOP