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/Border.hs | |
| parent | 8854f0aec4b882324649d3a5ce1c99e8af9862d7 (diff) | |
| download | phi-b66d6690d8a062053268b3246a2a55cbff46410d.tar phi-b66d6690d8a062053268b3246a2a55cbff46410d.zip | |
Taskbar: Sort windows by screen
Diffstat (limited to 'lib/Phi/Border.hs')
| -rw-r--r-- | lib/Phi/Border.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Phi/Border.hs b/lib/Phi/Border.hs index 7de66ea..791845d 100644 --- a/lib/Phi/Border.hs +++ b/lib/Phi/Border.hs @@ -79,10 +79,10 @@ instance WidgetClass Border where width' = width - borderH m - 2*bw - borderH p height' = height - borderV m - 2*bw - borderV p - render (Border config _) (BorderState widgetStates) w h = do + render (Border config _) (BorderState widgetStates) w h screen = do drawBorder config 0 0 w h clip - renderWidgets widgetStates + renderWidgets widgetStates screen handleMessage _ (BorderState widgetStates) m = BorderState $ handleMessageWidgets m widgetStates |