From e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
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/Tabbed.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'XMonad/Layout/Tabbed.hs')

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)
-- 
cgit v1.2.3