Change font in Online.SftpInitInfo from Classic to Helvetica

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