;; $Id: menu-font.scm,v 1.3 1998/07/24 23:23:16 gjb Exp $

;; see if interactive move/size window reconfigures itself after this
(set-message-window-attributes!
 (make-font "*helvetica*medium-r*12*") "black" "gray70")

(set-message-window-attributes!
 (make-font "*helvetica*medium-r*18*") "red" "red")

(set-menu-font! (make-font "*helvetica*medium-r*24*"))


;;; weird interactions with this?
(menu-style #:fg "black" #:bg "gray80" #:stipple "grey35" 
	    #:font menu-font #:mwm #f)


;;; Local Variables:
;;; eval: (progn (load "scwm") (scwm-mode))
;;; End: