diff options
| -rw-r--r-- | XMonad/Layout/DecorationMadness.hs | 1 | ||||
| -rw-r--r-- | XMonad/Layout/Tabbed.hs | 1 |
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) |