From 2e29673fa970b814c97d5838963de49c2a65424b Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 13:43:24 +0100
Subject: Rename application functions

---
 script.it/script_event/click.ml         | 2 +-
 script.it/script_event/complete_path.ml | 2 +-
 script.it/script_event/delete.ml        | 2 +-
 script.it/script_event/export.ml        | 2 +-
 script.it/script_event/mouse_down.ml    | 2 +-
 script.it/script_event/property.ml      | 2 +-
 script.it/script_event/tick.ml          | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'script.it/script_event')

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 *)
-- 
cgit v1.2.3