Path: utzoo!mnetor!uunet!husc6!think!ames!pasteur!ucbvax!SUMEX-AIM.STANFORD.EDU!lane
From: lane@SUMEX-AIM.STANFORD.EDU (Christopher Lane)
Newsgroups: comp.sys.xerox
Subject: Re: Changing window-title fonts
Message-ID: <602114815.A0180.KSL-1186-13.lane@SUMEX-AIM.Stanford.EDU>
Date: 18 Feb 88 01:21:03 GMT
References: <12375563670.95.SOTOS@SUMEX-AIM.Stanford.EDU>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 21

This can be done in both Koto and Lyric using the function DSPFONT on the
global stream WindowTitleDisplayStream.  Subsequent windows will use the
new font in their title bar.  

To create just one window with a different font:

(SETQ FONT (FONTCREATE 'HELVETICA 24))

(RESETLST (RESETSAVE NIL
                     `(DSPFONT ,(DSPFONT FONT WindowTitleDisplayStream)        
                               ,WindowTitleDisplayStream))
          (CREATEW NIL "Window Title"))

To change an existing window:

(RESETLST (RESETSAVE NIL
                     `(DSPFONT ,(DSPFONT FONT WindowTitleDisplayStream)        
                               ,WindowTitleDisplayStream))
          (WINDOWPROP WINDOW 'TITLE (WINDOWPROP WINDOW 'TITLE NIL)))

- Christopher