Japanese translation of message catalog for Sawfish Window-Manager
| Revision | d2e186f84a813ef7e505b5f7ed883efdc00793ba (tree) |
|---|---|
| Time | 1999-07-29 01:40:09 |
| Author | john <john> |
| Commiter | john |
(raise-windows-on-focus, raise-window-timeout): new variables,
auto-raise functionality
lisp/focus.jl (diff) lisp/sawfish/wm/focus.jl (diff)| @@ -26,15 +26,28 @@ | ||
| 26 | 26 | focus is only changed when a top-level window is entered, never when the |
| 27 | 27 | root window is entered.") |
| 28 | 28 | |
| 29 | +(defvar raise-windows-on-focus nil | |
| 30 | + "When non-nil, windows are raised after receiving focus.") | |
| 31 | + | |
| 32 | +(defvar raise-window-timeout 500 | |
| 33 | + "Time in microseconds until windows are raised if raise-windows-on-focus | |
| 34 | +is set.") | |
| 35 | + | |
| 29 | 36 | (defun focus-enter-fun (w) |
| 30 | 37 | (if (eq w 'root) |
| 31 | 38 | (unless sloppy-focus |
| 32 | 39 | (set-input-focus nil)) |
| 33 | - (set-input-focus w))) | |
| 40 | + (set-input-focus w) | |
| 41 | + (when raise-windows-on-focus | |
| 42 | + (focus-raise w)))) | |
| 34 | 43 | |
| 35 | 44 | (defun focus-leave-fun (w) |
| 36 | 45 | (unless sloppy-focus |
| 37 | 46 | (set-input-focus nil))) |
| 38 | 47 | |
| 48 | +(defun focus-raise (w) | |
| 49 | + (sit-for 0 raise-window-timeout) | |
| 50 | + (raise-window w)) | |
| 51 | + | |
| 39 | 52 | (add-hook 'enter-notify-hook 'focus-enter-fun t) |
| 40 | 53 | (add-hook 'leave-notify-hook 'focus-leave-fun t) |
| @@ -26,15 +26,28 @@ | ||
| 26 | 26 | focus is only changed when a top-level window is entered, never when the |
| 27 | 27 | root window is entered.") |
| 28 | 28 | |
| 29 | +(defvar raise-windows-on-focus nil | |
| 30 | + "When non-nil, windows are raised after receiving focus.") | |
| 31 | + | |
| 32 | +(defvar raise-window-timeout 500 | |
| 33 | + "Time in microseconds until windows are raised if raise-windows-on-focus | |
| 34 | +is set.") | |
| 35 | + | |
| 29 | 36 | (defun focus-enter-fun (w) |
| 30 | 37 | (if (eq w 'root) |
| 31 | 38 | (unless sloppy-focus |
| 32 | 39 | (set-input-focus nil)) |
| 33 | - (set-input-focus w))) | |
| 40 | + (set-input-focus w) | |
| 41 | + (when raise-windows-on-focus | |
| 42 | + (focus-raise w)))) | |
| 34 | 43 | |
| 35 | 44 | (defun focus-leave-fun (w) |
| 36 | 45 | (unless sloppy-focus |
| 37 | 46 | (set-input-focus nil))) |
| 38 | 47 | |
| 48 | +(defun focus-raise (w) | |
| 49 | + (sit-for 0 raise-window-timeout) | |
| 50 | + (raise-window w)) | |
| 51 | + | |
| 39 | 52 | (add-hook 'enter-notify-hook 'focus-enter-fun t) |
| 40 | 53 | (add-hook 'leave-notify-hook 'focus-leave-fun t) |
Fork
SawfishWM/sawfish