Japanese translation of message catalog for Sawfish Window-Manager
| 修訂 | 4774877b0680adfe447a0641b54b27673f5c29f7 (tree) |
|---|---|
| 時間 | 2010-11-20 18:53:04 |
| 作者 | Christopher Roy Bratusek <zanghar@free...> |
| Commiter | Christopher Roy Bratusek |
improved fallback values for hot-spots
(not erroring when called if not user re-defined)
lisp/sawfish/wm/edge/hot-spots.jl (diff)| @@ -33,28 +33,28 @@ | ||
| 33 | 33 | |
| 34 | 34 | (define-structure-alias hot-spots sawfish.wm.edge.hot-spots) |
| 35 | 35 | |
| 36 | - (defvar left-edge-program nil | |
| 36 | + (defvar left-edge-program (lambda () t) | |
| 37 | 37 | "The program launched when hitting the left-edge.") |
| 38 | 38 | |
| 39 | - (defvar top-left-corner-program nil | |
| 39 | + (defvar top-left-corner-program (lambda () t) | |
| 40 | 40 | "The program launched when hitting the top-left-corner.") |
| 41 | 41 | |
| 42 | - (defvar top-edge-program nil | |
| 42 | + (defvar top-edge-program (lambda () t) | |
| 43 | 43 | "The program launched when hitting the top-edge.") |
| 44 | 44 | |
| 45 | - (defvar top-right-corner-program nil | |
| 45 | + (defvar top-right-corner-program (lambda () t) | |
| 46 | 46 | "The program launched when hitting the top-right-corner.") |
| 47 | 47 | |
| 48 | - (defvar right-edge-program nil | |
| 48 | + (defvar right-edge-program (lambda () t) | |
| 49 | 49 | "The program launched when hitting the right-edge.") |
| 50 | 50 | |
| 51 | - (defvar bottom-right-corner-program nil | |
| 51 | + (defvar bottom-right-corner-program (lambda () t) | |
| 52 | 52 | "The program launched when hitting the bottom-right-corner.") |
| 53 | 53 | |
| 54 | - (defvar bottom-edge-program nil | |
| 54 | + (defvar bottom-edge-program (lambda () t) | |
| 55 | 55 | "The program launched when hitting the bottom-edge.") |
| 56 | 56 | |
| 57 | - (defvar bottom-left-corner-program nil | |
| 57 | + (defvar bottom-left-corner-program (lambda () t) | |
| 58 | 58 | "The program launched when hitting the bottom-left-corner.") |
| 59 | 59 | |
| 60 | 60 | (define (hot-spot-activate spot) |
Fork
SawfishWM/sawfish