From 3e197c9c20941bc97fae6d40c056e2b00549c5f0 Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Mon, 8 Jun 2026 13:17:52 -0700
Subject: [PATCH] Change font in Online.SftpInitInfo from Classic to Helvetica
 because Classic 14 BRR is not loaded when the ONLINE-INIT file is loaded by
 GREET.  Helvetica 14 BRR is part of the loadup, so it doesn't have this
 problem.

---
 docker_medley/init/ONLINE-INIT      |  21 +++++++++++----------
 docker_medley/init/ONLINE-INIT.LCOM | Bin 5512 -> 5517 bytes
 2 files changed, 11 insertions(+), 10 deletions(-)

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}<home>frank>il>online>docker_medley>init>ONLINE-INIT.;51
 10938  
+
(FILECREATED " 8-Jun-2026 13:13:01" {DSK}<home>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}<home>frank>il>online>docker_medley>init>ONLINE-INIT.;50)
+      :PREVIOUS-DATE "18-Nov-2025 23:19:56" 
+{DSK}<home>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 ef9c00fba349bb9ed9c1f42a0383640df26391c3..4cad9667a08f6bb6330b32972241f01c71e802b0 100644
GIT binary patch
delta 331
zcmeCs?$x%}aB+3>^mEm9^Yn4m_4IS|SFj3jboO?1cU4gG^b2tf^6?A~P*Si8a&>eG
zadh%Q6P{=<A);WR>s6YkYh++#reJ7n1w!T%vrQP+Ok5x(Zmg-GWN4`Cn^*}|U|?lz
zYGpX_qIeLJsGgpll0r&iNooo<)kYRdnp_$n7diu-5#s8ipoD3sfuWMZ#5zT=tsKS*
zT!w}Qrbd(N7-enU{DKwy^KvrtQuTt<N(wylGD|%3((*NdJ`HjW^Yjl5)^!1z3bffm
z*Dt>e<W5rsBcLxVtxU}(R;z%GWHj0=%JiR+*TdB(%r(T**%9bfqsav<qMJ=vLIeR5
C=~fj0

delta 318
zcmeCx?$EZ^aB+3>^mEm9^Yn4m_4IS|SC9*EboO?1cU4gG^b2tf^6?A~P*RW!a&>eG
zadh%Q6P{=<A!2Bu>z7}qYh++#s$gVnWn^GwU^X$^gfV{N0x5ArO$8-G6J7u061V~r
zpn{1P#e<MU_4M?V6jBmPQd6+0HndRE<kA4S&>85A5LXwVB2+sKEv-z=loTe`DS~a~
zFjU|&G_W+bm|VvwYZc}g6s+Ly=L7Plr=Mqtv%hb!rh-*KkZYKye`v6-3(!afB_m4|
kN1B>h85m8hRsoyGXs}s==|3a8vyWqNu&4881(sYv0Hm@{{{R30