summaryrefslogtreecommitdiffstats
path: root/lib/Phi/Widgets/X11
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-09-22 18:38:53 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-09-22 18:38:53 +0200
commit5cb4744d4f8bae31c17802f1e57fe31bf747f469 (patch)
tree1f0cd41e6df93d4e97b3e3d0a1cf5b200d1f7c11 /lib/Phi/Widgets/X11
parent2ae89a5e3348fbe94b50a985de9766689c22d011 (diff)
downloadphi-5cb4744d4f8bae31c17802f1e57fe31bf747f469.tar
phi-5cb4744d4f8bae31c17802f1e57fe31bf747f469.zip
Small taskbar fix
Diffstat (limited to 'lib/Phi/Widgets/X11')
-rw-r--r--lib/Phi/Widgets/X11/Taskbar.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Phi/Widgets/X11/Taskbar.hs b/lib/Phi/Widgets/X11/Taskbar.hs
index 07a7292..964fd39 100644
--- a/lib/Phi/Widgets/X11/Taskbar.hs
+++ b/lib/Phi/Widgets/X11/Taskbar.hs
@@ -573,7 +573,7 @@ getWindowInfo x11 window = do
netwmname <- liftM (fmap (decode . map fromIntegral)) $ getProperty8 conn window (atom_NET_WM_NAME atoms)
wmname <- case netwmname of
Just name -> return name
- Nothing -> liftM (map unsignedChr . fromMaybe []) $ getProperty8 conn window (atom_NET_WM_NAME atoms)
+ Nothing -> liftM (map unsignedChr . fromMaybe []) $ getProperty8 conn window (atomWM_NAME atoms)
workspace <- liftM (fromIntegral . fromMaybe 0xFFFFFFFF . join . fmap listToMaybe) $ getProperty32 conn window (atom_NET_WM_DESKTOP atoms)
visible <- showWindow conn atoms window