diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-12 18:36:15 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-12 18:36:15 +0100 |
| commit | 55bec42b792bad5c97e768cb25636b4f977e7518 (patch) | |
| tree | 47896407c9aa85d747ed16316df8bda167af2a78 /XMonad | |
| parent | 1794c89a7bd7dee293b03cb7a67ab4b60cf84568 (diff) | |
| download | XMonadContrib-55bec42b792bad5c97e768cb25636b4f977e7518.tar.gz XMonadContrib-55bec42b792bad5c97e768cb25636b4f977e7518.tar.xz XMonadContrib-55bec42b792bad5c97e768cb25636b4f977e7518.zip | |
SimpleFloat now uses MouseResize
darcs-hash:20080212173615-32816-4819108b6ea9331f60e04a7262f1fbe86f4dbcd4.gz
Diffstat (limited to 'XMonad')
| -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 |