From 03f8a08fe2dde9db9fb656dbea2e5494b67236ad Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Tue, 19 Jan 2021 17:52:21 +0100 Subject: Regression in chanes value --- script.it/dune | 4 ++-- script.it/state.ml | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'script.it') diff --git a/script.it/dune b/script.it/dune index bb5ca5f..db5ba3f 100755 --- a/script.it/dune +++ b/script.it/dune @@ -28,7 +28,7 @@ (rule (targets script.js) (deps script.bc.js) - (action (run cp %{deps} %{targets}))) + (action (copy %{deps} %{targets}))) (executable (name worker) @@ -48,4 +48,4 @@ (rule (targets worker.js) (deps worker.bc.js) - (action (run cp %{deps} %{targets}))) + (action (copy %{deps} %{targets}))) 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 -- cgit v1.2.3