twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix ToggleOff: It was adding 0.1 to the magnification.

Browse Source
This commit is contained in:
Braden Shepherdson
2008-03-05 22:23:02 +00:00
parent 4f2e1927b0
commit 3a6e2d8b8e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/Magnifier.hs
View File

@@ -106,7 +106,7 @@ instance LayoutModifier Magnifier Window where
handleMess (Mag z On t) m
| Just MagnifyMore <- fromMessage m = return . Just $ (Mag (z + 0.1) On t)
| Just MagnifyLess <- fromMessage m = return . Just $ (Mag (z - 0.1) On t)
| Just ToggleOff <- fromMessage m = return . Just $ (Mag (z + 0.1) Off t)
| Just ToggleOff <- fromMessage m = return . Just $ (Mag (z ) Off t)
handleMess (Mag z Off t) m
| Just ToggleOn <- fromMessage m = return . Just $ (Mag z On t)
handleMess _ _ = return Nothing