From 55bec42b792bad5c97e768cb25636b4f977e7518 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Tue, 12 Feb 2008 18:36:15 +0100 Subject: SimpleFloat now uses MouseResize darcs-hash:20080212173615-32816-4819108b6ea9331f60e04a7262f1fbe86f4dbcd4.gz --- XMonad/Layout/SimpleFloat.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'XMonad/Layout') 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 -- cgit v1.2.3