diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-16 15:55:31 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-16 15:55:31 +0200 |
commit | b66d6690d8a062053268b3246a2a55cbff46410d (patch) | |
tree | 2e111ee0a0c90796480cb5f1e0675aa33f829966 /lib/Phi/X11.hs | |
parent | 8854f0aec4b882324649d3a5ce1c99e8af9862d7 (diff) | |
download | phi-b66d6690d8a062053268b3246a2a55cbff46410d.tar phi-b66d6690d8a062053268b3246a2a55cbff46410d.zip |
Taskbar: Sort windows by screen
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r-- | lib/Phi/X11.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index 709d04a..24f0986 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -86,7 +86,7 @@ runPhi xconfig config widgets = do screens <- liftIO $ phiXScreenInfo xconfig disp dispmvar <- liftIO $ newMVar disp - let dispvar = Widget.Display dispmvar atoms + let dispvar = Widget.Display dispmvar atoms screens widgetStates <- liftIO $ mapM (Widget.createWidgetState phi dispvar) widgets Widget.withDisplay dispvar $ \disp -> do @@ -172,7 +172,7 @@ updatePanels disp redraw = do setSource pattern paint restore - Widget.renderWidgets layoutedWidgets + Widget.renderWidgets layoutedWidgets $ panelScreenArea panel return panel' |