twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.L.MouseResizableTile: change description for mirrored variant

Browse Source 
The description for mirrored MouseResizableTile is now "Mirror
MouseResizableTile", to follow the standard of other layouts that can be
mirrored using the Mirror modifier.
This commit is contained in:
Tomas Janousek 2009-12-11 12:42:18 +00:00
parent 1d6a171dd2
commit 5c2aa04175
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout/MouseResizableTile.hs
View File

@ -144,7 +144,8 @@ instance LayoutClass MouseResizableTile a where
where releaseResources = mapM_ deleteDragger $ draggers state where releaseResources = mapM_ deleteDragger $ draggers state
handleMessage _ _ = return Nothing handleMessage _ _ = return Nothing
description _ = "MouseResizableTile" description state = mirror "MouseResizableTile"
where mirror = if isMirrored state then ("Mirror " ++) else id
adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect
adjustForMirror False dragger = dragger adjustForMirror False dragger = dragger