diff options
| author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-11-29 00:43:10 +0100 |
|---|---|---|
| committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2009-11-29 00:43:10 +0100 |
| commit | 1123888c5d395e402e067315800f4e7bf561d023 (patch) | |
| tree | d745de10f73488f58faa8f2e6b16d246165ba428 /XMonad/Layout/TabBarDecoration.hs | |
| parent | c0d896b8c04cce75488395cc679085bbc18b043b (diff) | |
| download | XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.tar.gz XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.tar.xz XMonadContrib-1123888c5d395e402e067315800f4e7bf561d023.zip | |
Extended decoration module with more hooks and consolidated some existing ones
Ignore-this: 5a23af3009ecca2feb9a84f8c6f8ac33
darcs-hash:20091128234310-594c5-8b6cd110f95678fd49fa1c20b0d4c69ef0fbeec5.gz
Diffstat (limited to 'XMonad/Layout/TabBarDecoration.hs')
| -rw-r--r-- | XMonad/Layout/TabBarDecoration.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |