From e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 11 Feb 2008 12:40:43 +0100 Subject: Tabbed and SimpleTabbed (in DecorationMadness) define their own decorationMouseDragHook method ... to disable mouse drag in tabbed layouts darcs-hash:20080211114043-32816-5d2387c5ecc443956694e1b6f572e7741b6e96bd.gz --- XMonad/Layout/DecorationMadness.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'XMonad/Layout/DecorationMadness.hs') diff --git a/XMonad/Layout/DecorationMadness.hs b/XMonad/Layout/DecorationMadness.hs index 81b38cc..d5ac961 100644 --- a/XMonad/Layout/DecorationMadness.hs +++ b/XMonad/Layout/DecorationMadness.hs @@ -144,6 +144,7 @@ instance Eq a => DecorationStyle SimpleTabbedDecoration a where describeDeco _ = "Tabbed" decorateFirst _ = True shrink _ _ r = r + decorationMouseDragHook _ _ _ = return () pureDecoration _ _ ht (Rectangle x y wh _) s wrs (w,_) = Just $ Rectangle nx y nwh (fi ht) where nwh = wh `div` max 1 (fi $ length wrs) nx = case w `elemIndex` (S.integrate s) of -- cgit v1.2.3