summaryrefslogtreecommitdiff
path: root/script.it/state.ml
diff options
context:
space:
mode:
Diffstat (limited to 'script.it/state.ml')
-rwxr-xr-xscript.it/state.ml4
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