From 2d1e541bc8e3210049a37aa885a9fccbff940daa Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Fri, 11 Dec 2009 13:42:18 +0100 Subject: X.L.MouseResizableTile: change description for mirrored variant Ignore-this: dbc02fb777e35cdc15fb11979c1e983e The description for mirrored MouseResizableTile is now "Mirror MouseResizableTile", to follow the standard of other layouts that can be mirrored using the Mirror modifier. darcs-hash:20091211124218-c9ff5-5f94a9f2514aaa75a6783e99ac78427f4c09dc6c.gz --- XMonad/Layout/MouseResizableTile.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs index 8c0b7f8..3a3381f 100644 --- a/XMonad/Layout/MouseResizableTile.hs +++ b/XMonad/Layout/MouseResizableTile.hs @@ -144,7 +144,8 @@ instance LayoutClass MouseResizableTile a where where releaseResources = mapM_ deleteDragger $ draggers state handleMessage _ _ = return Nothing - description _ = "MouseResizableTile" + description state = mirror "MouseResizableTile" + where mirror = if isMirrored state then ("Mirror " ++) else id adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect adjustForMirror False dragger = dragger -- cgit v1.2.3