From ed81c987dec84b784cc86bed644e5e5bbcd3e525 Mon Sep 17 00:00:00 2001 From: Francisco Vallarino Date: Mon, 15 May 2023 01:10:16 -0300 Subject: [PATCH] Do not generate extra click events (#267) --- src/Monomer/Widgets/Containers/Box.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Monomer/Widgets/Containers/Box.hs b/src/Monomer/Widgets/Containers/Box.hs index 3b4c7579..82541dc8 100644 --- a/src/Monomer/Widgets/Containers/Box.hs +++ b/src/Monomer/Widgets/Containers/Box.hs @@ -430,9 +430,7 @@ makeBox config state = widget where ButtonAction point btn BtnReleased clicks | clicks > 1 && not (null reqs) && inChildVp point -> result where - reqsA = _boxOnClickReq config - reqsB = _boxOnBtnReleasedReq config <*> pure btn <*> pure clicks - reqs = reqsA <> reqsB + reqs = _boxOnBtnReleasedReq config <*> pure btn <*> pure clicks result = Just (resultReqs node reqs) ButtonAction point btn BtnReleased clicks