Re: Meadow2でのフレームサイズ変更コマンド

[YOKOTA Kazuya <yokota-k@xxxxxxxxxxxxxxx>]

横田＠広島です。

三好さん、アドバイスありがとうございました。
以下のようにして、十分満足できる結果が得られました。
これで 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/