diff --git a/greetfiles/APPS-INIT b/greetfiles/APPS-INIT index 24dde3f9d..21f74cec9 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}frank>il>medley>gmedley>greetfiles>APPS-INIT.;17 23321 +(FILECREATED "26-Nov-2025 12:30:08" {DSK}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}frank>il>medley>gmedley>greetfiles>APPS-INIT.;16) + :CHANGES-TO (FNS Apps.CreateButtons) + + :PREVIOUS-DATE "25-Feb-2024 13:56:23" {DSK}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 b3253ecfe..bcf9748c7 100644 Binary files a/greetfiles/APPS-INIT.LCOM and b/greetfiles/APPS-INIT.LCOM differ