github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-25 20:06:44 +00:00
Code Issues Projects Releases Wiki Activity

Suppresses size coercion for Titan 12 (#1476)

Browse Source 
* Suppresses size coercion for Titan 12

* Typo
This commit is contained in:
rmkaplan
2024-01-10 10:48:03 -08:00
committed by GitHub
parent a84242561a
commit 18aae01362
2 changed files with 24 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
lispusers/NSDISPLAYSIZES
View File

@@ -1,15 +1,13 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Sep-96 09:32:32" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;13 8499
changes to%: (FNS NSDISPLAYSIZE PURGENSFONTS)
(VARS NSDISPLAYSIZESCOMS)
(FILECREATED "26-Dec-2023 21:17:15" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;3 8449
previous date%: "16-Nov-95 10:10:26" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;9)
:EDIT-BY rmk
:CHANGES-TO (FNS NSDISPLAYSIZE)
:PREVIOUS-DATE "24-Dec-2023 13:50:41" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;2)
(* ; "
Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT NSDISPLAYSIZESCOMS)
@@ -17,8 +15,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation. Al
[(FNS NSDISPLAYSIZE NS\FONTFILENAME NS\FONTFILENAME.OLD PURGENSFONTS)
(ADDVARS (NSFONTFAMILIES CLASSIC MODERN TERMINAL OPTIMA TITAN))
(INITVARS (*SMALLSCREEN* (ILESSP SCREENWIDTH 700)))
[COMS (* ;
 "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")
[COMS (* ;
 "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")
(FNS VKBD.FIX.FONT)
(DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (RECLOOK 'KEYBOARDCONFIGURATION)
(LOADDEF 'KEYBOARDCONFIGURATION 'RECORDS
@@ -32,31 +30,33 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation. Al
(DEFINEQ
(NSDISPLAYSIZE
[LAMBDA (FAMILY SIZE FACE EXTENSION) (* ; "Edited 14-Sep-96 09:32 by rmk:")
(* ; "Edited 16-Nov-95 10:08 by ")
(* ;
 "Edited 5-Mar-93 18:12 by kaplan")
(* ; "Edited 15-Jan-87 15:22 by bvm:")
[LAMBDA (FAMILY SIZE FACE EXTENSION) (* ; "Edited 26-Dec-2023 21:15 by rmk")
(* ; "Edited 24-Dec-2023 13:49 by rmk")
(* ; "Edited 14-Sep-96 09:32 by rmk:")
(* ; "Edited 16-Nov-95 10:08 by ")
(* ; "Edited 5-Mar-93 18:12 by kaplan")
(* ; "Edited 15-Jan-87 15:22 by bvm:")
(* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension. Used to make bigger ns display fonts than you would get by default. Don't do it for small screens, as on DOS and laptops.")
(* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension. Used to make bigger ns display fonts than you would get by default. Don't do it for small screens, as on DOS and laptops.")
(DECLARE (GLOBALVARS DISPLAYFONTEXTENSIONS NSFONTFAMILIES))
(OR (AND (CL:MEMBER EXTENSION DISPLAYFONTEXTENSIONS :TEST 'STRING-EQUAL)
(COND
(*SMALLSCREEN* (CL:UNLESS (CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
(* ;
 " Small screen, shrink non-NS fonts ")
(* ;
 " Small screen, shrink non-NS fonts ")
(SELECTQ SIZE
(12 10)
(10 8)
(8 6)
NIL)))
((CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
(* ; "Large screen, enlarge NS fonts")
(* ; "Large screen, enlarge NS fonts")
(AND (SELECTQ SIZE
(12 (COND
((STRING-EQUAL FAMILY 'TERMINAL)
(* ; "Until Terminal 14 exists")
((CL:MEMBER FAMILY '(TERMINAL TITAN)
:TEST
'STRING-EQUAL) (* ; "Until these exist in size 14")
12)
(T 14)))
(10 12)
@@ -64,8 +64,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation. Al
(6 8)
NIL)))
((AND NIL (CL:MEMBER EXTENSION INTERPRESSFONTEXTENSIONS :TEST 'STRING-EQUAL)
(STRING-EQUAL FAMILY 'SYMBOL)) (* ;
 "Fake NS size on Interpress printing, even tho display fonts don't exist")
(STRING-EQUAL FAMILY 'SYMBOL)) (* ;
 "Fake NS size on Interpress printing, even tho display fonts don't exist")
10)))
SIZE])
@@ -159,9 +159,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation. Al
(VKBD.FIX.FONT)
)
(PUTPROPS NSDISPLAYSIZES COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1993 1995 1996))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (1696 6738 (NSDISPLAYSIZE 1706 . 4036) (NS\FONTFILENAME 4038 . 4279) (
NS\FONTFILENAME.OLD 4281 . 4530) (PURGENSFONTS 4532 . 6736)) (6950 7988 (VKBD.FIX.FONT 6960 . 7986))))
(FILEMAP (NIL (1522 6781 (NSDISPLAYSIZE 1532 . 4079) (NS\FONTFILENAME 4081 . 4322) (
NS\FONTFILENAME.OLD 4324 . 4573) (PURGENSFONTS 4575 . 6779)) (6993 8031 (VKBD.FIX.FONT 7003 . 8029))))
)
STOP

BIN
lispusers/NSDISPLAYSIZES.LCOM
View File

Binary file not shown.