LLDISPLAY: Guaranteed display font made by direct call to MEDLEYFONT.READ.FONT
This commit is contained in:
@@ -1,12 +1,9 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
|
||||
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||||
|
||||
(FILECREATED " 2-Sep-2025 22:54:03" ("compiled on "
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LLDISPLAY.;50) " 2-Sep-2025 22:44:30"
|
||||
"COMPILE-FILEd" in "FULL 2-Sep-2025 ..." dated " 2-Sep-2025 22:44:39")
|
||||
(FILECREATED " 2-Sep-2025 22:54:03"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LLDISPLAY.;50 272104 :EDIT-BY rmk
|
||||
:CHANGES-TO (FNS \SLOWBLTCHAR) :PREVIOUS-DATE " 2-Sep-2025 22:41:14"
|
||||
{DSK}<Users>kaplan>Local>medley3.5>working-medley>sources>LLDISPLAY.;49)
|
||||
(FILECREATED "31-Mar-2026 17:52:09" ("compiled on " {WMEDLEY}<sources>LLDISPLAY.;51)
|
||||
"23-Mar-2026 00:34:12" "COMPILE-FILEd" in "FULL 23-Mar-2026 ..." dated "23-Mar-2026 00:48:39")
|
||||
(FILECREATED "31-Mar-2026 17:52:08" {WMEDLEY}<sources>LLDISPLAY.;51 272169 :EDIT-BY rmk :CHANGES-TO (
|
||||
FNS INITIALIZEDISPLAYSTREAMS) :PREVIOUS-DATE " 2-Sep-2025 22:54:03" {WMEDLEY}<sources>LLDISPLAY.;50)
|
||||
(RPAQQ LLDISPLAYCOMS ((DECLARE%: DONTCOPY (EXPORT (RECORDS PILOTBBT \DISPLAYDATA DISPLAYSTATE
|
||||
DISPLAYINFO) (MACROS \GETDISPLAYDATA))) (* ;
|
||||
"User-visible records are on ADISPLAY --- must be init'ed here") (INITRECORDS BITMAP PILOTBBT REGION
|
||||
@@ -196,7 +193,7 @@ BLTCHAR :D8
|
||||
(42 \DISPLAYDATA 35 STREAM 24 OUTPUT)
|
||||
()
|
||||
\BLTCHAR :D8
|
||||
(P 0 A0152 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) | ||||