diff options
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 |