On Sun, Oct 09, 2011 at 11:28:18AM +0200, Tomas Zellerin wrote:
> Is *root-click-hook* still supported? It appears to be still defined
> and referenced in the info file, but it does not seem to work for me
> any longer, and quick grep through current git sources did not reveal
> any call to it.
>
> It appears to get lost in commit 3ba1, when group-button-press was
> factored out, but no reason for omitting is stated.
Guess it just got lost. Try the attached patch.
Ben
>From 84fb71460583ff96a9851b05e693a92df785661e Mon Sep 17 00:00:00 2001
From: Ben Spencer <dangerous....@gmail.com>
Date: Sun, 13 Nov 2011 13:20:02 +0000
Subject: [PATCH] Make *root-click-hook* work.
---
events.lisp | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/events.lisp b/events.lisp
index 2ca50fd..3f659c4 100644
--- a/events.lisp
+++ b/events.lisp
@@ -591,7 +591,8 @@ the window in it's frame."
(let (screen ml win)
(cond
((and (setf screen (find-screen window)) (not child))
- (group-button-press (screen-current-group screen) x y :root))
+ (group-button-press (screen-current-group screen) x y :root)
+ (run-hook-with-args *root-click-hook* screen code x y))
((setf ml (find-mode-line-window window))
(run-hook-with-args *mode-line-click-hook* ml code x y))
((setf win (find-window-by-parent window (top-windows)))
--
1.7.7.1
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
