next up previous
Next: 5.6 日記 Up: 5 Emacslisp Previous: 5.4 ファイルブラウザの例

5.5 フレームサイズを変える例 

(defun resize-frame-interactively ()
  "対話的にフレームサイズを変える"
  (interactive)
  (let (key (width (frame-width))
            (height (frame-height)))
    (catch 'quit
      (while t
        (message " [nbfb] (%dx%d): "
                 width height)
        (setq key (read-char))
        (cond
            ((eq key ?n) (setq height (1+ height)))
          ((eq key ?p) (setq height (1- height)))
          ((eq key ?f) (setq width (1+ width)))
          ((eq key ?b) (setq width (1- width)))
          (t (throw 'quit t)))
        (set-frame-width nil width)
        (set-frame-height nil height)))
    (message "終わりました．")))

generated through LaTeX2HTML. M.Inaba 平成18年5月7日