diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-09 03:20:16 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-09 03:20:16 +0200 |
| commit | 2ae89a5e3348fbe94b50a985de9766689c22d011 (patch) | |
| tree | f4948c3c2a29ae96cc1a4b5c37e7732c6d6b1b7c /lib/Phi/Widgets/X11/Systray.hs | |
| parent | 4d519acbd48fa400f09e4705251a0dbf45c6876e (diff) | |
| download | phi-2ae89a5e3348fbe94b50a985de9766689c22d011.tar phi-2ae89a5e3348fbe94b50a985de9766689c22d011.zip | |
SystrayHelper: initialization
Diffstat (limited to 'lib/Phi/Widgets/X11/Systray.hs')
| -rw-r--r-- | lib/Phi/Widgets/X11/Systray.hs | 12 |
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 |