@@ -280,12 +280,10 @@ pane
280pane dr foc child = do
280pane dr foc child = do
281 let reg = current dr
281 let reg = current dr
282 let subContext ctx = VtyWidgetCtx
282 let subContext ctx = VtyWidgetCtx
283− { _vtyWidgetCtx_input = leftmost
283+ { _vtyWidgetCtx_input = fmapMaybe id $
285− attachWith (\(r,f) e -> filterInput r f e)
284+ attachWith (\(r,f) e -> filterInput r f e)
286− (liftA2 (,) reg (current foc))
285+ (liftA2 (,) reg (current foc))
287− (_vtyWidgetCtx_input ctx)
286+ (_vtyWidgetCtx_input ctx)
289 , _vtyWidgetCtx_focus = liftA2 (&&) (_vtyWidgetCtx_focus ctx) foc
287 , _vtyWidgetCtx_focus = liftA2 (&&) (_vtyWidgetCtx_focus ctx) foc
290 , _vtyWidgetCtx_width = _region_width <$> dr
288 , _vtyWidgetCtx_width = _region_width <$> dr
291 , _vtyWidgetCtx_height = _region_height <$> dr
289 , _vtyWidgetCtx_height = _region_height <$> dr