aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/SimpleFloat.hs9
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