fjvallarino/monomer
1
1
Fork 0
mirror of https://github.com/fjvallarino/monomer.git synced 2024-08-16 15:30:27 +03:00
Code Issues Projects Releases Wiki Activity

Do not generate extra click events (#267)

Browse Source
This commit is contained in:
Francisco Vallarino 2023-05-15 01:10:16 -03:00 committed by GitHub
parent a36492cb73
commit ed81c987de
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Monomer/Widgets/Containers/Box.hs
View File

@ -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