diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-11 12:40:43 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-11 12:40:43 +0100 |
| commit | e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d (patch) | |
| tree | 9cd1aa08cbc5e7b0c09bfdb92dff1b4320f1169c /XMonad/Layout/Tabbed.hs | |
| parent | 2f5925ba2ac30d88e51fef60d3f3b02e71c5fd03 (diff) | |
| download | XMonadContrib-e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d.tar.gz XMonadContrib-e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d.tar.xz XMonadContrib-e4e4a79fe1faaf03d0507a63f9a09dc3275d4f4d.zip | |
Tabbed and SimpleTabbed (in DecorationMadness) define their own decorationMouseDragHook method
... to disable mouse drag in tabbed layouts
darcs-hash:20080211114043-32816-5d2387c5ecc443956694e1b6f572e7741b6e96bd.gz
Diffstat (limited to 'XMonad/Layout/Tabbed.hs')
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |