From 9ebcd6827cff227d0d4116538e76b27b0ad090ad Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Mon, 1 Dec 2025 15:06:15 -0800
Subject: [PATCH] APPS button points to new primer (#2386)

---
 greetfiles/APPS-INIT      |  23 ++++++++++++-----------
 greetfiles/APPS-INIT.LCOM | Bin 10334 -> 10301 bytes
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/greetfiles/APPS-INIT b/greetfiles/APPS-INIT
index 24dde3f9..21f74cec 100644
--- a/greetfiles/APPS-INIT
+++ b/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
diff --git a/greetfiles/APPS-INIT.LCOM b/greetfiles/APPS-INIT.LCOM
index b3253ecfef408d8361e93c6ddf0f004ea0ca90c2..bcf9748c7f6d9311e0d80de1e0fb2d5821baf87d 100644
GIT binary patch
delta 450
zcmb7<KTE?v9EQ;`s|bn+KMsUuxHEUvP)`Y@&9#QsG&HH$u{K8y<{y_Rh)6fVP4T02
z_Io(_S#0Sd)TR5&^FGgy|K-2m?3mcgA2Bo7DNx4i1~<+=?)PWIQmWEQ#!5X|abjHw
zrzb{MXCOq_c6%bQY~K&C>$xF0XF4F-_`{)`QEr$BZk3$mX%Qzfg2~-Do67QtgJu^+
zNm@#dE7^Rgsyr(p&Hycuuma6iMuZRq(P9?;_drdgYqh0LYar}UIDpuCP6NTS6LeoL
zHc9F-VD-95feXhCadV^rO41YoZ(Z76M+7+RL#^!vu->8r_XpzI?GFR&EVMphYwtwc
g+=0%~_S?a3q2g335@(fENn92rSJUJ9_u;Gd3y1`SDF6Tf

delta 479
zcmdlRa4%p&gs`cuTWXT7k%5tkf}ydMshO3r$;52Q`i%VCRJ*jI#Jp^~%pAMi)Rdgm
zO1pFzU6h(yl9rj1T5RVS5D={E>E{`uXKiS%si0(JuIrVU2Q|;c%E;Kt#7s${Bso8~
zAV)n#Au~^bO9`Y$0a>A*o}Q9IN@7WB3d{gmWD`t{lr*_C+&q0;or7E*LtI@ZpJkM&
zuXYLcuC*b{oeD<A#zuw;TvpB=j(+a0!MY*-3L0UKLBR@e?>PJW25Ty4xcLFa3JQw#
zT=G5hGD{$A$D;hwy!sT^ip&zXJWU0wfFRc}Pyf(hT^FF^fc`T=4O2rCD+41X1@hf%
z2K2p?cW`8|Q>dGQk^(R=fKJ-1%Ty{oIayXl&=(vzx&cL*xv52Z1u1Epx68J10RRET
BkO=?)