Japanese translation of message catalog for Sawfish Window-Manager
| Revision | 030c0a4fdd08571910bb0d8d61bdb92886def975 (tree) |
|---|---|
| Time | 1999-07-29 00:22:32 |
| Author | john <john> |
| Commiter | john |
now looks for shaped windows as well as transients
lisp/sawfish/wm/state/transient.jl (diff) lisp/transient.jl (diff)| @@ -19,14 +19,26 @@ | ||
| 19 | 19 | ;; along with sawmill; see the file COPYING. If not, write to |
| 20 | 20 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 21 | 21 | |
| 22 | +;; XXX rename this file frames.jl | |
| 23 | + | |
| 22 | 24 | (provide 'transient) |
| 23 | 25 | |
| 24 | 26 | (defvar transient-frame nil-frame |
| 25 | 27 | "Frame used to decorate transient windows.") |
| 26 | 28 | |
| 29 | +(defvar shaped-frame default-frame | |
| 30 | + "Frame used to decorate shaped windows.") | |
| 31 | + | |
| 32 | +(defvar shaped-transient-frame nil-frame | |
| 33 | + "Frame used to decorate shaped transient windows.") | |
| 34 | + | |
| 27 | 35 | ;; called from the add-window-hook |
| 28 | 36 | (defun transient-add-window (w) |
| 29 | - (when (window-transient-p w) | |
| 30 | - (set-window-frame w transient-frame))) | |
| 37 | + (if (window-transient-p w) | |
| 38 | + (if (window-shaped-p w) | |
| 39 | + (set-window-frame w shaped-transient-frame) | |
| 40 | + (set-window-frame w transient-frame)) | |
| 41 | + (when (window-shaped-p w) | |
| 42 | + (set-window-frame w shaped-frame)))) | |
| 31 | 43 | |
| 32 | 44 | (add-hook 'add-window-hook 'transient-add-window t) |
| @@ -19,14 +19,26 @@ | ||
| 19 | 19 | ;; along with sawmill; see the file COPYING. If not, write to |
| 20 | 20 | ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
| 21 | 21 | |
| 22 | +;; XXX rename this file frames.jl | |
| 23 | + | |
| 22 | 24 | (provide 'transient) |
| 23 | 25 | |
| 24 | 26 | (defvar transient-frame nil-frame |
| 25 | 27 | "Frame used to decorate transient windows.") |
| 26 | 28 | |
| 29 | +(defvar shaped-frame default-frame | |
| 30 | + "Frame used to decorate shaped windows.") | |
| 31 | + | |
| 32 | +(defvar shaped-transient-frame nil-frame | |
| 33 | + "Frame used to decorate shaped transient windows.") | |
| 34 | + | |
| 27 | 35 | ;; called from the add-window-hook |
| 28 | 36 | (defun transient-add-window (w) |
| 29 | - (when (window-transient-p w) | |
| 30 | - (set-window-frame w transient-frame))) | |
| 37 | + (if (window-transient-p w) | |
| 38 | + (if (window-shaped-p w) | |
| 39 | + (set-window-frame w shaped-transient-frame) | |
| 40 | + (set-window-frame w transient-frame)) | |
| 41 | + (when (window-shaped-p w) | |
| 42 | + (set-window-frame w shaped-frame)))) | |
| 31 | 43 | |
| 32 | 44 | (add-hook 'add-window-hook 'transient-add-window t) |
Fork
SawfishWM/sawfish