diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-19 17:52:21 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-19 17:52:21 +0100 |
commit | 03f8a08fe2dde9db9fb656dbea2e5494b67236ad (patch) | |
tree | 26e48a9d535c5230e07f4ad4c6a215ef46963bda /script.it/state.ml | |
parent | 228eceeed40b0f86e75a394fe8d65e6e93ca2370 (diff) |
Regression in chanes value
Diffstat (limited to 'script.it/state.ml')
-rwxr-xr-x | script.it/state.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/script.it/state.ml b/script.it/state.ml index f5698ef..ad7abb3 100755 --- a/script.it/state.ml +++ b/script.it/state.ml @@ -158,7 +158,7 @@ let width worker width state = let state = { state with width } in Selection.find_selection t state.paths |> update_property worker state width Path.Point.set_width - | _ -> state + | _ -> { state with width } let angle worker angle state = match state.mode with @@ -167,7 +167,7 @@ let angle worker angle state = let state = { state with angle } in Selection.find_selection t state.paths |> update_property worker state angle Path.Point.set_angle - | _ -> state + | _ -> { state with angle } (** Short click on any element, just do nothing (each element is on MouseDown |