From 0010cef1797f1fbe47453dd1f45b951559a110ab Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Thu, 6 Nov 2014 12:34:45 +1100
Subject: [PATCH] Call the add instead of make function for the Eurotherm 2000
 wrapper

---
 .../config/environment/temperature/eurotherm_m2000.sct          | 2 +-
 .../config/environment/temperature/sct_eurotherm_m2000.tcl      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/site_ansto/instrument/config/environment/temperature/eurotherm_m2000.sct b/site_ansto/instrument/config/environment/temperature/eurotherm_m2000.sct
index 4db47fd1..996cf943 100644
--- a/site_ansto/instrument/config/environment/temperature/eurotherm_m2000.sct
+++ b/site_ansto/instrument/config/environment/temperature/eurotherm_m2000.sct
@@ -7,6 +7,6 @@ driver eurotherm_m2000 = {
   add_args = 'id datype dev_id tol'
   make_args = 'id datype dev_id tol'
   code mkDriver = {%%
-    mk_sct_eurotherm_et2000 sct_controller environment $name $dev_id $tol $id $datype
+    add_eurotherm_2000 $name $ip_address $tcp_port $dev_id $tol $id $datype
   %%}
 }
diff --git a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
index 0d8f901c..37c7c852 100644
--- a/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
+++ b/site_ansto/instrument/config/environment/temperature/sct_eurotherm_m2000.tcl
@@ -42,7 +42,7 @@ proc ::scobj::eurotherm_m2000::mkDriver { sct_controller name device_class simul
     hsetprop ${scobj_hpath} data true
     hsetprop ${scobj_hpath} debug_threshold 5
 # mkDriver hook code starts
-    mk_sct_eurotherm_et2000 sct_controller environment $name $dev_id $tol $id $datype
+    add_eurotherm_2000 $name $ip_address $tcp_port $dev_id $tol $id $datype
 # mkDriver hook code ends
   } catch_message ]
   handle_exception ${catch_status} ${catch_message}