diff options
Diffstat (limited to 'XMonad/Layout/SimpleFloat.hs')
| -rw-r--r-- | XMonad/Layout/SimpleFloat.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/XMonad/Layout/SimpleFloat.hs b/XMonad/Layout/SimpleFloat.hs index 4aa8e4f..8256444 100644 --- a/XMonad/Layout/SimpleFloat.hs +++ b/XMonad/Layout/SimpleFloat.hs @@ -25,6 +25,7 @@ module XMonad.Layout.SimpleFloat import XMonad import qualified XMonad.StackSet as S +import XMonad.Actions.MouseResize import XMonad.Layout.Decoration import XMonad.Layout.SimpleDecoration import XMonad.Layout.WindowArranger @@ -49,15 +50,15 @@ import XMonad.Layout.WindowArranger -- -- This version is decorated with the 'SimpleDecoration' style. simpleFloat :: ModifiedLayout (Decoration SimpleDecoration DefaultShrinker) - (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat = decoration shrinkText defaultTheme (Simple False) (windowArrangeAll $ SF 20) + (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a +simpleFloat = decoration shrinkText defaultTheme (Simple False) (mouseResize $ windowArrangeAll $ SF 20) -- | Same as 'simpleFloat', but with the possibility of setting a -- custom shrinker and a custom theme. simpleFloat' :: Shrinker s => s -> Theme -> ModifiedLayout (Decoration SimpleDecoration s) - (ModifiedLayout WindowArranger SimpleFloat) a -simpleFloat' s c = decoration s c (Simple False) (windowArrangeAll $ SF (decoHeight c)) + (ModifiedLayout MouseResize (ModifiedLayout WindowArranger SimpleFloat)) a +simpleFloat' s c = decoration s c (Simple False) (mouseResize $ windowArrangeAll $ SF (decoHeight c)) data SimpleFloat a = SF Dimension deriving (Show, Read) instance LayoutClass SimpleFloat Window where |