(define font
  (lambda (family size)
    (send the-font-list
	  find-or-create-font
	  size
	  (case family
	    ((monospace fixed) 'modern)
	    ((serif) 'default)
	    ((sans-serif) 'default)
	    (else 'default))
	  'normal
	  'normal
	  #f)))