diff --git a/docker_medley/init/ONLINE-INIT b/docker_medley/init/ONLINE-INIT index 666b8d7..dd1187c 100644 --- a/docker_medley/init/ONLINE-INIT +++ b/docker_medley/init/ONLINE-INIT @@ -1,13 +1,13 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "18-Nov-2025 23:19:56" {DSK}frank>il>online>docker_medley>init>ONLINE-INIT.;51 10938 +(FILECREATED " 8-Jun-2026 13:13:01" {DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;53 11052 :EDIT-BY "FGH" - :CHANGES-TO (VARS ONLINE-INITCOMS) + :CHANGES-TO (FNS Online.SftpInitInfo) - :PREVIOUS-DATE "29-Oct-2025 23:56:02" -{DSK}frank>il>online>docker_medley>init>ONLINE-INIT.;50) + :PREVIOUS-DATE "18-Nov-2025 23:19:56" +{DSK}frank>il>online>docker¬medley>init>ONLINE-INIT.;52) (PRETTYCOMPRINT ONLINE-INITCOMS) @@ -60,7 +60,8 @@ (DEFINEQ (Online.SftpInitInfo - [LAMBDA NIL (* ; "Edited 17-Dec-2021 01:25 by abc") + [LAMBDA NIL (* ; "Edited 8-Jun-2026 13:02 by FGH") + (* ; "Edited 17-Dec-2021 01:25 by abc") (SETQ Online.SftpPort (UNIX-GETENV "SFTP_PORT")) (SETQ Online.SftpPassword (UNIX-GETENV "SFTP_PWD")) (SETQ Online.SftpDisplay (CONCAT Online.SftpPort " / " (L-CASE USERNAME) @@ -70,7 +71,7 @@ ITEMS _ (LIST (MKATOM (CONCAT "Port: " Online.SftpPort)) (MKATOM (CONCAT "User: " (L-CASE USERNAME))) (MKATOM (CONCAT "Pwd: " Online.SftpPassword))) - MENUFONT _ (FONTCREATE 'CLASSIC 14 'BOLD]) + MENUFONT _ (FONTCREATE 'HELVETICA 14 'BOLD]) (Online.SftpUpdateInfo [LAMBDA (WHEN) (* ; "Edited 23-Nov-2021 22:44 by medley") @@ -250,7 +251,7 @@ (BKSYSBUF " ") ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1828 10802 (Online.SftpInitInfo 1838 . 2711) (Online.SftpUpdateInfo 2713 . 2968) ( -Online.SetUpNOTECARDSDIRECTORIES 2970 . 4678) (Online.FileButton 4680 . 7508) (Online.DoInit 7510 . -10663) (ONLINEP 10665 . 10800))))) + (FILEMAP (NIL (1831 10916 (Online.SftpInitInfo 1841 . 2825) (Online.SftpUpdateInfo 2827 . 3082) ( +Online.SetUpNOTECARDSDIRECTORIES 3084 . 4792) (Online.FileButton 4794 . 7622) (Online.DoInit 7624 . +10777) (ONLINEP 10779 . 10914))))) STOP diff --git a/docker_medley/init/ONLINE-INIT.LCOM b/docker_medley/init/ONLINE-INIT.LCOM index ef9c00f..4cad966 100644 Binary files a/docker_medley/init/ONLINE-INIT.LCOM and b/docker_medley/init/ONLINE-INIT.LCOM differ