From 5cb4744d4f8bae31c17802f1e57fe31bf747f469 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Thu, 22 Sep 2011 18:38:53 +0200 Subject: Small taskbar fix --- lib/Phi/Widgets/X11/Taskbar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3