• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
Aucun tag

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

Japanese translation of message catalog for Sawfish Window-Manager


Commit MetaInfo

Révisiond5a27fd831e5d4277aa13850c6f22f1db8112989 (tree)
l'heure2010-11-20 19:23:44
AuteurChristopher Roy Bratusek <zanghar@free...>
CommiterChristopher Roy Bratusek

Message de Log

also delay hot-spots for corners

Change Summary

Modification

--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -94,7 +94,11 @@ activated immediately, aswell as actions for while-moving a window."
9494 (let ((corner (get-active-corner))
9595 (edge (get-active-edge)))
9696 (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))
98102 (setq func nil)
99103 (cond ((or (eq edge 'left)
100104 (eq edge 'right))