mirror of
https://github.com/fjvallarino/monomer.git
synced 2024-08-16 15:30:27 +03:00
Do not generate extra click events (#267)
This commit is contained in:
parent
a36492cb73
commit
ed81c987de
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user