packages feed

brick 0.36.2 → 0.36.3

raw patch · 3 files changed

+17/−2 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Brick.Widgets.List: listElementsL :: forall n_a19iL e_a19iM e_a19sY. Lens (List n_a19iL e_a19iM) (List n_a19iL e_a19sY) (Vector e_a19iM) (Vector e_a19sY)
+ Brick.Widgets.List: listElementsL :: forall n_a19qR e_a19qS e_a19B4. Lens (List n_a19qR e_a19qS) (List n_a19qR e_a19B4) (Vector e_a19qS) (Vector e_a19B4)
- Brick.Widgets.List: listItemHeightL :: forall n_a19iL e_a19iM. Lens' (List n_a19iL e_a19iM) Int
+ Brick.Widgets.List: listItemHeightL :: forall n_a19qR e_a19qS. Lens' (List n_a19qR e_a19qS) Int
- Brick.Widgets.List: listNameL :: forall n_a19iL e_a19iM n_a19sZ. Lens (List n_a19iL e_a19iM) (List n_a19sZ e_a19iM) n_a19iL n_a19sZ
+ Brick.Widgets.List: listNameL :: forall n_a19qR e_a19qS n_a19B5. Lens (List n_a19qR e_a19qS) (List n_a19B5 e_a19qS) n_a19qR n_a19B5
- Brick.Widgets.List: listSelectedL :: forall n_a19iL e_a19iM. Lens' (List n_a19iL e_a19iM) (Maybe Int)
+ Brick.Widgets.List: listSelectedL :: forall n_a19qR e_a19qS. Lens' (List n_a19qR e_a19qS) (Maybe Int)

Files

CHANGELOG.md view
@@ -2,6 +2,13 @@ Brick changelog --------------- +0.36.3+------++Bug fixes:+ * Fixed a bug where mouse-up events in viewports were not translated+   into the global coordinate space, unlike mouse-down events (#173)+ 0.36.2 ------
brick.cabal view
@@ -1,5 +1,5 @@ name:                brick-version:             0.36.2+version:             0.36.3 synopsis:            A declarative terminal user interface library description:   Write terminal applications painlessly with 'brick'! You write an
src/Brick/Main.hs view
@@ -289,7 +289,15 @@                             let localCoords = Location (lc, lr)                                 lc = c - ec + oC                                 lr = r - er + oR-                            return (MouseUp n button localCoords, firstRS, exts)+                                -- If the clicked extent was a viewport,+                                -- adjust the local coordinates by+                                -- adding the viewport upper-left corner+                                -- offset.+                                newCoords = case M.lookup n (viewportMap firstRS) of+                                  Nothing -> localCoords+                                  Just vp -> localCoords & _1 %~ (+ (vp^.vpLeft))+                                                         & _2 %~ (+ (vp^.vpTop))+                            return (MouseUp n button newCoords, firstRS, exts)                         False -> return (e, firstRS, exts)                 _ -> return (e, firstRS, exts)         _ -> return (e, firstRS, exts)