From 1123888c5d395e402e067315800f4e7bf561d023 Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Sun, 29 Nov 2009 00:43:10 +0100 Subject: Extended decoration module with more hooks and consolidated some existing ones Ignore-this: 5a23af3009ecca2feb9a84f8c6f8ac33 darcs-hash:20091128234310-594c5-8b6cd110f95678fd49fa1c20b0d4c69ef0fbeec5.gz --- XMonad/Layout/TabBarDecoration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout/TabBarDecoration.hs') diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs index 5305428..f8be09c 100644 --- a/XMonad/Layout/TabBarDecoration.hs +++ b/XMonad/Layout/TabBarDecoration.hs @@ -66,7 +66,7 @@ data TabBarDecoration a = TabBar XPPosition deriving (Read, Show) instance Eq a => DecorationStyle TabBarDecoration a where describeDeco _ = "TabBar" shrink _ _ r = r - decorationMouseDragHook _ _ _ = return () + decorationCatchClicksHook _ mainw _ _ = focus mainw >> return True pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) = if isInStack s w then Just $ Rectangle nx ny wid (fi dht) else Nothing where wrs = S.integrate s -- cgit v1.2.3