Japanese translation of message catalog for Sawfish Window-Manager
| リビジョン | 511a71e5984f81296662a8c998e952fb88daa6a7 (tree) |
|---|---|
| 日時 | 1999-08-01 22:33:05 |
| 作者 | john <john> |
| コミッター | john |
(ignore-program-positions): program specified window positions are
ignored if this is set. User specified positions are never ignored
lisp/place-window.jl (diff) lisp/sawfish/wm/placement.jl (diff)| @@ -24,9 +24,17 @@ | ||
| 24 | 24 | (defvar place-window-mode 'random |
| 25 | 25 | "Method of selecting the position of a freshly-mapped window.") |
| 26 | 26 | |
| 27 | +(defvar ignore-program-positions nil | |
| 28 | + "When non-nil the PPosition size hint is ignored.") | |
| 29 | + | |
| 27 | 30 | ;; called from the place-window-hook |
| 28 | 31 | (defun place-window (w) |
| 29 | - (if (window-transient-p w) | |
| 32 | + (let | |
| 33 | + ((hints (window-size-hints w))) | |
| 34 | + (if (or (window-transient-p w) | |
| 35 | + (cdr (assq 'user-position hints)) | |
| 36 | + (and (not ignore-program-positions) | |
| 37 | + (cdr (assq 'program-position hints)))) | |
| 30 | 38 | nil |
| 31 | 39 | (let |
| 32 | 40 | ((mode (or (window-get w 'place-mode) place-window-mode))) |
| @@ -24,9 +24,17 @@ | ||
| 24 | 24 | (defvar place-window-mode 'random |
| 25 | 25 | "Method of selecting the position of a freshly-mapped window.") |
| 26 | 26 | |
| 27 | +(defvar ignore-program-positions nil | |
| 28 | + "When non-nil the PPosition size hint is ignored.") | |
| 29 | + | |
| 27 | 30 | ;; called from the place-window-hook |
| 28 | 31 | (defun place-window (w) |
| 29 | - (if (window-transient-p w) | |
| 32 | + (let | |
| 33 | + ((hints (window-size-hints w))) | |
| 34 | + (if (or (window-transient-p w) | |
| 35 | + (cdr (assq 'user-position hints)) | |
| 36 | + (and (not ignore-program-positions) | |
| 37 | + (cdr (assq 'program-position hints)))) | |
| 30 | 38 | nil |
| 31 | 39 | (let |
| 32 | 40 | ((mode (or (window-get w 'place-mode) place-window-mode))) |
Fork
SawfishWM/sawfish