[comp.sys.xerox] Changing window-title fonts

SOTOS@SUMEX-AIM.STANFORD.EDU (John Sotos) (02/18/88)

Does anyone know how [in Koto] to change the font
of a window's title bar?  I fought with this months
ago, decided I didn't need it, but now have no way
around it.

Thanks in advance.

John
-------

lane@SUMEX-AIM.STANFORD.EDU (Christopher Lane) (02/18/88)

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

denber.wbst@XEROX.COM (02/19/88)

You can also call (WINDOWTITLEFONT font).  If called with no arguments, it
returns the current font.

			- Michel