[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
Re: Meadow2でのフレームサイズ変更コマンド
- X-ml-count: 4639
- Subject: Re: Meadow2でのフレームサイズ変更コマンド
- From: YOKOTA Kazuya <yokota-k@xxxxxxxxxxxxxxx>
- Date: Sun, 29 Jun 2003 20:24:52 +0900 (JST)
- X-mailer: xcite1.47> Mew version 3.3rc3 on Emacs 21.1 / Mule 5.0 (賢木)
横田@広島です。
三好さん、アドバイスありがとうございました。
以下のようにして、十分満足できる結果が得られました。
これで Meadow2 へ移行できそうです。
;;; フレームサイズをトグルで切り替え
;;;......................................................................
(setq my-frame-max-flag nil)
;; (defun my-toggle-frame-size ()
;; (interactive)
;; (if my-frame-max-flag
;; (progn
;; (w32-send-sys-command 61728) ;; 最大化を元にもどす
;; (setq my-frame-max-flag nil)
;; (message "not MAX.")(sit-for 2)
;; )
;; (w32-send-sys-command 61488) ;; フレームの最大化
;; (setq my-frame-max-flag t)
;; (message "to MAX.")(sit-for 2)
;; ))
;; (define-key global-map [(super m)] 'my-toggle-frame-size)
(defun my-toggle-frame-size ()
(interactive)
(if my-frame-max-flag
(progn
(set-frame-configuration my-last-frame-conf)
(setq my-frame-max-flag nil)
(message "not MAX.")(sit-for 2)
)
(setq my-last-frame-conf (current-frame-configuration))
(set-frame-position (selected-frame) 0 0)
;; フレーム最大化時に (frame-height) で得た値
(set-frame-height (selected-frame) 59)
;; フレーム最大化時に (frame-width) で得た値
(set-frame-width (selected-frame) 156)
(setq my-frame-max-flag t)
(message "to MAX.")(sit-for 2)
))
(define-key global-map [(super m)] 'my-toggle-frame-size)
--
YOKOTA Kazuya/横田和也
yokota-k@xxxxxxxxxxxxxxx
http://www.venus.dti.ne.jp/~yokota-k/
明日の広島県南部は 北の風日中南西の風くもり夜所により一時雨 です
6月29日17時 広島地方気象台発表 by http://www.jma.go.jp/