Tabbed and SimpleTabbed (in DecorationMadness) define their own decorationMouseDragHook method

... to disable mouse drag in tabbed layouts

darcs-hash:20080211114043-32816-5d2387c5ecc443956694e1b6f572e7741b6e96bd.gz

2 files changed, 2 insertions, 0 deletions

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
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index a1c81bf..1497065 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -91,6 +91,7 @@ data TabbedDecoration a = Tabbed deriving (Read, Show)
 instance Eq a => DecorationStyle TabbedDecoration a where
     describeDeco  _ = "Tabbed"
     decorateFirst _ = True
+    decorationMouseDragHook _ _ _ = return ()
     pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) =
             if length wrs' <= 1 then Nothing
                                 else Just $ Rectangle nx y nwh (fi ht)