aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-12 18:36:15 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-12 18:36:15 +0100
commit55bec42b792bad5c97e768cb25636b4f977e7518 (patch)
tree47896407c9aa85d747ed16316df8bda167af2a78 /XMonad
parent1794c89a7bd7dee293b03cb7a67ab4b60cf84568 (diff)
downloadXMonadContrib-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.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