summaryrefslogtreecommitdiffstats
path: root/lib/Phi/Widgets/X11
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-09-09 03:20:16 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-09-09 03:20:16 +0200
commit2ae89a5e3348fbe94b50a985de9766689c22d011 (patch)
treef4948c3c2a29ae96cc1a4b5c37e7732c6d6b1b7c /lib/Phi/Widgets/X11
parent4d519acbd48fa400f09e4705251a0dbf45c6876e (diff)
downloadphi-2ae89a5e3348fbe94b50a985de9766689c22d011.tar
phi-2ae89a5e3348fbe94b50a985de9766689c22d011.zip
SystrayHelper: initialization
Diffstat (limited to 'lib/Phi/Widgets/X11')
-rw-r--r--lib/Phi/Widgets/X11/Systray.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/Phi/Widgets/X11/Systray.hs b/lib/Phi/Widgets/X11/Systray.hs
index fffb181..8f10a60 100644
--- a/lib/Phi/Widgets/X11/Systray.hs
+++ b/lib/Phi/Widgets/X11/Systray.hs
@@ -178,18 +178,6 @@ initSystray disp atoms = do
return $ Just xembedWin
-sYSTEM_TRAY_REQUEST_DOCK :: CInt
-sYSTEM_TRAY_REQUEST_DOCK = 0
-
-sYSTEM_TRAY_BEGIN_MESSAGE :: CInt
-sYSTEM_TRAY_BEGIN_MESSAGE = 1
-
-sYSTEM_TRAY_CANCEL_MESSAGE :: CInt
-sYSTEM_TRAY_CANCEL_MESSAGE = 2
-
-xEMBED_EMBEDDED_NOTIFY :: CInt
-xEMBED_EMBEDDED_NOTIFY = 0
-
handleEvent :: Event -> Phi -> Display -> Window -> Window -> StateT (M.Map Window Window) IO ()
handleEvent message@ClientMessageEvent { ev_message_type = message_type, ev_data = messageData, ev_window = window } phi dispvar panelWindow xembedWindow = do
let atoms = getAtoms dispvar