Japanese translation of message catalog for Sawfish Window-Manager
Révision | d5a27fd831e5d4277aa13850c6f22f1db8112989 (tree) |
---|---|
l'heure | 2010-11-20 19:23:44 |
Auteur | Christopher Roy Bratusek <zanghar@free...> |
Commiter | Christopher Roy Bratusek |
also delay hot-spots for corners
@@ -94,7 +94,11 @@ activated immediately, aswell as actions for while-moving a window." | ||
94 | 94 | (let ((corner (get-active-corner)) |
95 | 95 | (edge (get-active-edge))) |
96 | 96 | (if corner |
97 | - (hot-spot-activate corner) | |
97 | + ;; halve the delay for hot-spots | |
98 | + (make-timer (lambda () | |
99 | + (hot-spot-activate corner)) | |
100 | + (quotient edge-actions-delay 2000) | |
101 | + (mod edge-actions-delay 2000)) | |
98 | 102 | (setq func nil) |
99 | 103 | (cond ((or (eq edge 'left) |
100 | 104 | (eq edge 'right)) |