From 54db1f74c77223be92ccaa1f777d7d6079d78ca4 Mon Sep 17 00:00:00 2001
From: Pierre Alexandre Tremblay <info@pierrealexandretremblay.com>
Date: Wed, 24 Mar 2021 10:39:02 +0000
Subject: [PATCH] added setPoint to Dataset

---
 release-packaging/Classes/FluidDataSet.sc            | 12 +++++++++++-
 .../HelpSource/Classes/FluidDataSet.schelp           |  3 +++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/release-packaging/Classes/FluidDataSet.sc b/release-packaging/Classes/FluidDataSet.sc
index 9df17cc..9cad494 100644
--- a/release-packaging/Classes/FluidDataSet.sc
+++ b/release-packaging/Classes/FluidDataSet.sc
@@ -40,7 +40,17 @@ FluidDataSet : FluidDataObject
       this.prSendMsg(this.deletePointMsg(label));
     }
 
-    clearMsg { ^this.prMakeMsg(\clear,id); }
+    setPointMsg{|label,buffer|
+        buffer = this.prEncodeBuffer(buffer);
+        ^this.prMakeMsg(\setPoint,id,label.asSymbol,buffer);
+    }
+
+	setPoint{|label, buffer, action|
+      actions[\setPoint] = [nil,action];
+	  this.prSendMsg(this.setPointMsg(label,buffer));
+	}
+
+	clearMsg { ^this.prMakeMsg(\clear,id); }
 
     clear { |action|
       actions[\clear] = [nil,action];
diff --git a/release-packaging/HelpSource/Classes/FluidDataSet.schelp b/release-packaging/HelpSource/Classes/FluidDataSet.schelp
index 8816b16..eea1ed8 100644
--- a/release-packaging/HelpSource/Classes/FluidDataSet.schelp
+++ b/release-packaging/HelpSource/Classes/FluidDataSet.schelp
@@ -41,6 +41,9 @@ Retrieve a point from the data set into a link::Classes/Buffer::. Will report an
 
 METHOD:: deletePoint
 Remove a point from the data set. Will report an error if the label doesn't exist.
+
+METHOD:: setPoint
+Set the point: if the label exists, this method behaves like updatePoint; if the label doesn't exist, behaves like addPoint.
 ​​
 METHOD:: clear
 Empty the data set.