;;; $Id: demo-frame.el,v 1.4 2006/08/23 20:16:50 leavens Exp leavens $
;;;
;;; demo-frame by M. Hermenegildo, obtained from the URL
;;; http://www.mozart-oz.org/pipermail/mozart-users/2005/014175.html
;;; Slightly adapted by Gary T. Leavens to his tastes

(defvar demoframe nil "Demonstration frame.")

(defun demo-frame ()
  "Create a frame with suitable dimensions for demos."
  (interactive)
  (setq demoframe
        (make-frame '((user-position . f)
                      (name . "Demo Screen")
                      (height . 20)
                      (width . 57)
                      (minibuffer . t))))
  (select-frame demoframe)
  (set-default-font "-*-Courier*-bold-r-*-*-*-240-*-*-*-*-iso8859-1")
  )

;; demo-frame.el ends here