Make Agilent use mkWrapper

site_ansto/instrument/config/environment/agilent_33220A.sct

@@ -3,6 +3,6 @@ driver agilent_33220A = {
   protocol = std
   class = environment
   simulation_group = environment_simulation
-  code mkDriver = {%%
+  code mkWrapper = {%%
   %%}
 }

site_ansto/instrument/config/environment/sct_agilent_33220A.tcl

@@ -32,17 +32,8 @@ proc ::scobj::agilent_33220A::mkDriver { sct_controller name } {
   set ns "[namespace current]"
   set catch_status [ catch {
 
-    MakeSICSObj ${name} SCT_OBJECT
-
-    sicslist setatt ${name} klass environment
-    sicslist setatt ${name} long_name ${name}
-
-    set scobj_hpath /sics/${name}
-    hsetprop ${scobj_hpath} klass environment
-    hsetprop ${scobj_hpath} data true
-    hsetprop ${scobj_hpath} debug_threshold 5
-# mkDriver hook code starts
-# mkDriver hook code ends
+# mkWrapper hook code starts
+# mkWrapper hook code ends
   } catch_message ]
   handle_exception ${catch_status} ${catch_message}
 }