(FILECREATED "17-May-85 19:39:12" {ERIS}<LISPCORE>LIBRARY>BIG.;6
 6297   

      changes to:  (VARS FONTVARS BIGCOMS)
		   (ALISTS (FONTDEFS SMALL)
			   (FONTDEFS HUGE)
			   (FONTDEFS BIG)
			   (FONTDEFS MEDIUM)
			   (FONTDEFS STANDARD))
		   (FNS NEWFONT)

      previous date: "17-May-85 06:57:52" {ERIS}<LISPCORE>LIBRARY>BIG.;4)


(* Copyright (c) 1983, 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT BIGCOMS)

(RPAQQ BIGCOMS
 ((FNS NEWFONT)
		(ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD SMALL NOFONT))
		(VARS CACHEDMENUS FONTVARS)))
(DEFINEQ

(NEWFONT

  [LAMBDA (FONTS)                                            (* edited: "17-May-85 06:54")

    (
PROG
 ((OLDDEFAULT (
FONTCREATE
 DEFAULTFONT NIL NIL NIL (
QUOTE
 DISPLAY)))
	   OWINDOWS)
          (
SETQ
 OWINDOWS (for
 X in
 (
OPENWINDOWS
) when
 (
EQ
 OLDDEFAULT (
DSPFONT
 NIL X)) collect
 X))
          (for
 X in
 FONTVARS do
 (
SET
 (
CAR
 X)))
          (
FONTSET
 FONTS)
          [for
 X in
 FONTVARS do
 (if
 (
CADDR
 X)
				    then
 (
SET
 (
CAR
 X)
					      (
FONTCREATE
 (
OR
 (
EVALV
 (
CAR
 X))
							      (
EVAL
 (
CADR
 X))
							      DEFAULTFONT)
							  NIL NIL NIL (
QUOTE
 DISPLAY)))
				  else
 (
OR
 (
EVALV
 (
CAR
 X))
					   (
AND
 (
CADR
 X)
						(
SET
 (
CAR
 X)
						     (
EVAL
 (
CADR
 X]
          (for
 X in
 OWINDOWS do
 (
DSPFONT
 DEFAULTFONT X))
          (
DSPFONT
 WINDOWTITLEFONT WindowTitleDisplayStream)
          (
SETQ
 MaxValueLeftMargin (
ITIMES
 35 (
STRINGWIDTH
 (
QUOTE
 A)
							   DEFAULTFONT)))
          (
MAPC
 CACHEDMENUS (
QUOTE
 SET))                     (* Force system menus to be rebuilt in correct font.)

          (
RESETDEDIT
)
          (for
 W in
 (
OPENWINDOWS
)
	     do
 [
COND

		  [(
OR
 (
EQ
 (
WINDOWPROP
 W (
QUOTE
 RESHAPEFN))
			   (
QUOTE
 DONT))
		       (
WINDOWPROP
 W (
QUOTE
 MAINWINDOW]
		  (T                                         (* don't reshape if can't or if this window is attached

							     to another.)

		     (
SHAPEW
 W (
WINDOWREGION
 W]
		(
COND

		  ((
AND
 (
NEQ
 (
WINDOWPROP
 W (
QUOTE
 WINDOWENTRYFN))
			     (
FUNCTION
 \TEDIT.PROCIDLEFN))
			(
WINDOWPROP
 W (
QUOTE
 REPAINTFN)))
		    (
REDISPLAYW
 W])
)

(ADDTOVAR FONTDEFS
 [HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24)
						   (GACHA 8)
						   (TERMINAL 8))
				      (BOLDFONT 2 (MODERN 24 BRR)
						(HELVETICA 8 BRR)
						(MODERN 8 BRR))
				      (LITTLEFONT 3 (MODERN 18 MRR)
						  (HELVETICA 8 MIR)
						  (MODERN 8 MIR))
				      (BIGFONT 4 (MODERN 36 BRR)
					       (HEVLETICA 10 BRR)
					       (MODERN 10 BRR))
				      (TEXTFONT 5 (CLASSIC 24)
						(TIMESROMAN 10)
						(CLASSIC 10))
				      (TEXTBOLDFONT 7 (CLASSIC 24 BRR)
						    (TIMESROMAN 10 BRR)
						    (CLASSIC 10 BRR]
		   [BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18)
						  (GACHA 8)
						  (TERMINAL 8))
				     (TEXTFONT 5 (CLASSIC 18)
					       (TIMESROMAN 10)
					       (CLASSIC 10))
				     (BOLDFONT 2 (MODERN 18 BRR)
					       (HELVETICA 8 BRR)
					       (MODERN 8 BRR))
				     (LITTLEFONT 3 (MODERN 12 MRR)
						 (HELVETICA 8 MIR)
						 (MODERN 8 MIR))
				     (BIGFONT 4 (MODERN 24 BRR)
					      (HEVLETICA 10 BRR)
					      (MODERN 10 BRR))
				     (TEXTBOLDFONT 7 (CLASSIC 18 BRR)
						   (TIMESROMAN 10 BRR)
						   (CLASSIC 10 BRR]
		   [MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14)
						     (GACHA 8)
						     (TERMINAL 8))
					(BOLDFONT 2 (MODERN 14 BRR)
						  (HELVETICA 8 BRR)
						  (MODERN 8 BRR))
					(LITTLEFONT 3 (MODERN 10)
						    (HELVETICA 8 MIR)
						    (MODERN 8 MIR))
					(BIGFONT 4 (MODERN 18)
						 (HEVLETICA 10 BRR)
						 (MODERN 10 BRR))
					(TEXTFONT 5 (CLASSIC 14)
						  (TIMESROMAN 10)
						  (CLASSIC 10))
					(TEXTBOLDFONT 7 (CLASSIC 14 BRR)
						      (TIMESROMAN 10 BRR)
						      (CLASSIC 10 BRR]
		   [STANDARD (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12)
						       (GACHA 8)
						       (TERMINAL 8))
					  (BOLDFONT 2 (MODERN 12 BRR)
						    (HELVETICA 8 BRR)
						    (MODERN 8 BRR))
					  (LITTLEFONT 3 (MODERN 8)
						      (HELVETICA 8 MIR)
						      (MODERN 8 MIR))
					  (BIGFONT 4 (MODERN 12 BRR)
						   (HEVLETICA 10 BRR)
						   (MODERN 10 BRR))
					  (TEXTFONT 5 (CLASSIC 12)
						    (TIMESROMAN 10)
						    (CLASSIC 10))
					  (TEXTBOLDFONT 7 (CLASSIC 12 BRR)
							(TIMESROMAN 10 BRR)
							(CLASSIC 10 BRR]
		   [SMALL (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 8)
						    (GACHA 8)
						    (TERMINAL 8))
				       (BOLDFONT 2 (MODERN 8 BRR)
						 (HELVETICA 8 BRR)
						 (MODERN 8 BRR))
				       (LITTLEFONT 3 (MODERN 8 MIR)
						   (HELVETICA 8 MIR)
						   (MODERN 8 MIR))
				       (TINYFONT 6 (MODERN 6)
						 (GACHA 6)
						 (MODERN 6))
				       (BIGFONT 4 (MODERN 10 BRR)
						(HEVLETICA 10 BRR)
						(MODERN 10 BRR))
				       (TEXTFONT 5 (CLASSIC 10)
						 (TIMESROMAN 10)
						 (CLASSIC 10))
				       (TEXTBOLDFONT 7 (CLASSIC 10 BRR)
						     (TIMESROMAN 10 BRR)
						     (CLASSIC 10 BRR])

(RPAQQ CACHEDMENUS
 (BreakMenu WindowMenu BackgroundMenu IconWindowMenu))

(RPAQQ FONTVARS
 ((WINDOWTITLEFONT LITTLEFONT)
		 (LAFITEBROWSERFONT TEXTFONT T)
		 (LAFITEDISPLAYFONT TEXTFONT)
		 (LAFITEEDITORFONT TEXTFONT)
		 (LAFITEMENUFONT MENUFONT)
		 (LAFITEHARDCOPYFONT TEXTFONT)
		 (COMMENTFONT LITTLEFONT)
		 (TEDIT.DEFAULT.PROPS (LIST (QUOTE FONT)
					    TEXTFONT))
		 (BACKTRACEFONT LITTLEFONT T)
		 (MENUFONT BOLDFONT)
		 (BROWSERFONT LITTLEFONT)
		 (DEFAULTBROWSERFONT BROWSERFONT)
		 (SPY.FONT LITTLEFONT)
		 (PRETTYCOMFONT BOLDFONT)
		 (CLISPFONT BOLDFONT)
		 (SYSTEMFONT)
		 (LAMBDAFONT BIGFONT)
		 (LAFITEENDOFMESSAGEFONT COMMENTFONT)
		 (USERFONT BOLDFONT)
		 (CHANGEFONT)
		 (TERM.NORMAL.FONT DEFAULTFONT)
		 (TERM.BOLD.FONT BOLDFONT)
		 (CALLSFONT DEFAULTFONT)
		 (TINYFONT LITTLEFONT)
		 (LAFITEMENUFONT MENUFONT T)
		 (TEXTBOLDFONT BOLDFONT)
		 (ARBOLDFONT TEXTBOLDFONT)
		 (ARBUTTONFONT MENUFONT)
		 (LAFITETITLEFONT BIGFONT)
		 (ARFONT TEXTFONT)
		 (TEDIT.ICON.FONT WINDOWTITLEFONT)))
(PUTPROPS BIG COPYRIGHT ("Xerox Corporation" 1983 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (574 2408 (NEWFONT 584 . 2406)))))
STOP