Japanese translation of message catalog for Sawfish Window-Manager
| Revision | 33a29290733c50f7a9e5942556f3ebafb746fdc7 (tree) |
|---|---|
| Zeit | 1999-07-29 22:41:49 |
| Autor | john <john> |
| Commiter | john |
removed the auto-raise stuff
lisp/focus.jl (diff) lisp/sawfish/wm/focus.jl (diff)| @@ -26,29 +26,15 @@ | ||
| 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 milliseconds until windows are raised if raise-windows-on-focus | |
| 34 | -is set.") | |
| 35 | - | |
| 36 | 29 | (defun focus-enter-fun (w) |
| 37 | 30 | (if (eq w 'root) |
| 38 | 31 | (unless sloppy-focus |
| 39 | 32 | (set-input-focus nil)) |
| 40 | - (set-input-focus w) | |
| 41 | - (when raise-windows-on-focus | |
| 42 | - (focus-raise w)))) | |
| 33 | + (set-input-focus w))) | |
| 43 | 34 | |
| 44 | 35 | (defun focus-leave-fun (w) |
| 45 | 36 | (unless sloppy-focus |
| 46 | 37 | (set-input-focus nil))) |
| 47 | 38 | |
| 48 | -(defun focus-raise (w) | |
| 49 | - (sync-server) | |
| 50 | - (sit-for 0 raise-window-timeout) | |
| 51 | - (raise-window w)) | |
| 52 | - | |
| 53 | 39 | (add-hook 'enter-notify-hook 'focus-enter-fun t) |
| 54 | 40 | (add-hook 'leave-notify-hook 'focus-leave-fun t) |
| @@ -26,29 +26,15 @@ | ||
| 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 milliseconds until windows are raised if raise-windows-on-focus | |
| 34 | -is set.") | |
| 35 | - | |
| 36 | 29 | (defun focus-enter-fun (w) |
| 37 | 30 | (if (eq w 'root) |
| 38 | 31 | (unless sloppy-focus |
| 39 | 32 | (set-input-focus nil)) |
| 40 | - (set-input-focus w) | |
| 41 | - (when raise-windows-on-focus | |
| 42 | - (focus-raise w)))) | |
| 33 | + (set-input-focus w))) | |
| 43 | 34 | |
| 44 | 35 | (defun focus-leave-fun (w) |
| 45 | 36 | (unless sloppy-focus |
| 46 | 37 | (set-input-focus nil))) |
| 47 | 38 | |
| 48 | -(defun focus-raise (w) | |
| 49 | - (sync-server) | |
| 50 | - (sit-for 0 raise-window-timeout) | |
| 51 | - (raise-window w)) | |
| 52 | - | |
| 53 | 39 | (add-hook 'enter-notify-hook 'focus-enter-fun t) |
| 54 | 40 | (add-hook 'leave-notify-hook 'focus-leave-fun t) |
Fork
SawfishWM/sawfish