aboutsummaryrefslogtreecommitdiff
path: root/script.it/script_event
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@dailly.me>2022-02-07 13:43:24 +0100
committerSébastien Dailly <sebastien@dailly.me>2022-02-07 16:22:43 +0100
commit2e29673fa970b814c97d5838963de49c2a65424b (patch)
tree09d61022038ebfd392873c1a0c62e984d901d11a /script.it/script_event
parent155fec516022d2d5a1343312792dce21f466573a (diff)
Rename application functions
Diffstat (limited to 'script.it/script_event')
-rwxr-xr-xscript.it/script_event/click.ml2
-rwxr-xr-xscript.it/script_event/complete_path.ml2
-rwxr-xr-xscript.it/script_event/delete.ml2
-rwxr-xr-xscript.it/script_event/export.ml2
-rwxr-xr-xscript.it/script_event/mouse_down.ml2
-rwxr-xr-xscript.it/script_event/property.ml2
-rwxr-xr-xscript.it/script_event/tick.ml2
7 files changed, 7 insertions, 7 deletions
diff --git a/script.it/script_event/click.ml b/script.it/script_event/click.ml
index 591887b..b7ffcb6 100755
--- a/script.it/script_event/click.ml
+++ b/script.it/script_event/click.ml
@@ -30,7 +30,7 @@ let drag mouse_coord state worker = function
(* TODO Long click in out mode should translate the whole slate *)
| _ -> state
-let update {point; timer ; worker} state =
+let process {point; timer ; worker} state =
match state.State.mode with
| Edit ->
diff --git a/script.it/script_event/complete_path.ml b/script.it/script_event/complete_path.ml
index 99dd6ae..4383a2e 100755
--- a/script.it/script_event/complete_path.ml
+++ b/script.it/script_event/complete_path.ml
@@ -3,7 +3,7 @@ module State = Script_state.State
type t = Outline.t
-let update newPath state =
+let process newPath state =
let paths = List.map
state.State.paths
~f:(fun line ->
diff --git a/script.it/script_event/delete.ml b/script.it/script_event/delete.ml
index 6aac5d2..3566b8f 100755
--- a/script.it/script_event/delete.ml
+++ b/script.it/script_event/delete.ml
@@ -7,7 +7,7 @@ module Selection = Script_state.Selection
type t = { worker : Brr_webworkers.Worker.t }
(* Click anywhere while in Out mode, we switch in edition *)
-let update { worker } state =
+let process { worker } state =
match state.State.mode with
| Selection (Path id) ->
let paths = List.filter
diff --git a/script.it/script_event/export.ml b/script.it/script_event/export.ml
index 9e900c7..10dd937 100755
--- a/script.it/script_event/export.ml
+++ b/script.it/script_event/export.ml
@@ -4,7 +4,7 @@ module State = Script_state.State
type t = unit
-let update () state =
+let process () state =
let my_host = Uri.host @@ Window.location @@ G.window in
if (Hashtbl.hash my_host) = Blog.Hash_host.expected_host then (
(* Convert the path into an sVG element *)
diff --git a/script.it/script_event/mouse_down.ml b/script.it/script_event/mouse_down.ml
index 98e866a..1c25a7d 100755
--- a/script.it/script_event/mouse_down.ml
+++ b/script.it/script_event/mouse_down.ml
@@ -4,7 +4,7 @@ module Selection = Script_state.Selection
type t = { position : float * float
; timer : Elements.Timer.t }
-let update { position; timer } state =
+let process { position; timer } state =
match state.State.mode with
| Out ->
diff --git a/script.it/script_event/property.ml b/script.it/script_event/property.ml
index e637ab7..dbdc1de 100755
--- a/script.it/script_event/property.ml
+++ b/script.it/script_event/property.ml
@@ -28,7 +28,7 @@ type t = { prop : [`Angle | `Width ]
; worker : Brr_webworkers.Worker.t
}
-let update { prop; value ; worker } state =
+let process { prop; value ; worker } state =
match prop with
| `Angle ->
let angle = value in
diff --git a/script.it/script_event/tick.ml b/script.it/script_event/tick.ml
index c927a2a..1052cf8 100755
--- a/script.it/script_event/tick.ml
+++ b/script.it/script_event/tick.ml
@@ -7,7 +7,7 @@ type t = float * (float * float)
Tick only occurs when drawing a new path
*)
-let update (delay, point) state =
+let process (delay, point) state =
match state.State.mode with
| Edit ->
(* Add the point in the list *)