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/DecorationMadness.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/DecorationMadness.hs')
| -rw-r--r-- | XMonad/Layout/DecorationMadness.hs | 1 |
1 files changed, 1 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 |